一、选择题
1、无条件转移GoTo语句后面是（A）
A、标号或行号
B、输出语句
C、输入语句
D、子过程
2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）
A、冒号
B、分号
C、逗号
D、空格
3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）
A、必须唯一
B、可以重复
C、以数字开头
D、以汉字开头
4、while循环结构中的条件表达式取值为（A）
A、True
B、False
C、True或False
D、0
5、while循环结构中的条件表达式取值为（A）时执行语句组
A、True
B、False
C、True或False
D、0
6、while循环结构中与（A）匹配使用，不能单独出现
A、Wend
B、end
C、loop
D、next
7、Do…、、loop循环结构中的循环体执行的最少次数为（A）
A、0
B、1
C、2
D、3
8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）
A、0
B、1
C、2
D、3
9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）
A、0
B、1
C、2
D、3
10、Do…loop循环结构中的Exit Do语句的功能是（B）
A、退出整个程序
B、退出当层循环
C、退出最外层循环
D、退出所在子程序
11、Do…loop中使用while关键字时，条件为（B）执行循环体
A、False
B、True
C、0
D、假或真
12、Do…loop中使用until关键字时，条件为（A）执行循环体
A、False
B、True
C、0
D、假或真
13、Do…loop中使用while关键字时，条件为（A）终止循环
A、False
B、True
C、0
D、假或真
14、Do…loop中使用until关键字时，条件为（B）终止循环
A、False
B、True
C、0
D、假或真
15、For…Next循环结构中（C）用来控制循环变量
A、for
B、step
C、next
D、to
16、For…Next循环结构中step用来控制（D）
A、循环变量
B、循环变量初值
C、循环变量终值
D、循环变量增量
17、For…Next循环结构中循环变量初值大于终值时,步长为（A）
A、负数
B、非负数
C、正整数
D、正数
18、For…Next循环结构中循环变量初值小于终值时,步长为（A）
A、负数
B、负整数
C、正整数
D、正数
19、For…Next循环结构中next后的循环变量（A）
A、可以省略
B、不可以省略
C、与for后的变量名可以不同
D、与for后的变量不是同一变量
20、For…Next中循环变量初值与终值间使用的关键字是（A）
A、To
B、In
C、goto
D、private
21、For…Next中循环变量初值与终值间使用的关键字是（A）
A、To
B、In
C、goto
D、private
22、执行下面的程序段后，s的值为（C）
Private Sub Form_Click()
Static s As Integer
s = 5
For i = 1.4 To 2.1 Step 0.6
s = s + 1
Next i
Print s
End Sub
A、5
B、6
C、7
D、1
23、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）
Private Sub Command1_Click()
For m = 1 To 10
x = Int(Rnd * 101+100)
If（        ）Then
Print x;
End If
Next m
End Sub
A、x mod 5=0
B、x mod 5==0
C、x/5=0
D、x\5=0
24、设有如下程序：
Option Base 1
Private Sub Form_Click()
Dim a(10), P(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
P(i) = a(i * i)
Next i
For i = 1 To 3
k = k + P(i) * 2
Next i
Print k
End Sub
程序运行后，单击窗体，则在窗体上显示的是（A）
A、33
B、35
C、37
D、38
25、在窗体上画一个命令按纽Command1，然后编写如下事件过程：
Private Sub Command1__Click()
  X=0
  N=val(inputbox(“n=?”))
For i=1  to  n
  For  j=1  to  i
      X=x+1
  Next  j
Next  i
Print  x
End  sub
程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)
A、9    B、44    C、5    D、6
26、以下能够正确计算n！的程序是（C）
A、private sub command1__click()
  N=5 :  x=1
  Do
      X=x*1
      I=i+1
  Loop  while  i<n
  Print  x
  End  sub
B、private sub command1__click()
  N=5 :  x=1 :  i=1
  Do
      X=x*i
      I=i+1
  Lvb编程基础知识for whileoop  while  i<n
  Print  x
  End  sub
C、private sub command1__click()
  N=5 :  x=1 :  i=1
  Do
      X=x*i
      I=i+1
  Loop  while  i<=n
  Print  x
  End  sub
D、private sub command1__click()
  N=5 :  x=1 :  i=1
  Do
      X=x*i
      I=i+1
  Loop  while  i > n
  Print  x
  End  sub
27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：
Private sub command1_click()
  For  i=1 to 15
    X=2*i-1
    If x  mod  3=0  then s=s+1
  Next  i
  Label1、caption =s
End  sub
程序运行后,单击命令按钮,标签中显示的内容是( B )
A、1    B、5  C、27    D、45
28、在窗体上画一个命令按纽Command1，然后编写如下事件过程：
Private sub command1_click()
  For  i=1 to 4
    For j =0 to i
        Print  chr$(65+i)
  Next  i
  Print
End  sub
程序运行后,单击命令按钮,窗体中显示的内容是( A)
A、BB
  CCC
  DDDD
  EEEEE
B、A
  BB
  CCC
  DDDD
C、B
  CC
  DDD
  EEEE
D、AA
  BBB
  CCCC
  DDDDD
28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：
Private sub command1_click()
  Dim  x  as  integer，n as integer
  X=1 ： n=0
Do while x < 20
X=x*3
N=n+1
Loop
Text1、text=str(x)
Text2、text=str(n)
End  sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)
A、15和1   
B、27和3   
C、195和3     
D、600和4
29、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。