<delect id="sj01t"></delect>
  1. <em id="sj01t"><label id="sj01t"></label></em>
  2. <div id="sj01t"></div>
    1. <em id="sj01t"></em>

            <div id="sj01t"></div>
            試題

            計算機二級考試VB程序設計單選題

            時間:2025-02-03 08:00:07 試題 我要投稿
            • 相關推薦

            計算機二級考試VB程序設計單選題

              為了使廣大考生在備戰計算機等級考試時,更快的掌握相應知識點,下面是小編搜索整理的計算機二級考試VB程序設計單選題,供參考練習,預祝考生們考出自己理想的成績!

            計算機二級考試VB程序設計單選題

              計算機二級考試VB程序設計單選題

              1. Command1_Click( )事件程序的功能是:按順序讀入10名學生4門課程的成績,計算出每位學生的平均分并輸出,程序如下:

              Dim n As Integer, k As Integer

              Dim score As Single, sum As Single, ave As Single

              sum = 0#

              For n = 1 To 10

              For k =1 To 4

              score = InputBox(“請輸入第” & n & “名學生第” & k & “門課的成績:”)

              sum = sum + score

              Next k

              ave = sum / 4

              Print “第” & n & “個學生的平均成績為:” & ave

              Next n

              上述程序運行后結果不正確,調試中發現有一條語句出現在程序中的位置不對。這條語句是( )

              (A)sum = 0# (B)sum = sum + score

              (C)ave = sum / 4 (D)Print “第” & n & “個學生的.平均成績為:” & ave

              2. 在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

              Private Sub Command1_Click( )

              Dim num As Integer

              num = 1

              Do Until num > 6

              Print num;

              num = num + 2.4

              Loop

              End Sub

              程序運行后,單擊命令按鈕,則窗體上顯示的內容是( )

              (A)1 3.4 5.8(B)1 3 5

              (C)1 4 7 (D)無數據輸出

              3. 以下程序的輸出結果是( )

              Dim i As Integer, a As Integer

              Do While i < 20

              Do While True

              If i Mod 10 = 0 Then

              Exit Do

              Else

              i = i -1

              End If

              Loop

              i = i + 11 : a = a + i

              Loop

              Print a

              (A)21(B)32 (C)33 (D)11

              4. 在窗體上畫一個名稱為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

              5. 設有如下程序:

              Option Base 0

              Private Sub Form_Click( )

              Dim a

              Dim i As Integer

              a = Array(1,2,3,4,5,6,7,8,9)

              For i = 0 To 3

              Print a(5 – i);

              Next

              End Sub

              程序運行后,單擊窗體,則在窗體相顯示的內容是( )

              (A)4 3 2 1 (B)5 4 3 2(C)6 5 4 3 (D)7 6 5 4

              6. 在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下代碼:

              Option Base 1

              Private Sub Command1_Click( )

              d = 0

              c = 10

              x = Array(10, 12, 21, 32, 24)

              For i = 1 To 5

              If x(i) > c Then

              d = d + x(i)

              c = x(i)

              Else

              d = d – c

              End If

              Next i

              Print d

              End Sub

              程序運行后,單擊命令按鈕,則在窗體上輸出的內容是( )

              (A)89 (B)99 (C)23 (D)77

              7. 假定有以下函數過程:

              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

              在窗體上畫一個命令按鈕,然后編寫如下事件過程:

              Private Sub Comman1_Click( )

              Dim Str1 As String, Str2 As String

              Str1 = InputBox(“請輸入一個字符串:”)

              Str2 = Fun(Str1)

              Print Str2

              End Sub

              程序運行后,單擊命令按鈕,如果在輸入對話框中輸入字符串“abcdefg”,則單擊“確定”按鈕后在窗體上輸出的結果為( )

              (A)abcdefg (B)ABCDEFG(C)gfedcba (D)GFEDCBA

              8. 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框,然后編寫如下代碼:

              Private Sub Command1_Click( )

              Dim x, y, z As Integer

              x = 5

              y = 7

              z = 0

              Text1.Text = “”

              Call P1(x, y, z)

              Text1.Text = Str(z)

              End Sub

              Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)

              c = a + b

              End Sub

              程序運行后,如果單擊命令按鈕,則在文本框中顯示的內容是( )

              (A)0(B)12 (C)Str(z) (D)沒有顯示

              9. 以下關于過程的敘述中錯誤的是( )

              (A) 如果過程被定義為Static類型,則該過程中的局部變量都是Static類型

              (B) Sub過程中不能嵌套定義Sub過程

              (C) Sub過程中可以嵌套調用Sub過程

              (D)事件過程可以像通用過程一樣由用戶定義過程名

              10. 在窗體上畫一個名稱為Command1的命令按鈕,再畫兩個名稱分別為Label1、Label2的標簽,然后編寫如下程序代碼:

              Private X As Integer

              Private Sub Command1_Click( )

              X = 5: Y = 3

              Call proc(X, Y)

              Label1.Caption = X

              Label2.Catpion = Y

              End Sub

              Private Sub proc(Byval a As Integer, ByVal b As Integer)

              X = a * a

              Y = b + b

              End Sub

              單擊命令按鈕,兩個標簽中顯示的內容分別是( )

              (A)5和3(B)25和3 (C)25和6 (D)5和6

            【計算機二級考試VB程序設計單選題】相關文章:

            二級考試VB程序設計復習試題單選題12-18

            計算機二級VB語言程序設計單選題及答案05-12

            計算機二級考試VB程序設計選擇練習05-27

            計算機等級考試二級VB程序設計題08-14

            2016計算機二級《VB語言程序設計》考試大綱06-01

            計算機等級考試二級VB程序設計模擬試題07-13

            計算機等級考試二級VB程序設計選擇練習06-01

            二級計算機考試VB程序設計復習試題07-26

            計算機二級考試VB程序設計選擇題05-25

            <delect id="sj01t"></delect>
            1. <em id="sj01t"><label id="sj01t"></label></em>
            2. <div id="sj01t"></div>
              1. <em id="sj01t"></em>

                      <div id="sj01t"></div>
                      黄色视频在线观看