单选题窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。A)在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)B)菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C)在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”)D)在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”
单选题设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。
A.|x|
B.-|x|
C.X
D.-x
单选题给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop
单选题设A="87654321"，则表达式Vd(LeR(A,4)+Mid(A,4,2))的值为( )。
单选题在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() Text2.Text=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是
单选题设窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器，并有下面程序代码：
Private Sub Form_Load( )
Timer1. Enabled = False
Timer1. Interval = 500
End Sub
Private Sub Command1_Click( )
Timer1. Enabled = True
End Sub
Private Sub Timer1_Timer( )
If Command1. Left ＞ 0 Then
Command1. Left = Command1. Left - 100
End If
End Sub
下面叙述中正确的是______。
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25) As Integer, ch As String ch = UCase(InputBox("请输入字母字符串")) For k=1 To Len(ch) n = Asc(Mid (ch, k, 1)) - Asc("A") If n ＞ = 0 Then count (n) = count (n) + 1 End If Next k m = count(0) For k=1 To 25 If m ＜ count(k) Then m = count (k) End If Next k Print m End Sub A) 0 B) 1 C) 2 D) 3
单选题窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：PrivateSubCommand1_Click()Callcalc(HV．Value，HT．Value)EndSubPublicSubCalc(xAsInteger，yAsInteger)Text1．Text=x*yEndSub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是()。
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写 如下事件过程
Private Sub Form_Load() List1.AddItem "Item1" List1.AddItem "Item2" List1.AddItem "Item3"
End Sub
Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA"
End Sub
程序运行后，单击命令按钮，其结果为______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = 2 For i = 1 To 3 Call fun1(i, a) Next i x = i + 2 Print x; a End Sub Private Sub fun1(n, m) m = m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
单选题在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) Text1. Text = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______ 。
单选题一个关系中属性个数为l时，称此关系为
单选题对窗体编写如下事件过程： Private Sub Form_ Mouse Down(Button As
Integer，Shift As Integer，X AS Single，Y As Single) If
Button=2 Then Print "AAAAA" End
if End Sub Private Sub Form _ MouseUp(Button
As Integer，Shift As Integer，X As Single，Y As Single)
Print "BBBBB" End Sub
程序运行后，如果单击鼠标右键，则输出结果为 ______。
A. AAAAA BBBBB
B. BBBBB AAAAA
C. AAAAA
D.BBBBB
单选题执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step一2 X=Mid(a，i，i)：Y=Lett(a，i) z=Right(a，i)：z=UCase(X Y z) Next i Print z 输出的结果是
单选题设有数组声明语句： Option Base 1 Dim A(2,-1 To 1) 以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。下列选项正确的是( )。
单选题下面对语句："Open" Text. Dat "for Output As # FreeFile" 的功能说明中错误的是______。
单选题图片框与图像框的区别是图片框可以作为其他控件的父对象，即为容器控件，而图像框 只能
单选题窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click()
For i=0 To List1.ListCount-1
If List1.Selected(i)=True Then
List2.AddItem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer) As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Pdvate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
单选题下面关于单选按钮和复选框的叙述中正确的是