第一至第五章节考核试题

姓名:_________________________

1)以下叙述中正确的是 _____ 。

A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体

B) 窗体的 Name 属性值是显示在窗体标题栏中文本

C) 可以在运行期间改变窗体的 Name 属性的值

D) 窗体的 Name 属性值可以为空

2)设 a=2,b=3,c=4, 下列表达式的值是 _____ 。

Not a <= c Or 4*c = b^2 And b <> a+c

A)  -1   B) 1     C) True     D) False

3)设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 _____ 。

X=IIf((a>b)And(c>d),10,20)

A) 10   B) 20   C) True     D) False

4)执行以下程序段后，变量 c$ 的值为 _____ 。

   a$="Visual Basic Programming"

   b$="Quick"

   c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,12)

A)  Visual Basic Programming   B) Quick Basic programming

C)  Quick BASIC Programming    D) QuickBasic Programming

5) 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，

 程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，

  以下可以实现上述操作的事件过程是 _____ 。

A)  Private Sub Textl_Click()      B)   Private Sub Text1_Change()

        Labell.Caption=Textl.Text         Labell.Caption=Textl.Text

     End Sub                        End Sub

C)  Private Sub Labell_Change()   D)   Private Sub Labell_Click()

      Labell.Caption=Textl.Text           Labell.Caption=Textl.Text

    End Sub                         End Sub

6)在窗体上面画一个命令按钮和一个标签，其名称分别为Commandl和Labell,

  然后编写如下事件过程：

Private Sub Commandl_Click()

   Counter=0

For i=1 To 4

   For j=6 To 1 Step -2

      Counter=Counter+1

   Next j

Nexti

Labell.Caption=Str(Counter)

End Sub

程序运行后，单击命令按钮，标签中显示的内容是

A) ) 11   B) 12   C) 16   D) 20

7)在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，

然后编写如下事件过程：

Private Commandl_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

    Textl.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是 _____ 。

A)  5 B) 4 C) 3 D) 2

8)在窗体上画一个命令按钮和两个标签，名称分别为 Commandl、Labell和Labe12,

 然后编写如下事件过程：

Private Sub Commandl_Chick()

  A=0

  For i=1 To 10

    a=a+1

    b=0

    Forj=1 To 10

      a=a+1

      b=b+2

    Nextj

Next i

Labell. Caption=Str(a)

Labe12.Caption=Str(b)

End Sub

程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 _____ 。

A) ) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20

9)在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 _____ 。

A) Privale Sub Listl_Click()         B) Private Sub Listl_Click()

     Labell. Caption=Listl. ListIndex     Labell.Name=Listl. ListIndex

     Listl. Removeltem Listl.Text         Listl.RemoveItem Listl.Text

   End Sub                        End Sub

C) Private Sub Listl_Click()         D) Private Sub Listl_Click()

      Labell. Caption=Listl.Text           Labell. Name=Listl. Text

      Listl. RemovItem Listl. ListIndex    Listl. RemoveItem Listl. ListIndex

  End Sub                            End Sub

10) 在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：

Private Sub Commandl_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)1  2   3    B)1  2   3    C)1   2  3    D)1   2   3

  2  4   6      3  4   5      2   5  8      4   5   6

  3  6   9      4  5   6      3   6  9      7   8   9

11) 在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：

Option Base 0

Private Sub Command1_Click() 

  Dim A(4)As Integer,B(4) As Integer

  For k=0 To 2

    A(k+1)=InputBox(" 请输入一个整数")

    B(3-k)=A(k+1)

  Next k

  Print B(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输入结果为 _____ 。

12)有以下程序：

Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

  Dim i As Integer,j As Integer

  ReDim arr(3,2)

  For i=1 To 3

    For j=1 To 2

      arr (i,j)=i*2+j

    Next j

  Next i

  ReDim Preserve arr(3,4)

  For j=3 To 4

    Arr(3,j)=j+9

  Next j

  Print arr(3,2);arr(3,4)

End Sub

程序运行后，单击窗体，输出结果为 _____ 。

13)在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。

Private Sub Form_Load()

 Command1.Enabled=False

End Sub

Private Sub Text1_ 【 13 】()

 Command1.Enabled=True

End Sub

14)在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As String

A="123456789"

 For i=1 To 5

   Print Space(6-i);Mid(a, 【 14 】 ,2*i-1)

 Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

15)以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组B的每个元素并打印出来，要求把 A(1)到 A(10)依次赋给 B(1,1)到 B(1,10)，把 A(11)到 A(20)依次赋给 B(2,1)到 B(2,10)，……，把 A(91)到 A(100)依次赋给 B(10,1)到 B(10,10)

Option Base 1

Private Sub Form_Click()

  Dim i As Integer,j As Integer

  Dim A(1 To 100) As Integer

  Dim B(1 To 10,1 To 10) As Integer

  For i=1 To 100

    A(i)=Int(Rnd * 100)

  Next i

  For i=1 To 【 15 】

   For j=1 To 【 16 】

     B(i,j)= 【 17 】

     Print B(i,j);

   Next j

    Print

  Next i

End Sub

16)设有程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　  Dim arr1, Max as Integer

　　  arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

　　 〖18〗 = arr1(1)

　　  For i = 1 To 8

　　    If arr1(i) > Max Then 〖19〗

　　  Next i

　　  Print "最大值是: "; Max

　　End Sub

　　以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

17）执行下面的程序段后，s的值为 〖20〗 。

　　s = 2

　　For i = 3.2 To 4.9 Step 0.8

　  　s = s + 1

Next i

18）执行下面程序,单击Commandl,则图片框中显示的第一行是(21)，显示的第二行是(22)  ，最后一行显示的是  (23) 。

 Private Sub Command1_Click()

    Dim a(3，3)As Integer

    Dim i As Integer,j As Integer

    For i=1 To 3

      For  j=3 To 1 Step -1

       If i>=j Then

            a(i,j)=i-j

       Else

           a(i，j)=j-i

       End If

     Next j

    Next i

    For i=1 to 3   

      For  j=3 To 1 Step -1

       Picture1.Print a(i,j);

      Next j   

      Picturel．Print

    Next i

 End Sub

19)执行下面程序，单击Commandl，则窗体上显示的第一行是  (24)  ，第二行是

(25)  ，第三行是(26)  。

    Option Explicit

    Private Sub Command1_Click()

        Dim a As String, i As Integer

        Dim X As String, z As String

        a = "iamstudent"

        i = InStr(5, a, "d")

    Do

       X = Mid(a, i, 3)

       z = Right(X, 1)

       z = UCase(X & z)

       i = i - 2

       Print z

    Loop Until i = 1

    End Sub

(20)执行以下程序，单击Commandl，则在Picturel上显示的第一行是  (27)  ，第二行是(28)  ，第三行是(29)  。

    Option Explicit

    Private Sub Commandl_Click()

       Dim A(3，3)As Integer，i As Integer，J As Integer

       Dim k As Integer

       i=3：j=2：A(i，j)=l：k=1

       Do Until k>9

           k=k+1

           If i+1>3 Aod j+1<=3 Then

                i=1：J=j+1

           ElseIf  i+1<=3 And j+1>3 Then

                i=i+1：j=1

           Elself  i+1>3 And j+1>3 Then

                i=i-1

           ElseIf i+1<=3 And j+1<=3 And A(i+1，j+1)<>0 Then

                i=i-1

           Else

                i=i+1：j=j +1

           End If

           A(i,j)=k  

    Loop

    For i=1 To 3

       For j=1 To 3

          Picture1.Print A(i,J);

       Next J

    Next I

End Sub

上机日期:____________

上机题目:

(1)创建一应用程序,能够将输入的字符串颠倒后输出,例如,输入：”abfr4t”,输出”t4rfba”

设计步骤:1.在窗体上放置三个TextBox控件，三个Label控件、四个CommandButton控件，具体界面如图 ：

属性设置:

Dim n As Integer

Private Sub cmdLen_click()

  n=Len(txtS.Text)

  txtL.Text=n

End Sub

Private Sub CmdInvert_Click()

  Dim I As integer

  Dim S As String

  n=Len(txtS.Text)

  For i=n to 1 Step -1

S=S+Mid(txtS.Text,I,1)

  Next I

 TxtV.Text=S

End Sub

Private Sub CmdExit_Click()

  UpLoad Me

End Sub

Private Sub Clear_click()

  txtS.text=” ”

  txtV.text=” ”

  txtL.text=” “

  txtS.SetFocus()

End Sub

实验2：编写一个程序，随机产生12个两位数，存放在数组Com中,并从中找出一个最大数和最小数

算法说明: （1）产生随机数:int((最大数-最小数)*rnd)+最小数

Option Explicit

Option Base 1

Private Sub Form_click()

  Dim Com(12) as integer, I as integer

  Dim Max As integer, Min As integer

  Randomize                         ‘随机数初始化

  For I=1 to 12

Com(I)=Int(90*rnd)+10

Print Com(I);

  Next I

  Print

  Max=Com(1) : Min=Com(1)

  For I=2 to 12

     If Com(I)>Max Then 

        Max=Com(I)

     ElseIf Com(I)<Min then

       Min=Com(I)

     End If

 Next I

Print “最大数是:”; Max

Print “最小数是:”;Min

End Sub

考核答卷

姓名_______________

1)___________  2)____________  3)____________ 4)_____________  5)_____________

6)__________   7)____________  8)___________ 9)______________ 10)_______________

11)__________  12)___________  13)____________   14)_____________  15)__________

16）__________ 17)____________ 18)__________  19)_____________  20)___________

21)____________ 22)____________  23) ______________ 24)____________  25)__________

26)_________________  27)____________________ 28)______________ 29)____________