单选题通用对话框Filter属性的作用是
单选题窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Text1. Text; End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为( )。 A) 123 B) 112 C) 12123 D) 112123
单选题有如下程序： Dim arr (3,3)
For j=1 To 3 For k=1 To 3
arr(j,k)=(j-1)*3+k Next
k Next j For j=2 To 3
For k=2 To 3
Print arr(k,j); Next k
Print Next j
运行程序后，输出的结果是______________。
A.25 36
B.58 69
C.47 58
D.59 68
单选题有如下程序：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim sum As Integer
n=1
Do
j=1
Do
sum=sum+j
j=j+1
Print j;
Loop Until j＞3
n=n+2
Loop Until n＞10
Print sum
End Sub
运行上述程序，外层Do循环执行的次数为______。
单选题下面的程序运行时，若输入395，则输出结果是 Private Sub Command1_Click() Dim x% x=InputBox("请输入一个3位整数") Print x Mod 10, x/100, (x Mod 100)/10 End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。
单选题有如下程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+2 F=a+b+c End Function Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print F(
单选题以下程序段的输出结果为
x=1
y=4
Do Until y＞4
x=x*y
y=y+1
Loop
Print x
单选题有如下程序： Private Sub Form_Click() Dim i As Integer，n As Integer For i=1 To 20 i：i+4：n=n+i Ifi>10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是
单选题设窗体上有一个文本框Text1和一个命令按钮Commandl，并有以下事件过程： Private Sub Commandl—Click() Dim s As String，eh As String s=“” For k=1 To Lea(Textl) ch=Mid(Text1，k，1) s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
单选题编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=3：b=2
If a*b0
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题运行如下程序Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) / 7 Then n = n + 1 End If Next j Next Print n End Sub则n的值是( )
单选题如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件，那么执行语句Open" c:/ studata.dat" For
Append As #1之后，将
A. 删除文件中原有内容
B. 保留文件中原有内容，并在文件尾填加新内容
C. 保留文件中原有内容，并在文件头填加新内容
D. 以上均不对
单选题假定有以下函数过程：
Function fun(S As String)
Dim S1 As String
For i=1 To Len(S)
S1=LCaes(Mid(S，i，1))+S1
Next i
Fun=S1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String，str2 As String
Str1=InputBox("请输入一个字符串")
str2=Fun(str1)
Print Str2
End SUb
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“AbCDefG，则单击“确定”按钮后在窗体上的输出结果为
____
。
单选题如下图所示的四个CheckBox中，可以选择的个数最多为_______。
单选题在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是______。
单选题为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是
单选题以下变量名中合法的是
单选题在下列栈的基本运算中，不是加工型运算的是______。
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框( )。 Private Sub Command1_Click() Text1．Text="程序设计"：Text1．SetFocus End Sub Private Sub Text1_GotFocus() Text1．Text="等级考试" End Sub 运行以上程序，单击命令按钮后( )。