Question

老师给布置了几道VB题，哥哥姐姐帮帮我吧！我不会VB啊

用户利用InputBox函数随机输入12个0－100之间的整数，统计出小于60，60到70，70到80，80到90以及90到100范围的整数各有多少个？用Msgbox函数显示输出结果。

编制程序要求输入整数a和b，若a2+b2大于100，则输出a2+b2百位以上的数字，否则输出两数字之和。结果利用Msgbox函数输出

我还有好多题目呢啊 哪位哥哥姐姐愿意帮帮小妹啊！！！我给你们把题目发过去！

Answer 1

第一题：
Private Sub Command1_Click()
Dim s As Integer, i As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer
For i = 1 To 12
replay:
s = InputBox("输入0-100之间的整数")
If s < 0 Or s > 100 Then
MsgBox "输入0-100之间的整数", vbCritical, "错误"
GoTo replay
End If

If s > 90 And s <= 100 Then
a5 = a5 + 1
ElseIf s > 80 And s < 90 Then
a4 = a4 + 1
ElseIf s > 70 And s < 80 Then
a3 = a3 + 1
ElseIf s > 60 And s < 70 Then
a2 = a2 + 1
ElseIf s < 60 Then
a1 = a1 + 1
End If

Next

MsgBox "0 -60的数有 " & a1 & " 个" & Chr(10) & Chr(13) _
& "60-70的数有 " & a2 & " 个" & Chr(10) & Chr(13) _
& "70-80的数有 " & a3 & " 个" & Chr(10) & Chr(13) _
& "80-90的数有 " & a4 & " 个" & Chr(10) & Chr(13) _
& "90-100的数有 " & a5 & " 个"
End Sub

第二题
Private Sub Command2_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入一个整数", "输入第一个整数")
b = InputBox("请输入二个整数", "输入第二个整数")
If a + b > 100 Then
MsgBox "两数之和大于100，现输出后面两位数：" & Right(Str(a + b), 2)
Else
MsgBox "两数之和小于100，现输两数之和：" & a + b
End If
End Sub

以上测试通过

追问

我还有好几道题目呢，能帮帮我吗？ 谢谢了

追答

我有全套20道题的答案。是另外一个同学让我帮他做的，你要的话把你的邮箱发过来，我发给你