在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Command1_Click()
Dim I As Integer
If Text1.Text<>"Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I<>4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"Gong",则程序运行结果为()
A.显示对话框,提示"密码帐号正确!"
B.显示对话框,提示"密码错误"
C.程序出错
D.没有任何提示
第1题
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text<>"Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I<>4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"Gong",则程序运行结果为()
A.显示对话框,提示"密码帐号正确!"
B.显示对话框,提示"密码错误"
C.程序出错
D.没有任何提示
第2题
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.没有任何提示
第3题
A.“项目”:[Forms]![Form1],“表达式”:[Forms]![Form1]![Text1]
B.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Text1]
C.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Command1]
D.“项目”:[Forms]![Form1]![Text1],“表达式”:[Fonns]![Form1]![Command1]
第4题
A.12
B.34
C.46
D.1234
第5题
A.visual basic
B.VISUAL BASIC
C.basic
D.BASIC
第6题
第7题
Private Sub Command1_Click()
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是( )。
A.空
B.abcdef
C.abc
D.def
第8题
第9题
A.Open "datl. dat", For lnput As#1 Write井1,S
B.Open"datl. dat" For Output As#1 Write#1, S
C.Open"dat", For Binary As #1 Write #1, S Close #1
D.Open datl. dat"For Random As #1 Write #1, S Close #1
第10题
程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为( )。
A.20是一个奇数
B.20
C.20是一个偶数
D.2
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!