計算機二級vb上機題庫(3)

時間：2024-08-12 09:26:41 學人智庫我要投稿

相關推薦

計算機二級vb上機題庫(3)

　　(34)某人設計了下面的函數fun，功能是返回參數a中數值的位數

　　Function fun(a As Integer) As Integer

　　Dim n%

　　n = 1

　　While a \ 10 >= 0

　　n = n + 1

　　a = a \ 10

　　Wend

　　fun = n

　　End Function

　　在調用該函數時發現返回的結果不正確，函數需要修改，下面的修改方案中正確的是

　　A)把語句n = 1改為n = 0

　　B)把循環條件a \ 10 >= 0改為a \ 10 > 0

　　C)把語句 a = a \ 10改為a = a Mod 10

　　D)把語句fun = n改為 fun = a

　　(35)在窗體上有一個名稱為Check1的復選框數組

　　(含4個復選框)，還有一個名稱為Text1的文本

　　框，初始內容為空。程序運行時，單擊任何復選

　　框，則把所有選中的復選框后面的方字羅列在文

　　本框中(見圖)。下面能實現此功能的事件過程是

　　A)Private Sub Check1_Click(Indes As Integer)

　　Text1.Text =""

　　For k = 0 To 3

　　If Check1(k).value = 1 Then

　　Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格

　　End If

　　Next k

　　End Sub

　　B)Private Sub Check1_Click(Index As Integer)

　　For k = 0 To 3

　　If Check1(k).value = 1 Then

　　Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格

　　End If

　　Next k

　　End Sub

　　C)Private Sub Check1_Click(Index As Integer)

　　Text1.Text = ""

　　For k = 0 To 3

　　If Check1(k).value = 1 Then

　　Text1.Text = Text1.Text & Check1(Index).Caption & " " '雙引號中是空格

　　End If

　　Next k

　　End Sub

　　D)Private Sub Check1_Click(Index As Integer)

　　Text1.Text = ""

　　For k = 0 To 3

　　If Check1(k).value = 1 Then

　　Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格

　　Exit For

　　End If

　　Next k

　　End Sub

　　二、填空題(每空2分，共30分)

　　請將每空的正確答案寫在答題卡[1]~[15]序號的橫線上，答在試卷上不得分。

　　(1)軟件需求規格說明書應具有完整性，無岐義性、正確性、可驗證性、可修改性等特征，其中最重要的是【1】。

　　(2)在兩種基本測試方法中，【2】測試的原則之一是保證所測模塊中每一個獨立路徑至少執行一次。

　　(3)線性表的存儲結構主要分為順序存儲結構和鏈式存儲結構。隊列是一種特殊的線性表，循環隊列是隊列的【3】存儲結構。

　　(4)對下列二叉樹進行中序遍歷的結果為【4】。

　　(5)在E-R圖中，矩形表示【5】。

　　(6)窗體上有一個組合框，其中已輸入了

　　若干個項目。程序運行時，單擊其中一

　　項，即可把該項與最上面的一項交換。

　　例如：單擊圖1中的“重慶”，則與“北

　　京”交換，得到圖2的結果。下面是可

　　實現此功能的程序，請填空。

　　Private Sub Combo1_Click()

　　Dim temp

　　temp = Combo1.Text

　　[6] = Combo1.List(0)

　　Combo1.List(0) = temp

　　End Sub

　　(7)設窗體上有一個名稱為HScroIII的水平滾動條，要求當滾動塊移動位置后，能夠在窗體上輸出移動的距離(即新位置與原位置的刻度值之差，向右移動為正數，向左移動為負數)。下面是可實現此功能的程序，請填寫。

　　Dim [7] As Integer

　　Private Sub Form_Load()

　　pos=HScroIII.value

　　End Sub

　　Private Sub HScroIII_Change()

　　Print [8] -pos

　　pos=HScroIII.value

　　End Sub

　　(8)設窗體上有一個名稱為CD1的通用對話框，一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕。程序執行時，單擊Command1按鈕，則顯示打開文件對話框，操作者從中選擇一個文本文件，并單擊對話框上的“打開”按鈕后，則可打開該文本文件，并讀入一行文本，顯示在Text1中。下面是實現此功能的事件過程，請填空。

　　Private Sub Command1_Click()

　　CD1.Filter ="文本文件1*.txt(Word 文檔)*.doc"

　　CD1.Filterinder = 1

　　CD1.ShowOpen

　　If CD1.FileName<>""Then

　　Open [9] For Input As #1

　　Line Input #1,ch$

　　Close #1

　　Text1.Text = [10]

　　End If

　　End Sub

　　(9)下面的程序執行時，可以從鍵盤輸入一個正整數，然后把該數的每位數字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請填空。