单选题以下程序执行后，在窗体上输出的图案是( )。 Form1.Cls For a=1 To 5 Print Space(5-
单选题假定有以下函数过程： Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) sl=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As String，Str2 As String Strl=InputBox("请输入一个字符串") Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为( )。
单选题设用复制、粘贴的方法建立了—个命令按钮数组Command1，以下对该数组说法错误的是
A. 命令按钮的所有Caption属性都是Command1
B. 在代码中访问任意一个命令按钮只需使用名称Command1
C. 命令按钮的大小都相同
D. 命令按钮共享相同的事件过程
单选题在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Commandl_Click() S=0
Fori=1 To 15 x=2*i-1
If x Mod3=0 Thens=S+1 Nexti
Labe11.Caption=S End Sub
程序运行后，单击命令按钮，则标签中显示的内容是{{U}} {{/U}}。
A.1
B.5
C.27
D.45
单选题下面程序计算并输出的是______
单选题单击命令按钮时，下列程度段的执行结果为( )。 Pfivate Sub Command1_Click() Dima As Integer，b As Integer, c As Integer a=2:b=4:c=6 Call S1(a，b) Print "a="；a；"b="；b；"c="；c Call S2(a，b) Print "a="；a；"b="；b；"c="；c； End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub
单选题以下关于控件的叙述中，正确的是
单选题在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写 如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(By Val x) x=x*x f2=x+x+x End Function 程序运行后，单击命令按钮，在窗体上显示的是 ______。
单选题设有如下程序段： x=2 For i=1 To 10 Step 2 x= x+i Next 运行以下程序后，x的值是
单选题为了声明一个长度为128个字符的定长字符串变量StrD，以下语句中正确的是
单选题已知a＝6，b＝15，c＝23，则语句 Print Sgn(a＋b Mod 6－c/a)& a＋b 的输出结果为( )。
单选题下述程序执行后，输出结果是( )。 For n = 3 To 1 Step-1 x$ = String$(n, "#") Print x$ Next n
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim n As Integer For n = 0 To 9 Step 3 Print re1(n); Next n End Sub Private Function re1(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then re1 = i: Exit Function x = x + j Next j re1 = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是________。
单选题在Vistlal Basic中，所有标准控件都具有的属性是
单选题要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是
单选题设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。 Private Sub Check1_Chck(Index As Integer) For k=0 To List1．ListCount-1 If Check1(Index)．Caption=List1．List(k)Then Exit For End If Next k If k＜List1．ListCount Then List1．RemoveItem k Else List1．AddItem_______ End If End Sub为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是( )。
单选题要清除列表框中所有的列表项时，应使用( )方法。
单选题有如下程序：
Private Sub Form_Click()
Dim s As Integer,p As Integer
p=1
For i=1 To 4
For j=1 To i
s=s+j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End SubPrivate Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2)End Sub若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为( )。
单选题下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub