21在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是（ ）。
A.4321
B.1234
C.34
D.12
开始考试练习点击查看答案22假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是（ ）。
A.数组中每个命令按钮的名称（Name属性）均为Command1
B.若未做修改，数组中每个命令按钮的大小都一样
C.数组中各个命令按钮使用同一个Click事件过程
D.数组中每个命令按钮的Index属性值都相同
开始考试练习点击查看答案23在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As IntegerFor k=0 To 2A1 (k+1) = InputBox("请输入一个整数")A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
A.0
B.1
C.2
D.3
开始考试练习点击查看答案24以下关于函数过程的叙述中，正确的是（ ）。
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数没有数据类型
开始考试练习点击查看答案25在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label)L.Caption="1234"End SubPrivate Sub Form_Load()Label1.Caption="ABCDE"Label2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
开始考试练习点击查看答案26在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Funl (ByVal a As Integer, b As Integer) As IntegerDim t As Integert=a-bb=t+aFunl=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx=10Print Funl (Funl (x, (Funl (x, x-1))), x-1)End Sub程序运行后，单击命令按钮，输出结果是（ ）。
A.10
B.0C.11D.21
开始考试练习点击查看答案27以下关于过程及过程参数的描述中，错误的是（ ）。
A.过程的参数可以是控件名称
B.调用过程时使用的实参的个数应与过程形参的个数相同
C.只有函数过程能够将过程中处理的信息返回到调用程序中
D.窗体可以作为过程的参数
开始考试练习点击查看答案28设有如下通用过程：Public Function Fun (xStr As String) As StringDim tStr As String, strL As IntegertStr=""strL=Len (xStr)i=strL/2Do While i<=StrLtStr=tStr & Mid (xStr,i+1,1)i=i+1LoopFun=tStr & tStrEnd Function在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1="ABCDEF"Textl.Text=LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是（ ）。
A.ABCDEF
B.abcdef
C.defdef
D.defabc
开始考试练习点击查看答案29在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Textl），并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()ShowTextl.Text=""Textl.SetFocusEnd SubPrivate Sub Command1_Click()Textl.Text=LCase (SaveAll) +SaveAl1End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（ ）。
A.vbVB
B.不显示任何信息
C.VB
D.出错
开始考试练习点击查看答案30设有以下程序：Private Sub Form_Click()x=50For i=1 To 4y=InputBox("请输入一个整数")y=Val(y)If y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
A.100
B.50
C.120
D.70
开始考试练习点击查看答案