单选题Print Format$(32556，"#######")；Format$(32556，"###")的输出结果是( )。
单选题给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20 Counter = Counter +1 if Counter = 10 then Check=False exit do End if Loop Loop until Check=False MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。
单选题使用Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是
单选题对如图1所示的二叉树进行后序遍历的结果为
单选题设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。 A) LoadPicture("File1.jpg") B) Picture1.Picture="File1.jpg" C) Call LoadPicture("File1.jpg") D) Picture1.Picture=LoadPicture("File1.jpg")
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii) 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 运行程序后，在文本框中输入"Visual Basic 2011"，并单击命令按钮，则文本框中显示的是______。 A) VISUAL BASIC B) ISUAL BASIC 2011 C) CISAB LAUSIV 2011 D) 1102 CISAB LAUSIV
单选题现有语句：y=IIf(x＞0, x Mod 3, 0) 设x=10，则y的值是( )。 A) 0 B) 1 C) 3 D) 语句有错
单选题运行下列程序时，输出的结果是( )。 Private Sub Form_Click() Dim x X=Array("Software"，"and"，"Hardware"，"System") For i=LBound(x，1)To UBound(x，1) If Left(x(i)，1)="S"Then Print x(i)； Next i End Sub
单选题当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?
单选题下面的程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Command1_Click() Dim count(25) As Integer, ch As String ch=Uease(InputBox("请输入字母字符串")) For k=1 To Len(eh) 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
单选题设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,A)
End Sub
Private Sub g(f As Form, x As Integer)
y=IIf(x＞10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是______。
单选题对于文本框Text1，能够获得按键的ASCII码值的事件过程是
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim nAs Integer Private Sub Timer1 Timer() ch：Chr(n+Asc(”A”))：Label1．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中
单选题编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=3:b=2
If a*b＜10 Then
b=b+1
Else
b=b-1
End If
Print b-a＞0
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer)As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
If i=1 Then x=i
If i＜=4 Then x=x+l
Print x;
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为
单选题以下表达式与Int(3．5)的值相同的是
单选题阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是
单选题若想使时钟控制每隔0.25秒触发一次Timer()事件，则可将Interval属性值设为
单选题下列关于图片框的语句中不正确的是( )。