- 相關(guān)推薦
計(jì)算機(jī)二級vb上機(jī)題庫(3)
(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)線性表的存儲結(jié)構(gòu)主要分為順序存儲結(jié)構(gòu)和鏈?zhǔn)酱鎯Y(jié)構(gòu)。隊(duì)列是一種特殊的線性表，循環(huán)隊(duì)列是隊(duì)列的【3】 存儲結(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)滾動塊移動位置后，能夠在窗體上輸出移動的距離(即新位置與原位置的刻度值之差，向右移動為正數(shù)，向左移動為負(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>
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“請輸入一個(gè)正整數(shù)”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub
【計(jì)算機(jī)二級vb上機(jī)題庫(3)】相關(guān)文章：
計(jì)算機(jī)二級VB上機(jī)考試答題攻略08-09
計(jì)算機(jī)二級VB上機(jī)考試答題技巧10-22
3月計(jì)算機(jī)二級VF上機(jī)模擬題09-24
計(jì)算機(jī)二級考試VB考點(diǎn)：多媒體控件10-08
全國計(jì)算機(jī)二級《VB》練習(xí)題及答案(2)09-08