将随机数组(十个数)放入文本框中,十个一起放

来源：百度知道 编辑：UC知道 时间：2024/06/09 11:49:29
产生在一行的两位数随机数组十个数,要把它们一起显示在文本框里,并在第二个和第三个文本框里分别显示最大最小值
编写一个随机产生10个两位正整数并放入数组arr中，然后查找并输出这10个数中的最大值Max和最小值Min。1.单击"查找"按钮，则开始生成10个满足条件的随机数，并显示在Text1中,将Max值显示在Text2中，Min值显示在Text3中；
3、单击“清除”按钮，则将文本框清空；
4、单击“退出”按钮，结束程序运行；
5、程序中应包含一个名为MaxMin的Sub过程，用于查找最大值Max和最小值Min。

Dim arr(9) As Integer
Dim Max As Integer, Min As Integer

Function GetRandomVal(ByVal pmin As Integer, ByVal pmax As Integer) As Integer
GetRandomVal = Rnd * (pmax - pmin) + pmin
End Function

Private Sub command1_click() '查找按钮
Randomize: Text1.Text = "" '清空内容 初始化种子
Dim i As Integer

For i = 0 To 9
arr(i) = GetRandomVal(10, 99) '10~99之间随机数
Text1.Text = Text1.Text & CStr(arr(i)) & " " '添加给文本框
Next

MaxMin '获取最大值 最小值

Text2.Text = CStr(Max) '显示它们
Text3.Text = CStr(Min)
End Sub

Private Sub command2_click() '清除
Dim i As Integer
Text1.Text = ""
End Sub

Private Sub command3_click() '退出
End
End Sub

Sub MaxMin()
Max = 10: Min = 99 '把数据设置为临界值 这样后面才能有比较
Dim i As Integer
For i = 0 To 9
If arr(i) > Max Then Max = arr(i)
If arr(i) < Min