帮忙设计vb程序

来源：百度知道 编辑：UC知道 时间：2024/05/07 08:45:27
任务
打开VB，在窗体中插入一个按钮，点击按钮可实现如下功能：用户有5次机会通过弹出窗口任意输入5个数，若这5个数加起来大于100，则利用弹出窗口输出“>100”，否则输出“<100”。

关键语句提示
1、5个数字的累加可参考语句：xw=xw & xz，在该语句中，利用xz记录密文中的每一个字符，利用xw记录逐渐形成的密文串，利用“&”把xz记录的的每一个字符一个接一个地串起来，而本任务是把用户输入的数值一个接一个地加起来。

2、本任务中需要把分支语句和循环语句结合起来使用
1、定义至少两个变量，一个接收用户输入的数据，另一个求输入的数据累加后的值
2、利用循环语句，实现输入5次数据和累加5次的功能

3、利用分支语句，对求出的和进行判断，依据题目要求输出结果

程序的大致结构如下：
Dim
for i= to （需要重复做多少次）
计算机需要重复做的事情
next
if then

else

endif

提高任务
1、再画一按钮，实现功能：由计算机随机产生5个随机数，若这5个数加起来大于3，则利用弹出窗口输出“>3”，否则输出“<3”。
* 能产生随机数的函数是rnd()，该函数产生的随机数范围是0~1，（）内不需填任何内容

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

麻烦vb程序设计高手了……高一的电脑机试

Private Sub Command1_Click()
Dim i As Integer, sum As Integer
For i = 1 To 5
n = Val(InputBox("输入第" & i & "个数"))
sum = sum + n
Next i
If sum > 100 Then
MsgBox ">100"
Else
MsgBox "<100"
End If
End Sub

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

这么多字，估计没人看，在这里你最好，把你哪部分不了解