vb6.0中实时错误424,要求对象是怎么回事
PrivateSubCommand1_Click()DimmyNum()AsIntegerDimiAsIntegerDimmySumAsIntegerDimjAsInte...
Private Sub Command1_Click()
Dim myNum() As Integer
Dim i As Integer
Dim mySum As Integer
Dim j As Integer
i = InputBox("请输入你要输入的整数个数:", "输入整数", 1)
ReDim myNum(i - 1)
mySum = 0
Label3.Caption = ""
For j = 0 To i - 1
myNum(j) = InputBox("请输入第" & j + 1 & "个整数:", "输入整数", 0)
If j = i - 1 Then
Label3.Caption = Label3.Caption & myNum(j)
Else
Label3.Caption = Label3.Caption & myNum(j) & "+"
End If
mySum = mySum + myNum(j)
Next
Label4.Caption = mySum
End Sub
Label3.Caption = ""变成黄色 展开
Dim myNum() As Integer
Dim i As Integer
Dim mySum As Integer
Dim j As Integer
i = InputBox("请输入你要输入的整数个数:", "输入整数", 1)
ReDim myNum(i - 1)
mySum = 0
Label3.Caption = ""
For j = 0 To i - 1
myNum(j) = InputBox("请输入第" & j + 1 & "个整数:", "输入整数", 0)
If j = i - 1 Then
Label3.Caption = Label3.Caption & myNum(j)
Else
Label3.Caption = Label3.Caption & myNum(j) & "+"
End If
mySum = mySum + myNum(j)
Next
Label4.Caption = mySum
End Sub
Label3.Caption = ""变成黄色 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询