在按钮BTX的点击事件中编程计算50个1到100之间的随机数的和,结果在文本框textbox1中显示出来。
来源:百度知道 编辑:UC知道 时间:2024/09/28 13:46:13
sub btx_onclick()
dim rnds
dim i
dim sums
sums=0
for i=1 to 100
rnds=(100-1+1)*rnd+1
sums=sums+rnds
next
textbox1.text=sums
end sub
Private Sub BTX_Click()
Dim a(50)
For i = 1 To 50
a(i) = Int(Rnd * 100 + 1)
Sum = Sum + a(i)
Next
Text1 = Sum
End Sub