单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=5 : y=2 Call sub1((x)，y) Print x;y End Sub Private Sub sub1(m，n) t=m : m=n : n=t End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题假定Picturel和Text1分别为图片框和文本框的名称，下列不正确的语句是
单选题有下列事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(a)
b=InputBox("请输入b的值")
b=Val(b)
a=a*b
Loop
Print a
End Sub
程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。
单选题运行下列程序： Private Sub Command1_Click( ) x = 0 Do While x ＜ 10 x = x * x + 1 y = y + x Loop MsgBox y End Sub 单击Command1命令按钮后，则弹出的消息对话框中显示________。 (A) 5 (B) 8 (C) 26 (D) 34
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母( )。
单选题以下关于菜单的叙述中，错误的是( )。
单选题鼠标拖放控件要触发两个事件，这两个事件是
单选题软件详细设计工具中，{{U}} {{/U}}可以很容易地表示基本结构的嵌套关系。
A. 程序流程图
B. N-S图
C. 问题分析图
D. PDL
单选题窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenxCaption="计算机等级考试"ElsexPicture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序，下列叙述中错误的是______。
单选题设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.Text＜＞"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是{{U}}{{/U}}A.文本框中无内容，焦点在文本框中B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点的按钮上D.文本框中为“VisualBasic”，焦点的按钮上
单选题设a=6，则执行 x=IIF(a＞5，-1,0) 后，x的值为 ______。
单选题有下列语句序列：
Y=″99.88″
X=VAL(Y)
?&Y=X
执行以上语句序列之后，最后一条命令的显示结果是( )
单选题如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是
单选题下列程序的执行结果为______。
单选题设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20：y=2：f=x*y End Function 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10：y=5：y=f(x)Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母{{U}}
{{/U}}
A.这3个事件都会触发
B.只触发KeyPress事件
C.只触发KeyDown、KeyUp事件
D.不触发其中任何一个事件
单选题在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAseii) ＜ ＞ Then ss = ss + Chr(KeyAseii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i = Len(ss) To 1 Step - 1 m =m +Mid(ss, i, 1) Next Text1. Text = UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是( )。 A) NUMBER 100 B) REBMUN C) REBMUN 100 D) 001 REBMUN
单选题设工程中有两个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
菜单结构
标题
名称
级别
成绩管理
mark
1
成绩查询
query
2
成绩录入
input
2
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher"Then
Form2.input.Visible=True
Else
Form2.input.Visible=FaIse
End If
End If
Form1.Hide
Form2.Show
End Sub
序运行时发现刚输入口令时就隐藏了Form1显示了Form2，程序需要修改。下面修改方案中正确的是______。
单选题编写如下事件过程：
Private Sub Form_MouseDown(Button AS Integer，Shift AS Integer，_
X As Single，Y As Single)
If Shift=6 And Button=2 Then
Print，"PC"
End If
End Sub
程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。
单选题下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。在横线处应填写( )。Private Sub Form_Click()Dim i As Integer，tt As IntegerFor i=1To5tt=Sum(i)：Print"tt="；tt，Next iEnd SubPrivate Function Sum(_______)_______J=j+n：Sum=jEnd Function