【正文】 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer x = s = 0 For i = 1 To n 39。 程序界面如圖 VB1所示，在文本框 Text1中輸入班級(jí)編號(hào)，單擊 開(kāi)始統(tǒng)計(jì) 按鈕（ Command1），程序統(tǒng)計(jì)該班的團(tuán)體總分并在文本框 Text2中顯示。下列程序的功能是根據(jù)輸入的班級(jí)編號(hào)，統(tǒng)計(jì)該班的團(tuán)體總分。 （ 2）該程序段運(yùn)行后，變量 m的值為 ____________。 2． 有如下 Visual Basic程序段 ： x = 36: y = 27 If x / 3 y / 3 Then = xy Else = x=y End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 ____________。f為找到標(biāo)志變量 ， 值為 True表示找到 ， 否則表示沒(méi)找到 Do While (i n) And (f = False) 39。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。下列程序的功能是根據(jù)卡號(hào)查找對(duì)應(yīng)的姓名，程序中數(shù)組 a保存所 有已發(fā)放一卡通的卡號(hào)，數(shù)組b保存卡號(hào)對(duì)應(yīng)的姓名，第 i位同學(xué)的卡號(hào)保存在 a(i)中，姓名保存在 b(i)中。 4． 在某學(xué)校里，每位同學(xué)都會(huì)得到一張一卡通卡，一卡通的卡號(hào)是唯一的，卡內(nèi)會(huì)記錄每位同學(xué)的姓名、住址、班級(jí)、金額等信息。 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 問(wèn)： （ 1）程序運(yùn)行后，下標(biāo)變量 a(4)的值為 _________。 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 題號(hào) 1 2 3 4 （ 1） （ 2） （ 1） （ 2） 答案 44 12 i=i*3 6561 x=Val() x\2 開(kāi)始 輸入十進(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 第五套 （程序設(shè)計(jì)） ： 1． 有如下 Visual Basic程序段 ： m = 8 n = 5 t = m + n t = t n 該程序段運(yùn)行后 ， 變量 t的值為 _________。 程序界面如圖 VB1所示，在文本框 Text1中輸入一個(gè)正整數(shù)，單擊 開(kāi)始轉(zhuǎn)換 按鈕（ Command1）后，對(duì)應(yīng)的二進(jìn)制數(shù)在標(biāo)簽 Label3中顯示出來(lái)。 （ 2）運(yùn)行更正后的程序，循環(huán)剛退出時(shí)變量 i的值為 __________。 3． 以下 Visual Basic程序的功能是 ： 計(jì)算表達(dá)式 1＋ 3＋ 9＋ 27＋ 81＋… 2187的值 ，并在文本框 Text1中輸出計(jì)算結(jié)果。n保存總的商品數(shù) Do While (i = j) And Not (f) m = Fix((i + j) / 2) If _________(1) __________ Then f = True ElseIf x a(m) Then _______(2)_______________ Else i = m + 1 End If Loop If f Then = b(m) Else = 找不到該商品 ， 請(qǐng) 重新輸入條形碼 End If End Sub 程序中 (1)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 圖 VB2 題號(hào) 1 2 3 4 （ 1） （ 2） （ 1） （ 2） 答案 12 余額不足 42 12 x=a(m) j=m1 第四套 （程序設(shè)計(jì)） ： 1． 有如下 Visual Basic程序段 ： a = 12 b = 32 c = a c = c + b 該程序段運(yùn)行后 ， 變量 c的值為 __________。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如 下，在程序 (1)和 (2)劃線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，將程序補(bǔ)充完整。下列程序的功能是根據(jù)條形碼查找對(duì)應(yīng)商 品的價(jià)格，所有商品的條形碼和價(jià)格分別保存在數(shù)組 a和 b中（并且已經(jīng)按照條形碼從小到大排序），第 i個(gè)商品的條形碼保存在 a(i)中，對(duì)應(yīng)的價(jià)格保存在 b(i)中，變量 f是標(biāo)志變量，如果值為 True則說(shuō)明找到了商品，若為 False則說(shuō)明沒(méi)有找到。 （ 2）循環(huán)剛退出時(shí)，變量 i的值為 ____________。 2． 有如下 Visual Basic程序段 ： x = 10 If x 10 Then = 你可以繼續(xù)使用 Else = 余額不足 End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 ____________。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，將程序補(bǔ)充完整。商品的代號(hào)和得票數(shù)分別保存在數(shù)組 a和 b中，第 i個(gè)商品的代號(hào)保存在 a(i)中，對(duì)應(yīng)的得票數(shù)保存在 b(i)中。 4． 某網(wǎng)站組織了 100個(gè)商品進(jìn)行網(wǎng)絡(luò)人氣調(diào)查，投票結(jié)束后，要選出得票數(shù)最高的前 10個(gè)商品。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1 For i = 1 To 10 s = s + 1 Next i = Str(s) End Sub 問(wèn)： （ 1）程序運(yùn)行后，變量 s的值為 ____________。n 保存違章記錄總數(shù) If x = a(i) Then s = s + 1 b(i) End If Next i = Str(s) If________(2)__________ Then 沒(méi)有任何違章記錄 End Sub 程序中 (1)劃線處應(yīng)填入 _______________ 程序中 (2)劃線處應(yīng)填入 _______________ 圖 VB1 圖 VB2 題號(hào) 1 2 3 4 （ 1） （ 2） （ 1） （ 2） 答案 18 合格 33 5 S=0 第二套 （程序設(shè)計(jì)） ： 1． 有如下 Visual Basic程序段 ： a = 1024: i = 2 b = a / i c = b / i 該程序段運(yùn)行后 ， 變量 c的值為 ____________。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng) 程序如下，在程序 (1)和 (2)劃線處填入適當(dāng)?shù)恼Z(yǔ)句和代碼，把程序補(bǔ)充完整。下列程序的功能是根據(jù)車牌 號(hào)查找該車的違章信息，數(shù)組 a和 b分別保存所有違章汽車的車牌號(hào)和違章原因，第 i條信息的車牌號(hào)保存在 a(i)中，對(duì)應(yīng)的違章原因保存在 b(i)中。 4． 交通違章查詢。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim s As Integer, t As Integer t = 1: s = 0 For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i = Str(s) End Sub 問(wèn)： （ 1）程序運(yùn)行后，變量 s 的值為 ____________。 56789是 （ A）字符串常量 （ B）數(shù)值常量 （ C）邏輯常量 （ D）實(shí)數(shù)常量 10． 長(zhǎng)方體側(cè)面積計(jì)算公式是 s=2h(a+b)， a、 b為長(zhǎng)和寬， h為高，計(jì)算 s的 Visual Basic表達(dá)式是 （ A） 2h(a+b) （ B） 2h*(a+b) （ C） 2*h(a+b) （ D） 2*h*(a+b) 11． 在 Visual Basic中 ， 表示窗體裝載的事件是 （ A） Click （ B） KeyPress （ C） Load （ D） DblClick 12． 下面程序段是利用 For語(yǔ)句給數(shù)組 a賦值 For i= 1 To 5 a(i)=2*i1 Next i 該程序段運(yùn)行后數(shù)組元素 a(4)的值為 （ A） 4 （ B） 5 （ C） 7 （ D） 9 13． 在 Visual Basic中，若 x、 y都是正整數(shù)，且 x能被 y整除，則下列表達(dá)式值一定為真的是 （ A） x/y=0 （ B） Sqr(x\y)=x\y （ C） Int(x\y)=0 （ D） Int(x/y)=x/y 14． 把星期一記為 1，星期二記為 2，……，星期日記為 0，已知某月 1日（ 即第 1天）是星期一，下列語(yǔ)句中，用于正確計(jì)算該月第 n日星期數(shù) w的是 （ A） w=n Mod 7 （ B） w=(n+1) Mod 7 （ C） w=(n+1)\7 （ D） w=n\7 題號(hào) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 答案 D C A C B B A A A D C C D A 第一套（程序設(shè)計(jì)）： 1． 有如下 Visual Basic程序段 ： i = 7: j = 3 k = i * j j 該程序段運(yùn)行后 ， 變量 k的值為 ____________。已知質(zhì)量分?jǐn)?shù)為 16%的食鹽溶液質(zhì)量為 m，計(jì)算溶質(zhì)質(zhì)量 y的步驟有： ①輸出溶質(zhì)質(zhì)量 y ② p= ③計(jì)算溶質(zhì)質(zhì)量 y=m*p ④輸入食鹽溶液質(zhì)量 m 其正確的順序是 （ A）④②③① （ B）①②③④ （ C）④③①② （ D）④③②① 8． 某校田徑運(yùn)動(dòng)會(huì)中，八名 100米短跑運(yùn)動(dòng)員的成績(jī)分別為 ， ， ， ， ， ， ， 采用對(duì)分查找算法查找成績(jī) 4次，這 4次查找中依次比較的成績(jī)是 （ A） （ B） （ C） （ D） 9． 在 Visual Basic中，賦值語(yǔ)句 carno=浙 Z用算法描述該部件在生產(chǎn)線上所有工序加工過(guò)程，合適的算法流程是 （ A）順序模式 （ B）選擇模式 （ C）循環(huán)模式 （ D）樹(shù)型模式 8． 某超市水果區(qū)共有