-
1假定有以下循环结构Do Until 条件表达式循环体Loop则以下正确的描述是（ ）。
A.如果“条件表达式”的值是 0，则一次循环体也不执行
B.如果“条件表达式”的值不为 0，则至少执行一次循环体
C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体
D.如果“条件表达式”的值恒为 0，则无限次执行循环体
开始考试点击查看答案 -
2在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A.2
B.3
C.4
D.5
开始考试点击查看答案 -
3在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click( ) X=5: Y=3 Call proc(X, Y) Label1.Caption=X Label2.Caption=YEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
A.25 和3
B.5 和3
C.25 和 6
D.5 和 6
开始考试点击查看答案 -
4以下关于过程及过程参数的描述中，错误的是（ ）。
A.调用过程时可以用控件名称作为实际参数
B.用数组作为过程的参数时，使用的是“传地址”方式
C.只有函数过程能够将过程中处理的信息传回到调用的程序中
D.窗体（Form）可以作为过程的参数
开始考试点击查看答案 -
5在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。
A.6
B.5
C.7
D.8
开始考试点击查看答案 -
6在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( ) Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print sEnd Sub运行上面的程序，其输出结果是（ ）。
A.1234
B.12
C.34
D.4321
开始考试点击查看答案 -
7设有如下通用过程：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=tStrEnd Function在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click( ) Dim S1 As String S1="abcdef" Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是（ ）。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
开始考试点击查看答案 -
8某人为计算 n!(0<n<=12)编写了下面的函数过程：Private Function fun(n As Integer) As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=pEnd Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误的方案是（ ）。
A.把 p=1 改为 p=n
B.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1
C.把 For k=n-1 To 2 Step-1 改为 For k=1 To n
D.把 For k=n-1 To 2 Step-1 改为 For k=2 To n
开始考试点击查看答案 -
9假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S, i, 1))+s1 Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim Str1 As String, Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print Srt2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（ ）。
A.ABCDEFG
B.abcdefg
C.GFEDCBA
D.gfedcban
开始考试点击查看答案 -
10为计算 a 的值，某人编写了函数 power如下：Private Function power (a As Integer, n As Integer) As Long Dim p As Long p=a For k=1 To n p=p*a Next k power=pEnd Function在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是（ ）。
A.把 For k=1 To n 改为 For k=2 To n
B.把 p=p*a改为 p=p^n
C.把 For k=1 To n 改为 For k=1 To n-1
D.把 p=a 改为 p=1
开始考试点击查看答案