题目内容
（请给出正确答案）
Private Sub Command1_Click（）
x=Val（Text1.Text）
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除…”相关的问题
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
在窗体中建立一个文本框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.没有任何提示
A.1
B.2
C.3
D.4
（24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序
Private Sub Commandl_Click （）
Dim n
If Text1.Text＜＞ " 23456 " Then
n=n ＋ 1
Print " 口令输入错误 " & n & " 次 "
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是
A ）在 Dim n 语句的下面添加一句： n=O
B ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " +n+ " 次 "
C ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " &Str (n ) & " 次 "
D ）把 Dim n 改为 Static n
.jpg)
注意：
程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。
有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
.jpg)
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise40.vbp，窗体文件名为execise40.frm。
.jpg)
注意：
不得使用任何变量，只允许通过修改属性的方式移动文本框：文件必须存放在考生文件夹中，工程文件名为execise112.vbp，窗体文件名为execise112.frm。
在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2，标题分别为“身高”和“体重”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Cmd1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来，运行后的窗体如下图所示。
.jpg)
注意：
程序中不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为 execise21.vbp，窗体文件名为execise21.frm。
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
