vb程序解答

来源：百度知道 编辑：UC知道 时间：2024/06/30 01:44:27
1、再画一按钮，实现功能：由计算机随机产生5个随机数，若这5个数加起来大于3，则利用弹出窗口输出“>3”，否则输出“<3”。
* 能产生随机数的函数是rnd()，该函数产生的随机数范围是0~1，（）内不需填任何内容

2、能否使产生的随机数在0~100之间，若这5个数加起来大于100，则利用弹出窗口输出“>100”，否则输出“<100”

Private Sub Command2_Click()
Randomize
For i = 1 To 5
x = Rnd()
sum = sum + x
Next i
If sum > 3 Then
MsgBox ">3"
Else
MsgBox "<3"
End If
End Sub

Private Sub Command3_Click()
Randomize
For i = 1 To 5
x = Rnd * 100
sum = sum + x
Next i
If sum > 100 Then
MsgBox ">100"
Else
MsgBox "<100"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "任务"
Command2.Caption = "提高任务一"
Command3.Caption = "提高任务二"
End Sub

题目1
Dim i As Integer
Dim s As Long
s = 0
For i = 1 To 5
s = s +rnd()
Next i
If s > 3 Then
MsgBox ">3"
Else
MsgBox "<3"
End If
题目2
Dim i As Integer
Dim s As Long
s = 0
For i = 1 To 5