vb 随机产生10个两位整数，找出其中最大值、最小值。

来源：百度知道 编辑：UC知道 时间：2024/06/03 18:11:51
有两个comm 一个控制产生 一个控制排序 两个leb 一个显示随机数 一个显示排好序的 要原程序文件 TXT的 感谢哪位大侠指导

Private Sub Form_Click()
Cls '清除屏幕
Dim a As Integer '定义 a 为整形
a = Val(InputBox("请决定需要排多少组组数值？", "排序数值数")) 'a的等于输入框所返回的数值，决定排序数组的个数
Dim i(100) '定义i 为数组 ，100个元素 （每个元素都是整形的变量）
For j = 1 To a
i(j) = Val(InputBox("请输入第" & j & "组数值", "输入数据")) '为每个数组赋值
Print i(j) ' 打印每组数组的值
Next j '结束for循环
Print " -----------------排序结果"
For j = 1 To a
For k = j + 1 To a
If i(j) > i(k) Then
p = i(j)
i(j) = i(k)
i(k) = p
End If
Next k
Next j
For j = 1 To a
Print i(j) '打印出排序过的数组
Next
End Sub

用这个就行了