UC知道vb 424错误
来源：百度知道 编辑：UC知道 时间：2024/09/23 04:51:17
Private Sub Form_Load()
Dim a As Integer
a = Text1.Text
Dim i As Integer
i = a Mod 2
If (i = 0) Then
Print "这个是一个偶数"
Else: Print "这个是一个奇数"
End If
End Sub
做这个的时候总是弹出实时错误，424，要求对象
Dim a As Integer
a = Text1.Text
Dim i As Integer
i = a Mod 2
If (i = 0) Then
Print "这个是一个偶数"
Else: Print "这个是一个奇数"
End If
End Sub
做这个的时候总是弹出实时错误，424，要求对象
'你试看看以下的代码:
Private Sub Command1_Click()
On Error GoTo err:
Dim a As Integer
a = Text1.Text
Dim i As Integer
i = a Mod 2
If (i = 0) Then
Print "这个是一个偶数"
Else: Print "这个是一个奇数"
End If
Exit Sub
err:
MsgBox "您还没有填入数据或者数据类型不符!"
End Sub
你必须在窗体上画一个文本框控件，才能运行这段代码的。
1、错误的原因在于你的text1的内容不是数字。
2、print的内容看不到，改放在Command1_Click中运行。