UC知道有关VB的一道题
来源：百度知道 编辑：UC知道 时间：2024/05/14 17:31:16
问题是这样的:在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()
Dim arr(1 to 100)As Integer
For i=1 to 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Mai=arr(1)
For i=1 to 100
If Max<arr(i)Then
Max=arr(i)
End if
If Min>arr(i)Then
Min=arr(i)
End if
Next i
Print "Max=";Max "Min=";Min
End sub
我想问arr(i)是怎么回事?还有这一套程序语句都是什么意思,请帮忙分析一下,谢谢!!!
Dim arr(1 to 100)As Integer
For i=1 to 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Mai=arr(1)
For i=1 to 100
If Max<arr(i)Then
Max=arr(i)
End if
If Min>arr(i)Then
Min=arr(i)
End if
Next i
Print "Max=";Max "Min=";Min
End sub
我想问arr(i)是怎么回事?还有这一套程序语句都是什么意思,请帮忙分析一下,谢谢!!!
首先说明这道题是关于判断产生100个在0到1000的随机整数中的最大值和最小值
Command1_Click()
Dim arr(1 to 100)As Integer '定义一个有100个元素的一维数组
For i=1 to 100
arr(i)=Int(Rnd*1000) '产生0至1000的随机数(不包括0和1000)
Next i '通过循环使产生的随机整数控制在100个数
Max=arr(1) '将arr(1)的值附给Max
Mai=arr(1) '将arr(1)的值附给Min
For i=1 to 100
If Max<arr(i)Then '进行大小的比较,通过"<"判断Max是不是最大值
Max=arr(i) '如果If成立则Max不是最大值,就进行数值的交换
End if
If Min>arr(i)Then '进行大小的比较,通过"<"判断Max是不是最小值
Min=arr(i) '如果If成立则Max不是最小值,就进行数值的交换
End if
Next i
Print "Max=";Max "Min=";Min '打印最大值"Max=";最小值 "Min=";
End sub
arr(i)是一个数组，该数组保存了前面产生的100个0-999间的随机整数
这套程序的意思是
Command1_Click()
Dim arr(1 to 100)As Integer
'产生100个0-999间的随机整数并保存在数组arr(i)中
For i=1 to 100
arr(i)=Int(Rnd*10