VB控制结构.doc

VB控制结构
1 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   x=0
   Do Until x=-1
      a=InputBox("请输入A的值")
      a=val(a)
      b=InputBox("请输入B的值")
      b=Val(b)
      x=InputBox("请输入x的值")
      x=val(x)
      a=a+b+x
   Loop
   Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为
A) 2          B) 3        C) 14        D) 15  
2 以下能够正确计算n!的程序是 
A) Private Sub Commandl_ClicK()
  　　n＝5:x＝1
  　　Do
    　　X=x*i
    　　i＝i十1
  　　Loop While i＜n
  　　Print x
 　End Sub
B) Private Sub Commandl_Click()
  　　n＝5: x＝1:i=1
  　　Do
    　　X＝X*i
    　　i＝i十1
  　　Loop While i＜n
  　　Print x
 　End Sub 
C) Private Sub Commandl_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 Commandl_C1ick()
  　　n＝5:x＝1:i=1
  　　Do
    　　X=X*i
    　　i=i十1
  　　loop While i＞n
　  　Print x
 　End Sub
3 在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
　　Private Sub Commandl_C1ick()
 　　  s = 0
       For i = 1 To 15
    x = 2 * i - 1
           If x Mod 3 = 0 Then s = s + 1
       Next i
   　　Labell．Caption=s
　　End Sub
程序运行后，单击命令按钮，则标签中显示的内容是
A) 1        B) 5       C) 27        D) 45
4 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
　　Private Sub Command1_Click()
  　　 For I=1 To 4
  　　    For J=0 To i
  　　        Print Chr$(65+I);
 　       Next J
     　　 Print
  　　 Next I
  　End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A) BB           B) A           C) B            D) AA
 　CCC             BB             CC              BBB
 　DDDD            CCC            DDD             CCCC
 　EEEEE           DDDD           EEEE            DDDDD
5 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为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
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A) 15和1         B) 27和3          C) 195和3            D) 600和4
6 在窗体上画一个名称为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
7 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
   　　Dim array1(10,10) As Integer
   　　Dim i,j As Integer
   　　For i=1 To 3
      　　For j=2 To 4
          　　array1(i,j)=i+j
      　　Next j
   　　Next I
   　　Text1.Text=array1(2,3)+array1(3,4)
　　End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 12         B) 13          C) 14          D) 15
8 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
　　Private Sub Command1_Click()
   　　Dim i As Integer,j As Integer
   　　Dim a(10,10)As Integer
   　　For i=1 To 3
      　　For j=1 To 3
          　　a(i,j)=(i-1)*3+j
          　　Print a(i,j);
      　　Next j 
      　　Print
   　　Next i 
　　End Sub
程序运行后，单击命令按钮，窗体上显示的是
A) 123        B) 234       C) 147         D) 123
　 246           345          258            456
   369           456          369            789
9 假定有以下函数过程：
　　Function Fun(S As String) As String
   　　Dim s1 As String
   　　For i=1 To Len(S)
       　　s1＝UCase(Mid(S,i,1))十s1
   　　Next i
   　　Fun＝s1
　　End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
　　Prlvate Sub Commmldl_Click()
   　　Dim Str1 As String，Str2 As String
   　　Strl＝inputbox(”请输入一个字符串)
　   　Str2=Fun(Strl)
   　　Print Str2
　　End Sub
程序运行后，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
A) abcdefg          B) ABCDEFG         C) gfedcba         D) GFEDCBA
10 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
    For i=1 to 4
        x=4
        For j=1 to 3
            x=3
            For k=1 to 2
                x=x+6
            Next k
        Next j
    Next i
    Print x
End Sub
程序运行后，单击命令按钮，输出结果是
A) 7        B) 15        C) 157        D) 538
11 阅读下面的程序段：
For i=1 To 3
   For j=1 to i
       For k=j to 3
           a=a+1
       Next k
   Next j
Next i
执行上面的三重循环后，a的值为
A) 3          B) 9           C) 14          D) 21
12 如果A为整数且|A|>=100，则打印"OK"，否则打印"Error"，表示这个条件的单行格式If语句是
A) If Int(A)=A And Sqr(A)>=10 Then Print "OK" Else Print "Error"
B) If Fix(A)=A And Abs(A)>=100 Then Print "OK" Else Print "Error"
C) If Int(A)=A And (A>=100,A<=-100) Then Print "OK" Else Print "Error"
D) If Fix(A)=A And A>=100 And A<=-100 Then Print "OK" Else Print "Error"
13 下列程序段运行后，输出结果为
  b=1
  Do While b<40
     b=b*(b+1)
  Loop
  Print b
A) 42        B) 39         C) 6        D) 1
14 关于Exit For的使用说明正确的是
A) Exit For语句可以退出任何类型的循环
B) 一个循环中只能有一个这样的结构
C) Exit For表示返回For语句去执行
D) 一个For循环中可以有多条Exit For语句
15 执行下面的程序段后，x的值为
  x=5
  For i=1 to 20 Step 2
     x=x+i\5
  Next i
A) 21          B) 22        C) 23        D) 24
16 多分支选择结构的Case语句中"变量值列表"不能是
A) 常量值的列表，如Case 1,3,5         B) 变量名的列表，如Case x,y,z
C) To表达式，如Case 10 To 20          D) ls关系表达式，如Case ls<20
17 在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
   x=0
   Do While x<50
      x=(x+2)*(x+3)
      n=n+1
Loop
   Text1.text=str(n)
   Text2.text=str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A) 1和0        B) 2和72        C) 3和50         D) 4和168
18 下面的程序段执行后，x的值为
  x=0
  For i=1 to 5
     For j=i to 5
         x=x+1
     Next j
  Next i
A) 5          B) 10         C) 15         D) 20
19 以下程序的输出结果是
Option Base 1
Private Sub Command1_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) 33          B) 28        C) 35        D) 37
20 程序的基本控制结构是
A) Do-Loop结构、Do-Loop While结构和For-Next结构
B) 子程序结构，自定义函数结构
C) 顺序结构，选择结构和循环结构
D) 单行结构，多行结构和多分支结构
21 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在空格处填入适当的内容，将程序补充完整。
　　Private Sub Form_Click()
   　　Dim x As Single,amax As Single,amin As Single
   　　x=InputBox(“Enter a score”)
   　　amax=x
   　　amin=x
   　　Do While _________
      　　If x>amax Then
         　　Amax=x
      　　End If
      　　If ________ Then
         　　Amin=x
   　   　End If 
      　　x=InputBox(“Enter a score”)
   　　Loop
   　　Print "Max=";amax,"Min=";amin
  　End Sub
22 下面的程序用"冒泡"法将数组a中的10个整数按升序排列请在空格处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
   Dim a
   a=Array(678,45,324,528,439,387,87,875,273,823)
   For i=__________
       For j=_____________
           if a(i)______a(j) Then
              a1=a(i)
              a(i)=a(j)
              a(j)=a1
           End if
       Next j
   Next i
   For i=1 to 10
       Print a(i)
   Next i
End Sub
23 以下程序段的输出结果是___________
  num=0
  While num<=2
        num=num+1
        Print num
  Wend
24 起始语句为While的循环结构的终端语句是_______________
25 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
　　Private Sub Commandl_C1ick()
   　　Dim a As String
   　　a=_________
   　　For i ＝1 To 5
       　　Print Space(6-i);Mid$(a,6-i,2*i-1)
   　　Next i
　　End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
    5
　　456
　　34567
　　2345678
　　123456789
请填空。
26 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
　　Private Sub Command1_C1ick()
   　　For i＝1 To 20
       　　x＝Int(____________*100+200)
       　　If _______ ＝0 Then
         　　 Print x
          　　S＝S+ _________
       　　End If
   　　Next i
   　　Print "Sum＝":S
　　End Sub
27 执行下面的程序段后，变量S的值为_______。
　　S＝5
　　For i ＝2.6 To 4.9 Step 0.6
    　　S=S+1
　　Next i
28 For-Next循环的子句缺省，缺省值是__________