单选题设有如下通用过程： Public Sub Fun(a()，By Val x As
Integer) Fori=1 To 5
x=x+a(i) Next End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub
Commandl_Chck() Dimart(5)As Variant
Fori=1 To 5 arr(i)=i
Next n=10 Call
Fun(alt()，n) Text1.Text=n End
Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是{{U}} {{/U}}。
A.10
B.15
C.25
D.24
单选题窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_ClickO Dim In As Integer In=______ List. Remove Ind End Sub 则在程序的空白行的语句是( )。
单选题为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为
单选题有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub
单选题一个工作人员可使用多台计算机，而一台计算机被多个人使用，则实体工作人员与实体计算机之间的联系是
单选题已知变量x、y为整数型，且x=4，y=12，s为字符串型，且s=a，LblOk为标签控件，下列赋值语句不合法的是( )。
单选题以下关于菜单的叙述中，错误的是( )。 A) 当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器 B) 把菜单项的Enabled属性设置为False，则可删除该菜单项 C) 弹出式菜单在菜单编辑器中设计 D) 程序运行时，利用控件数组可以实现菜单项的增加或减少
单选题设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=
strL=Len(xStr)
i=1
Do While i＜=strL/2
tStr=tStr Mid(xStr，i，1) Mid(xStr, strL-i+1，1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1=abcdef
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是______。
单选题请阅读程序：
Private Sub Form_ Click（）
m=1
For i=4 To 1 Step-1
Print Str（m）；
m=m＋1
For j=1 To i
Print”＊”；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是
单选题
单选题在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入Alp().txt文件中(无双引号界定符)。请选择横线处合适的语句( )。 Private Sub Form Load() Dim Strln As String, StrOut AS String Open "C: /Alph.txt" For Input As#1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open "C: /AIpO.txt" For Output As#2 ______ Close Fnd Sub Private Function StrSort(s As String)As String Dim sArr()As String *1, j As Integer, J As Integer, n As Integer DimtAS String*1 n=Len(s) ReDim sArr(n) For i=1 To n sArr(i)=Mid(s，i，1) Next i For i=1 To n. 1 For j=i+1 To n If sArr(i)＞sArrj Then t=sArr(i):sArr(i)=sArr(i):sArr(j)=t EndIf Next i, i For i=1 To n StrSort=StrSort＆sArr(i) Nexti End Function
单选题设栈S的初始状态为空，栈的容量为5，若入栈的元素的顺序是e1、e2、e3、e4、e5，则出栈元素的顺序不可能是
______。
单选题有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next i Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next i Print arr(3,2); arr(3,4) End Sub 程序运行后，单击窗体，输出结果为( )。 A) 8 13 B) 0 13 C) 7 12 D) 0 0
单选题下列程序的执行结果为( )。
A="5"：B="6"
A=Val(A)+Val(B)
B=Val("56")
IfA<>B Then Print A-B Else Print B-A
单选题设有如下事件过程： Private Sub Command1_Click()Dim a Private Function fun(x，y)As Integer a=Array(12，3，8，5，10，3，5，9，2，4) Do While x>=y For k=1 To 9 x=x-Y Print fun(a(k-1)，a(k))；""； Loop Next k fun=x End Sub End Function 程序运行时的输出结果是
单选题假定编写了如下的Sub过程：
Public Sub Proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i＜2
End Sub
编写如下事件过程：
Private Sub Form_Click()
Dim m As Integer, i As Integer, x(4) As Integer
For i=0 To 4
x(i)=i+1
Next i
For i=1 To 2
Call Proc(x())
Next i
For i=0 To 4
Print x(i);
Next i
End Sub
运行程序，单击窗体，输出结果是______。
单选题为把一个记录型变量写入文件中指定的位置，所使用语句的格式为______。
单选题以下不属于单选按钮的属性是
单选题下列程序段的执行结果为{{U}} {{/U}}。 Form1.Cls
a="ABBACDDCBA" For i=6 To 2 Step-2
x=Mid(a,i,i) y=Left(a,i)
z=Right(a,i) z=x&y&z Nexti
Print z
A. ABC
B. BBABBA
C. ABBABA
D. AABAAB
单选题执行以下语句过程，在窗体上显示的内容是( )。 Option Base 0 Private Sub Command3_Click() Dim d d=Array(“a”,“b”,“c”,“d”) Print d(1)：d(3) End Sub A) ab B) bd C) ac D) 出错