【導(dǎo)讀】取了一些捐款賬號，可信度較高的是。在網(wǎng)絡(luò)上通過搜索引擎搜索到的賬號。網(wǎng)友通過QQ發(fā)布的賬號。來歷不明的電子郵件中的賬號。2．十進(jìn)制數(shù)23轉(zhuǎn)換成二進(jìn)制數(shù)是。3．全文檢索是一種從全文中檢索所需信息的檢索技術(shù)，其檢索的對象為。文本圖像聲音視頻。4．購買車票可到不同的售票點辦理，而各售票點賣出的車票互不重號，通常是因為。各售票點售票系統(tǒng)檢索的是相同的。6．有流程圖結(jié)構(gòu)如下，其算法結(jié)構(gòu)屬于。7．某種氣體在0℃時的體積為100L，溫度t每升高1℃，其體積v就增加。能得到的蘋果數(shù)，對四人所得蘋果數(shù)總和是否為23進(jìn)行判斷，找出符合要求的各種。9．在VisualBasic中，用變量p存儲數(shù)值，變量p的數(shù)據(jù)類型應(yīng)定義為。10．在VisualBasic中，下列表達(dá)式的值等于3的是。件的地圖文件后，出現(xiàn)錯誤的概率大大降低，該事例反映出信息具有。自動將價格下降50%。下列說法正確的是

　　

【正文】 isual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim x As Integer, s As String, r As Integer, t As Integer _____(1)_____ s = Do While x 0 r = x Mod 2 s = Str(r) + s x = _____(2)_____ Loop = s End Sub 程序中 (1)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 開始 輸入十進(jìn)制數(shù) x x ≠ 0 ? 輸出 s 的值 將當(dāng)前 x 被 2 除的余數(shù)保存到變量 r Y 圖 VB 2 結(jié)束 s 賦初值（空字符串） N s ← S t r （ r ） +s 將當(dāng)前 x 被 2 除所得商的整數(shù)部分保存到變量 x 五、 1． 有如下 Visual Basic程序段 ： m = 8 n = 5 t = m + n t = t n 該程序段運(yùn)行后，變量 t的值為 _________。 2． 有如下 Visual Basic程序段 ： x = 5001 s = 1 If x 5000 Then s = s + 1 = Str(s) 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 _________。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim a(1 To 100) As Integer, i As Integer, s As Integer s = 0 For i = 2 To 100 Step 2 a(i) = i * 2 s = s + a(i) Next i = Str(s) End Sub 問： （ 1）程序運(yùn)行后，下標(biāo)變量 a(4)的值為 _________。 （ 2）循環(huán)剛退出時，變量 i的值為 _________。 4． 在某學(xué)校里，每位同學(xué)都會得到一張一卡通卡，一卡通的卡號是唯一的，卡內(nèi)會記錄每位同學(xué)的姓名、住址、班級、金額等信息。每當(dāng)同學(xué)刷卡時，卡號就被輸入電腦，然后進(jìn)行查找，如果找到就顯示姓名，否則顯示 查無此人 。下列程序的功能是根據(jù)卡號查找對應(yīng)的姓名，程序中數(shù)組 a保存所有已發(fā)放一卡通的卡號，數(shù)組b保存卡號對 應(yīng)的姓名，第 i位同學(xué)的卡號保存在 a(i)中，姓名保存在 b(i)中。 程序界面如圖 VB1所示，左邊列表框列出所有同學(xué)的卡號和姓名，在右邊文本框 Text1中輸入卡號，單擊 開始查詢 按鈕（ Command1），程序就按卡號進(jìn)行查找，如果找到就在標(biāo)簽 Label3中輸出卡號對應(yīng)同學(xué)的姓名，否則就輸出 查無此人 。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As String, f As Boolean x = _____(1)_____ i = 0: f = False 39。f為找到標(biāo)志變量 ， 值為 True表示找到 ， 否則表示沒找到 Do While (i n) And (f = False) 39。n保存學(xué)生總?cè)藬?shù) i = i + 1 If x = a(i) Then f = True End If Loop If f = True Then _____(2)____ Else s = 查無此人！ End If = s End Sub 程序中 (1)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 圖 VB2 六、 1． 有如下 Visual Basic程序段 ： a = Test b = is c = easy c = a + b + c 該程序段運(yùn)行后 ， 變量 c的值為 ____________。 2． 有如下 Visual Basic程序段 ： x = 36: y = 27 If x / 3 y / 3 Then = xy Else = x=y End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 ____________。 3． 有如下 Visual Basic程序段 ： Dim a(1 To 10) As Integer, i As Integer, m As Integer m = a(1) i = 2 Do While i = 10 If m a(i) Then m = a(i) i = i + 1 Loop 已知數(shù)組 a中 a(1)、 a(2)、 … 、 a(10)保存的數(shù)值分別為 ： 5 3 1 2 78 90、 11， 問： （ 1）循環(huán)剛退出時，變量 i的值為 ____________。 （ 2）該程序段運(yùn)行后，變量 m的值為 ____________。 4． 團(tuán)體總分統(tǒng)計。下列程序的功能是根據(jù)輸入的班級編號，統(tǒng)計該班的團(tuán)體總分。每個運(yùn)動員的編號、所屬班級編號、得分情況分別保存在數(shù)組 a、 b、 c中， a(i)保存第 i位運(yùn)動員的編號， b(i)保存第 i位運(yùn)動員所屬班級編號， c(i)保存第 i位運(yùn)動員得分。 程序界面如圖 VB1所示，在文本框 Text1中輸入班級編號，單擊 開始統(tǒng)計 按鈕（ Command1），程序統(tǒng)計該班的團(tuán)體總分并在文本框 Text2中顯示。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，程序中變量 n表示總的運(yùn)動員人數(shù)，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer x = s = 0 For i = 1 To n 39。n 保存運(yùn)動員總?cè)藬?shù) If (1) Then s = s + c(i) (2) Next i = Str(s) End Sub 程序中 (1)劃線處應(yīng)填入 _______________ 程序中 (2)劃線處應(yīng)填入 _______________ 圖 VB1 圖 VB2 七、 1． 有如下 Visual Basic程序段 ： a = 12 b = 32 c = a c = c + b 該程序段運(yùn)行后 ， 變量 c的值為 __________。 2． 有如下 Visual Basic程序段 ： x = 12 If x = 10 Then s = 8 Else s = x End If 該程序段運(yùn)行后 ， 變量 s的值為 __________。 3． 以下 Visual Basic程序的功能是 ： 計算表達(dá)式 1＋ 3＋ 9＋ 27＋ 81＋… 2187的值 ，并在文本框 Text1中輸出計算結(jié)果。 Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i = 2187 t = t + i i = i + 3 Loop = Str(t) End Sub 問： （ 1）為了實現(xiàn)這一目標(biāo)，程序劃線處的表達(dá)式應(yīng)更正為 __________。 （ 2）運(yùn)行更正后的程序，循環(huán)剛退出時變量 i的值為 __________。 4． 將一個十進(jìn)制正整數(shù)轉(zhuǎn)化為二進(jìn)制數(shù)可以采用 除二取余法 ，主要方法就是將十進(jìn)制數(shù)用 2除，保存所得余數(shù)，然后將商的整數(shù)部分作為下次運(yùn)算的被除數(shù)，重復(fù)上述 除二取余 操作，直到商的整數(shù)部分為零停止。 程序界面如圖 VB1所示，在文本框 Text1中 輸入一個正整數(shù)，單擊 開始轉(zhuǎn)換 按鈕（ Command1）后，對應(yīng)的二進(jìn)制數(shù)在標(biāo)簽 Label3中顯示出來。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim x As Integer, s As String, r As Integer, t As Integer _____(1)_____ s = Do While x 0 r = x Mod 2 s = Str(r) + s x = _____(2)_____ Loop = s End Sub 程序中 (1)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 開始 輸入十進(jìn)制數(shù) x x ≠ 0 ? 輸出 s 的值 將當(dāng)前 x 被 2 除的余數(shù)保存到變量 r Y 圖 VB 2 結(jié)束 s 賦初值（空字符串） N s ← S t r （ r ） +s 將當(dāng)前 x 被 2 除所得商的整數(shù)部分保存到變量 x 八、 1. 有如下 Visual Basic程序段 ： m = VB n = is t = easy t = m + n + t 該程序段運(yùn)行后，變量 t的值為 。 2. 有如下 Visual Basic程序段 ： a = 23 b = 34 If a b Then = ab Else = a=b End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 。 3. 以下 Visual Basic程序的功能是 ： 計算表達(dá)式 1 3＋ 2 3＋ 3 3＋… 100 3的值 ， 并在文本框 Text1中輸出計算結(jié)果。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s = i * 3 i = i + 1 Loop = Str(s) End Sub 問： （ 1）剛退出循環(huán)時，變量 i的值是 ___________。 （ 2）為了實現(xiàn)上述表達(dá)式的計算，程序中劃線處的表達(dá)式應(yīng)更正為 ___________。 4. 某市出 租車計費標(biāo)準(zhǔn)規(guī)定：出租車啟動后行程不超過 3千米（包含 3千米）計費 5元；如果行程超過 3千米且不超過 10千米（包含 10千米），則超過 3千米部分按 元 /千米計費（ 3千米及以內(nèi)部分計費仍為 5元）；若行程超過 10千米，則在前面計費基礎(chǔ)上，超出 10千米部分按 /千米計費。 假定某出租車行程為 x千米，計費標(biāo)準(zhǔn)如下： 當(dāng) x≤ 3千米時，計費為 5元； 當(dāng) 3x≤ 10千米時，計費為 5+（ x3） 當(dāng) x10千米時，計費為 5+（ 103） +(x10) 程序界面如圖 VB1所示，在文本框 Text1中輸入行駛里程數(shù)（單位：千米），單擊 開始計算 按鈕（ Command1）后，在標(biāo)簽 Label3輸出計費結(jié)果。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim x As Single, s As Single x = Val() If