在窗体上画一个名称为 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程序运行后，单击命令按钮，在文本框中显示的值是（    ）。

试卷相关题目

• 1在窗体上画一个名称为 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

  开始考试点击查看答案
• 2以下关于过程及过程参数的描述中，错误的是（    ）。

  A.调用过程时可以用控件名称作为实际参数

  B.用数组作为过程的参数时，使用的是“传地址”方式

  C.只有函数过程能够将过程中处理的信息传回到调用的程序中

  D.窗体（Form）可以作为过程的参数

  开始考试点击查看答案
• 3在窗体上画一个名为 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

  开始考试点击查看答案
• 4在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：Private Sub Command1_Click( )  Counter=0  For i=1 To 4    For j=6 To 1 Step -2      Counter=Counter+1    Next j  Next i  Label1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（    ）。

  A.11

  B.12

  C.16

  D.20

  开始考试点击查看答案
• 5窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )  m=InputBox("请输入一个正整数")  ReDim a(m)End SubPrivate Sub Command2_Click( )  m=InputBox("请输入一个正整数")  ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是（    ）。

  A.5

  B.6

  C.10

  D.11

  开始考试点击查看答案
• 6假定有以下循环结构Do Until  条件表达式循环体Loop则以下正确的描述是（    ）。

  A.如果“条件表达式”的值是 0，则一次循环体也不执行

  B.如果“条件表达式”的值不为 0，则至少执行一次循环体

  C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体

  D.如果“条件表达式”的值恒为 0，则无限次执行循环体

  开始考试点击查看答案
• 7在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )  Dim I, Num  Randomize  Do    For I=1 To 1000      Num=Int(Rnd*100)      Print Num;      Select Case Num        Case 12          Exit For        Case 58          Exit Do        Case 65, 68, 92          End      End Select    Next I  LoopEnd Sub上述事件过程执行后，下列描述中正确的是（    ）。

  A.Do 循环执行的次数为 1000 次

  B.在 For循环中产生的随机数小于或等于 100

  C.当所产生的随机数为 12 时结束所有循环

  D.当所产生的随机数为 65、68 或92时窗体关闭、程序结束

  开始考试点击查看答案
• 8在窗体上画一个名为 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

  开始考试点击查看答案
• 9设有如下通用过程：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 &amp; Mid(xStr, i, 1)&amp; 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

  开始考试点击查看答案
• 10某人为计算 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

  开始考试点击查看答案