单选题将代数表达式Cos
2
(a+b)+5e
2
写成Visual Basic的表达式，其正确的形式是
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为( )。
单选题在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是( )。
单选题运行下面的程序后，输出的结果为( )。
Cls
Dim t(5，5) as Integer
For i=1 To 5：t(i，i)=1：Next
For i=1 To 5
For j=1 To 5
Print t(i，j)，
Next j
Print
Next I
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()ch=Chr(n+Asc("A"))Label1.Caption=chn=n+1n=n Mod 4End Sub运行程序，将在标签中
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )
Dim x As Integer, y As Integer
Dim s As String
s = "2013-2014"
x = Int(Rnd(1)) + 100
y = Val(Left(s, 3))
Select Case x + y
Case Is ＞ 301
Print "分支1"
Case 300 To 301
Print "分支2"
Case Is ＜ 301
Print "分支3"
End Select
End Sub
程序运行时，单击Command1，则在窗体上输出的结果是______。
单选题下列说法中，错误的是( )。
单选题阅读程序： Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2 F=a*b*c
End Function Private Sub Commandl _ Click(
) Dim a As Integer
a=2 For i = 1 To 2
Print Fun (a);
Next End Sub
运行上面的程序，单击命令按钮，输出结果为
A. 8 16
B. 9 18
C. 10 20
D. 7 14
单选题设窗体上有1个名称为Commandl的命令按钮，并编写了下面的事件过程：Private Sub Commandl—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print X，YEnd Sub运行程序后，当用鼠标单击命令按钮时，则输出的是( )。
单选题下列各控件不包含有滚动条的控件是______。
单选题窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
单选题希尔排序法属于哪一种类型的排序法______。
单选题一个标准的VB应用程序至少要包含一个（ ）对象
单选题设有下面的程序段：
x=InputBox("请输入一个整数")
ReDim a(x)
For k=x To 0 Step-1
a(k)=k
Next k
一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是______。
单选题在Visual Basic工程中，可以作为“启动对象”的程序是
单选题用于获得字符串S从第3个字符开始的3个字符的函数是
单选题在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1 Click事件过程中能正确实现上述功能的语句是( )。
单选题对于语句Dim Var1 ，Var2 As Integer，下列说法中正确的是
单选题在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Text1．Text=””：Text1．SetFocusEnd SubPrivate Sub Form_Click() Dim a As String，S As String a=Text1．Text：S="" For k=1 To Len(a) S=UCase(Mid(a，k，1))+S Next k Text1．Text=SEnd Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。