单选题设有以下函数过程
Private Function Fun(a()As Integer, b As String)As Integer
End Function
若已有变量声明：
Dim x(5) As Integer, n As Integer, ch As String
则下面正确的过程调用语句是______。
单选题以下不能用Print方法输出数据的对象或窗口是( )。
单选题下列不能扫开菜单编辑器的操作是( )。
单选题设有如下程序段： Dim a(10) ... For Each x ln a Print x; Next x 在上面的程序段中，变量x必须是( )。
单选题执行如下语句：a＝inputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是（ ）
单选题在对象引用中，ActiveControl表示( )
单选题假定有下列函数过程： Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) S1=LCass(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As String,Str2 As String Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) Print Srt2 End sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为( ) A．ABCDEFG B．abcdefg C．GFEDCBA D．gfedcba
单选题有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X、Y处画一个点)： Dim cmdMave AS Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) cmdmave=False End Sub 此程序的功能是
单选题在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Dim e As Integer，d As Integer d=0 c=6 X=Array(2，4，6，8，10，12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c Eles If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为( )。
单选题下列说法错误的是
A. Caption不是只读属性，运行时对象的名称可以通过代码改变
B. 设置Height或Width的数值单位为twip，1twip=1/10point
C. Icon属性用来设置窗体最小化时的图标
D. 用来激活属性窗口的快捷键是F4键
单选题在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，默认文件名为SaveFile，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 ______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim s As String, i As Integer
Dim n As Integer
s = InputBox("输入数据")
n = Len(s)
For i = 1 To n / 2
If __________________________ Then
Exit For
End If
Next i
If i > n / 2 Then
Print s & "是对称字符串"
Else
Print s & "不是对称字符串"
End If
End Sub
该过程的功能是判断输入的字符串是否为对称字符串（例如："1234321"、"XYZZYX"都是对称字符串）。为了实现这一功能，则在横线处应填入的表达式是
单选题可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是
单选题有如下数据定义语句： Dim X. Y As Integer 以上语句表明( )。 A) X、Y均是整型变量 B) X是整型变量，Y是变体类型变量 C) X是变体类型变量，Y是整型变量 D) X是整型变量，Y是字符型变量
单选题下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。
单选题要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是
单选题单击一次命令按钮之后，窗体中的输出结果为______ 。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a, b) Print a, b End Sub Sub writein(a, ByVal b) b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub
单选题程序：
AA=0
FOR I=2 TO 100 STEP 2
AA=AA+I
ENDFOR
?AA
RETURN
该程序得到的结果为( )
单选题在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签kabel1中显示当前文件夹中文件的数量，如图所示。能够正确实现上述功能的程序是
单选题窗体上有1个名称为Commandl的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序：Private Sub Commandl_Click() Dim x As String，s As String，temp As String Dim iAs Integer x=InputBox("输入字符串"，"输入") Ifx＜＞""Then For i=Len(x)To 1 Step-1 s=Mid(x，i，1) If S＜＞""Then temp=s+temp Else List1．AddItem temp s=""：temp="" End If Next List1．AddItem temp Else MsgBox"输入内容为空!" End IfEnd Sub程序运行后，单击命令按钮Commandl，并输入“Happy new year”，则在Lis1中显示的内容为