题目内容
（请给出正确答案）
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
如果结果不匹配，请 联系老师 获取答案
更多“在名称为Form1的窗体上画两个标签（名称分别为Label1…”相关的问题
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
在名称为Form1
的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。
A．4
B．5
C．6
D．7
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static A As Integer
Static B As Integer
Cls
B=2
B=B+3
A=3+A
printA，B
EndSub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为()。
A、35
B、66
C、95
D、33
在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（）
Open"d:\temp\dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
lf【13】=13 Then
If UCase（Text1.Text）=______Then
Close 1
End
Else
Write#1,______
Text1.Text=""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
A．7 9
B．34 0
C．9 7
D．死循环
编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。
.jpg)
窗体标题设置为“售货机”，窗体上的两个标签(分别命名为Lab1和Lab2，标题为“货物的数据量(个)：”和“贸物的单价(元)：”)”两个文本框分别命名为Text1和Text2，命令按钮名称为Cmd1(标题为“总价=”，结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后，单击“总价=”按钮，输出正确的结果。
注意：
在存盘时，工程文件名为execise60.vbp，窗体文件名为execise60.frm。
(1)将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件，控件名称不变，标签标题不变。设置组合框控件的相关属性，以实现从下拉列表中选择输入性别值“男”和“女”。
(2)将查询对象“qEmp”改为参数查询，参数为窗体对象“fEmp”上组合框“tSS”的输入值。
(3)将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求依据“党员否”字段值显示相应内容。如果“党员否”字段值为True，显示“党员”两个字；如果“党员否”字段值为False，显示“非党员”三个字。
(4)在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
注意：不允许修改数据库中的表对象“tEmp”：不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
Private Sub Command1_Click()
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x< y then
t = x
x = y
y = t
End If
If y< z then
t = y
y = z
z = t
If x< y then
t = x
x = y
y = t
End If
End If
Label1.Caption = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为()
A.3,5,8
B.5,3,8
C.8,5,3
D.3.8.5
