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

時(shí)間：2024-08-12 09:26:41 學(xué)人智庫我要投稿

相關(guān)推薦

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

　　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

　　在調(diào)用該函數(shù)時(shí)發(fā)現(xiàn)返回的結(jié)果不正確，函數(shù)需要修改，下面的修改方案中正確的是

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

　　B)把循環(huán)條件a \ 10 >= 0改為a \ 10 > 0

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

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

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

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

　　框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選

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

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

　　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)軟件需求規(guī)格說明書應(yīng)具有完整性，無岐義性、正確性、可驗(yàn)證性、可修改性等特征，其中最重要的是【1】。

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

　　(3)線性表的存儲(chǔ)結(jié)構(gòu)主要分為順序存儲(chǔ)結(jié)構(gòu)和鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)。隊(duì)列是一種特殊的線性表，循環(huán)隊(duì)列是隊(duì)列的【3】存儲(chǔ)結(jié)構(gòu)。

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

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

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

　　若干個(gè)項(xiàng)目。程序運(yùn)行時(shí)，單擊其中一

　　項(xiàng)，即可把該項(xiàng)與最上面的一項(xiàng)交換。

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

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

　　實(shí)現(xiàn)此功能的程序，請?zhí)羁铡?/p>

　　Private Sub Combo1_Click()

　　Dim temp

　　temp = Combo1.Text

　　[6] = Combo1.List(0)

　　Combo1.List(0) = temp

　　End Sub

　　(7)設(shè)窗體上有一個(gè)名稱為HScroIII的水平滾動(dòng)條，要求當(dāng)滾動(dòng)塊移動(dòng)位置后，能夠在窗體上輸出移動(dòng)的距離(即新位置與原位置的刻度值之差，向右移動(dòng)為正數(shù)，向左移動(dòng)為負(fù)數(shù))。下面是可實(shí)現(xiàn)此功能的程序，請?zhí)顚憽?/p>

　　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)設(shè)窗體上有一個(gè)名稱為CD1的通用對話框，一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。程序執(zhí)行時(shí)，單擊Command1按鈕，則顯示打開文件對話框，操作者從中選擇一個(gè)文本文件，并單擊對話框上的“打開”按鈕后，則可打開該文本文件，并讀入一行文本，顯示在Text1中。下面是實(shí)現(xiàn)此功能的事件過程，請?zhí)羁铡?/p>

　　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)下面的程序執(zhí)行時(shí)，可以從鍵盤輸入一個(gè)正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請?zhí)羁铡?/p>