(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)把語(yǔ)句n = 1改為n = 0
B)把循環(huán)條件a \ 10 >= 0改為a \ 10 > 0
C)把語(yǔ)句 a = a \ 10改為a = a Mod 10
D)把語(yǔ)句fun = n改為 fun = a
(35)在窗體上有一個(gè)名稱(chēng)為Check1的復(fù)選框數(shù)組
(含4個(gè)復(fù)選框)，還有一個(gè)名稱(chēng)為T(mén)ext1的文本
框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選
框，則把所有選中的復(fù)選框后面的方字羅列在文
本框中(見(jiàn)圖)。下面能實(shí)現(xiàn)此功能的事件過(guò)程是
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 & " " '雙引號(hào)中是空格
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 & " " '雙引號(hào)中是空格
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 & " " '雙引號(hào)中是空格
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 & " " '雙引號(hào)中是空格
Exit For
End If
Next k
End Sub
二、填空題(每空2分，共30分)
請(qǐng)將每空的正確答案寫(xiě)在答題卡[1]~[15]序號(hào)的橫線上，答在試卷上不得分。
(1)軟件需求規(guī)格說(shuō)明書(shū)應(yīng)具有完整性，無(wú)岐義性、正確性、可驗(yàn)證性、可修改性等特征，其中最重要的是【1】 。
(2)在兩種基本測(cè)試方法中，【2】 測(cè)試的原則之一是保證所測(cè)模塊中每一個(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)對(duì)下列二叉樹(shù)進(jìn)行中序遍歷的結(jié)果為【4】 。
(5)在E-R圖中，矩形表示【5】 。
(6)窗體上有一個(gè)組合框，其中已輸入了
若干個(gè)項(xiàng)目。程序運(yùn)行時(shí)，單擊其中一
項(xiàng)，即可把該項(xiàng)與最上面的一項(xiàng)交換。
例如：?jiǎn)螕魣D1中的“重慶”，則與“北
京”交換，得到圖2的結(jié)果。下面是可
實(shí)現(xiàn)此功能的程序，請(qǐng)?zhí)羁铡?/p>
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
(7)設(shè)窗體上有一個(gè)名稱(chēng)為HScroIII的水平滾動(dòng)條，要求當(dāng)滾動(dòng)塊移動(dòng)位置后，能夠在窗體上輸出移動(dòng)的距離(即新位置與原位置的刻度值之差，向右移動(dòng)為正數(shù)，向左移動(dòng)為負(fù)數(shù))。下面是可實(shí)現(xiàn)此功能的程序，請(qǐng)?zhí)顚?xiě)。
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è)名稱(chēng)為CD1的通用對(duì)話框，一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕。程序執(zhí)行時(shí)，單擊Command1按鈕，則顯示打開(kāi)文件對(duì)話框，操作者從中選擇一個(gè)文本文件，并單擊對(duì)話框上的“打開(kāi)”按鈕后，則可打開(kāi)該文本文件，并讀入一行文本，顯示在Text1中。下面是實(shí)現(xiàn)此功能的事件過(guò)程，請(qǐng)?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í)，可以從鍵盤(pán)輸入一個(gè)正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請(qǐng)?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“請(qǐng)輸入一個(gè)正整數(shù)”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub