鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

                             第一至第五章節(jié)考核試題

姓名:_________________________

1)以下敘述中正確的是 _____ 。

A) 窗體的 Name 屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體

B) 窗體的 Name 屬性值是顯示在窗體標(biāo)題欄中文本

C) 可以在運(yùn)行期間改變窗體的 Name 屬性的值

D) 窗體的 Name 屬性值可以為空

2)設(shè) a=2,b=3,c=4, 下列表達(dá)式的值是 _____ 。

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

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

3)設(shè) a=5,b=6,c=7,d=8 ，執(zhí)行下列語(yǔ)句后， X 的值為 _____ 。

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

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

4)執(zhí)行以下程序段后，變量 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) 在窗體上畫一個(gè)文本框（其名稱為 Textl)和一個(gè)標(biāo)簽（其名稱為 Labell)，

 程序運(yùn)行后，如果在文本框中輸入指定的信息，則立即在標(biāo)簽中顯示相同的內(nèi)容，

  以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是 _____ 。

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)在窗體上面畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為Commandl和Labell,

  然后編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是

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

7)在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Commandl 的命令按鈕，

然后編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 _____ 。

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

8)在窗體上畫一個(gè)命令按鈕和兩個(gè)標(biāo)簽，名稱分別為 Commandl、Labell和Labe12,

 然后編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊命令按鈕，在標(biāo)簽 Labell 和 Labe12 中顯示的內(nèi)容分別為 _____ 。

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

9)在窗體上畫一個(gè)名稱為 Listl 的列表框，一個(gè)名稱為 Labell 的標(biāo)簽，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名從列表框中消失，并在標(biāo)簽中顯示出來(lái)。下列能正確實(shí)現(xiàn)上述操作的程序是 _____ 。

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) 在窗體上畫一個(gè)名稱為 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

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 _____ 。

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) 在窗體上畫一個(gè)命令按鈕，名稱為 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(" 請(qǐng)輸入一個(gè)整數(shù)")

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

  Next k

  Print B(k)

End Sub

程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入 2 、 4 、 6 ，輸入結(jié)果為 _____ 。

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

程序運(yùn)行后，單擊窗體，輸出結(jié)果為 _____ 。

13)在窗體上有一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框。程序運(yùn)行后， Command1 為禁用（灰色），此時(shí)如果在文本框中輸入字符，則命令按鈕 Command1 變?yōu)榭捎�。�?qǐng)?zhí)羁铡?/SPAN>

Private Sub Form_Load()

 Command1.Enabled=False

End Sub

Private Sub Text1_ 【 13 】()

 Command1.Enabled=True

End Sub

14)在窗體上畫一個(gè)名稱為 "Command1" 的命令按鈕，然后編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊命令按鈕，窗體上的輸出結(jié)果是

5

456

34567

2345678

123456789

15)以下程序的功能是：將一維組 A 中的 100 個(gè)元素分別賦給二維數(shù)組B的每個(gè)元素并打印出來(lái)，要求把 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)設(shè)有程序：

　　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函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請(qǐng)?zhí)羁铡?/SPAN>

17）執(zhí)行下面的程序段后，s的值為 〖20〗 。

　　s = 2

　　For i = 3.2 To 4.9 Step 0.8

　  　s = s + 1

Next i

18）執(zhí)行下面程序,單擊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)執(zhí)行下面程序，單擊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)執(zhí)行以下程序，單擊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

上機(jī)日期:____________

上機(jī)題目:

(1)創(chuàng)建一應(yīng)用程序,能夠?qū)⑤斎氲淖址�串顛倒后輸�?/SPAN>,例如,輸入：”abfr4t”,輸出”t4rfba”

設(shè)計(jì)步驟:1.在窗體上放置三個(gè)TextBox控件，三個(gè)Label控件、四個(gè)CommandButton控件，具體界面如圖 ：

屬性設(shè)置:

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

實(shí)驗(yàn)2：編寫一個(gè)程序，隨機(jī)產(chǎn)生12個(gè)兩位數(shù)，存放在數(shù)組Com中,并從中找出一個(gè)最大數(shù)和最小數(shù)

算法說(shuō)明: （1）產(chǎn)生隨機(jī)數(shù):int((最大數(shù)-最小數(shù))*rnd)+最小數(shù)

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                         ‘隨機(jī)數(shù)初始化

  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 “最大數(shù)是:”; Max

Print “最小數(shù)是:”;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)____________