VB“inputbox”问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:14:32
我用inputbox输入数据时，要输入5个数据，当输入不到5个，我点取消就会出现错误提示，说是类型不匹配，怎么处理，我是vb超菜鸟！我想要的效果是：输入几个数据点取消按钮，就不进行任何操作，怎么弄？
Private Sub Command1_Click()
Dim c(5) As Integer
Dim i As Integer, total As Integer, average As Integer
For i = 1 To 5
c(i) = InputBox("请输入第" & Str(i) & "个同学的成绩：")
Text1.Text = Text1.Text + "第" & Str(i) & "个同学的成绩是：" & c(i) & Chr(13) & Chr(10)
Next i
total = 0
For i = 1 To 5
total = total + c(i)
Next
average = total / 5
Text1.Text = Text1.Text + "5位同学的总成绩：" & total & Chr(13) & Chr(10)
Text1.Text = Text1.Text + "5位同学的平均成绩：" & Format(average, "##.0") & Chr(13) & Chr(10)
End Sub
如何判断用户输入的数据是不是数字，用什么函数或语句，谢谢！！ 谢谢大家的热心

'建立一个text1并把它的MultiLine = True,再建立两个command1和2
Private Sub Command1_Click()
Dim A As String, Num As Boolean
Dim C(5) As Single
Dim I As Byte, J As Byte, Total As Integer, Average As Integer
Text1.Text = ""
For I = 1 To 5
Do
A = InputBox("请输入第" & Str(I) & "个同学的成绩：")
Num = True
For J = 1 To Len(A)
If Asc(Mid(A, J, 1)) <> 46 And (Asc(Mid(A, J, 1)) < 48 Or Asc(Mid(A, J, 1)) > 57) Then Num = False: Exit For
Next
If Val(A) < 0 Then Num = False
Loop While Not Num
If A = "" Then Text1.Text = "": Exit Sub
C(I) = Val(A)
C(I) = Format(C(I), "000.0")
Text1.Text = Text1.Text + "第" & Str(I) & "个同学的成绩是：" & C(I) & Chr(13) & Chr(10)
Next I
Total = 0