题目
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
第1题
Private Sub Command1_Click()
num=Val(Text1.Text)
If 【8】 Then
Print num
Else
Text1.Text=""
【9】
End If
End Sub
第2题
Private Sub Commandl_Click()
x=Val(Text1.Text)
If [9] Then
PrintX
Else
Text1.Text=""
[10]
End If
End Sub
第4题
第6题
第7题
第8题
第9题
A. x%4=1 And x%5=2
B. x%4=1 Or x%5=2
C. x Mod 4=1 And x Mod 5=2
D. x Mod 4=1 Orx Mod 5=2
第10题
在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为()
A.显示对话框,提示信息为"帐号正确"
B.显示对话框,提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!