上海市計(jì)算機(jī)VB二級(jí)題目B卷(共12頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1. 表達(dá)式12 + 8 Mod 5 3 - 1中最先計(jì)算的是_。 A.12+8 B.8 MOD 5 C 5 3 D 3 -12. 設(shè)a=16，b=28，則以下表達(dá)式的值為“真”的是_。 A. a-b>0 B. a<b or當(dāng)兩操作數(shù)都為false時(shí)為false。其余情況都為true b<0 C. Not (a<0 or b>0) D. a * b<4403. 下列可作為Visual Basic 變量名的是_。 A. a#bc B. DO C. 6d D. Dowhile 變量命名中不能使用非法字符*、#等，不能有空格，不能數(shù)字開(kāi)頭

2、，不能用系統(tǒng)語(yǔ)句、函數(shù)名、常量作變量名4. 以下符號(hào)常量聲明中，錯(cuò)誤的是_。 A. Const X!=sin(0)Sin30在VB中表達(dá)為sin(30*3.1416/180) B. Const M!=2*365 C. Const C$="" D. Const N%=1005. 在菜單編輯器中，若菜單項(xiàng)前面有符號(hào)“.”，表示該菜單項(xiàng)是 _。 A. 子菜單項(xiàng) B.主菜單項(xiàng) C. 下拉式菜單 D.彈出式菜單6. 在VB開(kāi)發(fā)集成環(huán)境中，如果工具箱消失了，可在_主菜單中選擇“工具箱”菜單項(xiàng)使其重現(xiàn)。 A. 視圖 B.窗口 C.文件 D.編輯7. 執(zhí)行了Text1.Text= Now(

3、)-1語(yǔ)句后，Text1內(nèi)顯示_。 A. 今天的日期和當(dāng)前的時(shí)間 B. 昨天的日期和當(dāng)前時(shí)間 C.明天的日期和當(dāng)前時(shí)間 D.語(yǔ)法出錯(cuò)8. 設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是_。A.combol.Remveitemtext B.combol.Removeitem2 C.combol.Removeitemcombol.Listcount D. combol.Removeitem 39. 下列語(yǔ)句中，能夠刪除文本框Text1中被選定內(nèi)容的是_。 A. Text1.Text="" B.Text1.Sellength=0 C.Text1.Seltext=&

4、quot;" D.Text1.Selstart=010. 以下關(guān)于窗體Name屬性的敘述中正確的是_。 A.代碼中通過(guò)Name屬性引用窗體 B. 可以在運(yùn)行期間改變窗體的Name屬性的值 C.窗體的Name屬性值可以為空 D.窗體的Name屬性值是顯示在窗體標(biāo)題欄中文本填空1 寫(xiě)出0x1的VB表達(dá)式為_(kāi)x>0 and x<=1_。2 在VB6.0中，用_方法可以重定義坐標(biāo)系。3 函數(shù)Val("24 and 57")的返回值是_。4 設(shè) a=4,b=5,c=6,d=7 ，執(zhí)行語(yǔ)句x=IIfIIF(<表達(dá)式)，<表達(dá)式1>，<表達(dá)式

5、2>)當(dāng)表達(dá)式為真輸出表達(dá)式1，為假，輸出表達(dá)式2(a>b)And(c>d),10,20) 后， x 的值為_(kāi)20_。5 若有一名為Menua的菜單項(xiàng)，為了在運(yùn)行時(shí)使該菜單項(xiàng)不可見(jiàn)，應(yīng)使用的語(yǔ)句是_ Menua.Visible = False _。6 在程序代碼Text1.Text = "Visual Basic"中，表示對(duì)象的是_ Text1_。7 圖像控件Image1要引用圖片框控件Picture1中的圖像，可使用語(yǔ)句Image1.Picture= _ Picture1.Picture _。程序填空a. 以下程序的功能是：隨機(jī)產(chǎn)生10個(gè)兩位數(shù)的正整數(shù)，

6、保存在數(shù)組a中，現(xiàn)要求計(jì)算該數(shù)組中所有能被3整除元素的平均值。Dim a(1 To 10) As IntegerDim i%,n%,s%For i = 1 To 10 a(i) = Int( (1) Rnd*90。Rnd為隨機(jī)函數(shù)，答案為【0+90）+10 =【10,100）)+10 Print a(i);Next iPrints = 0n = 0For i = 1 To 10 If (2) = 0 Then s = s + a(i) n = n + 1 End IfNext iPrint (3) b. 以下程序的功能是：求2000以內(nèi)滿足如下條件的正整數(shù)對(duì)：彼此的全部約數(shù)之和(本身除外)與另

7、一方相等。例如220與284:220的全部約數(shù)(除掉220本身)相加的和是: 1+2+4+5+10+11+20+22+44+55+110=284 284的全部約數(shù)(除掉284本身)相加的和是：1+2+4+71+142=220 程序的思想是：對(duì)正整數(shù)a，調(diào)用函數(shù)過(guò)程sy(a)求解約數(shù)之和b，再次調(diào)用函數(shù)過(guò)程sy(b)求出數(shù)b的約數(shù)之和t，按定義判斷a,b是否滿足條件。' sy函數(shù)過(guò)程求n的所有約數(shù)(除本身外)之和Function sy (n As Integer) As Integer Dim sum As Integer, i As Integer sum = 0 For i = 1

8、To （1） If n Mod i = 0 Then sum = （2） Next i （3） = sum End FunctionPrivate Sub Command1_Click() ' 求2000以內(nèi)滿足條件的正整數(shù)對(duì) Dim a As Integer, b As Integer, t As Integer For a = 2 To 2000 b = sy(a) t = （4） If （5） And a < b Then Print a, b Next aEnd Subc. 以下程序的功能是：在文本框Text1內(nèi)輸入身份證號(hào)碼，單擊命令按鈕，檢查所輸入的號(hào)碼是否為18位，

9、若正確，從身份證號(hào)碼中分離出出生日期和性別，計(jì)算當(dāng)前年齡，按圖示方式顯示結(jié)果。Private Sub Command1_Click() Dim sfz, y, ss As String Dim m, d As Integer sfz = Text1.Text If （1） <> 18 Then MsgBox "位數(shù)不對(duì),請(qǐng)重新輸入！" Text1.Text = "" Text1.SetFocus End If y = Mid( （2） ) m = Val(Mid(sfz, 11, 2) d = Val(Mid(sfz, 13, 2) Text

10、2.Text = y & "年" & m & "月" & d & "日出生" ss = Mid(sfz, 17, 1) If Val(ss) Mod 2 = 0 Then ss = "女" Else ss = "男" End If Label2.Caption = （3） & "， 現(xiàn)年" & (Year(Date) - （4） ) & "歲"End Sub操作題四、程序改錯(cuò)題(兩小題，共10

11、分，每處2分)啟動(dòng)工程文件C:ksexm2.vbp，程序存在5個(gè)錯(cuò)誤，請(qǐng)調(diào)試改正，并按原文件名和位置保存。正確結(jié)果見(jiàn)樣例。改錯(cuò)方法：不能修改或重新定義變量，不允許增加或刪除語(yǔ)句，不可以改變語(yǔ)句次序，但可以修改語(yǔ)句,所修改的語(yǔ)句必須在句尾加上注釋標(biāo)記 ' *。1.改錯(cuò)題1' 以下程序的功能是：求數(shù)列2/1，3/2，5/3，8/5，前12項(xiàng)之和，并在Label內(nèi)按每行4個(gè)顯示數(shù)列項(xiàng)，最后顯示其和。（數(shù)列的后一項(xiàng)的分子為前一項(xiàng)的分子與分母之和，后一項(xiàng)的分母為前一項(xiàng)的分子）' 程序中有3個(gè)錯(cuò)誤，請(qǐng)調(diào)試改正。Sub Command1_Click() Dim s As Double

12、, i As Integer, n As Single, m As Single lable1.Caption = "" n = 2 m = 1 s =1 For i = 1 To 12 Label1.Caption = Label1.Caption & n & "/" & m & "+ " ' 在Label內(nèi)顯示數(shù)列項(xiàng) If i Mod 4 = 0 Then ' 每行顯示4項(xiàng)，vbCrLf回車(chē)換行 Label1.Caption = Label1.Caption & vbCrLf

13、 End If s = s + m / n t = m + n m = n n = t Next i Label1.Caption = Label1.Caption & "=" & Format(s, "#.#")End Sub2.改錯(cuò)題2' 本程序用字母AI在Picture1控件顯示一個(gè)三角型（1個(gè)A，3個(gè)B，5個(gè)C，,17個(gè)I）。' 程序中有2個(gè)錯(cuò)誤，請(qǐng)調(diào)試改正。Sub Command2_Click() Dim n%, m% Picture1.Cls For n = 1 To 9 Picture1.Print Tab(

14、20 - n); For m = 1 To n ' 產(chǎn)生一行上的字母 Picture1.Print n; Next m Picture1.Print Next nEnd Sub五、編程題編寫(xiě)一個(gè)完整的程序，要求如下：1在Form1窗體上放置2個(gè)文本框、1個(gè)"購(gòu)票"命令按鈕、2個(gè)列表框，其他說(shuō)明性標(biāo)簽如樣例。設(shè)置Text2為多行且有滾動(dòng)條，列表框List1預(yù)設(shè)置"平日普通票、平日優(yōu)惠票、指定日普通票、指定日優(yōu)惠票"4項(xiàng)數(shù)據(jù)。按下表建立菜單。菜單標(biāo)題菜單名稱(chēng)備注預(yù)售門(mén)票Menu1一級(jí)菜單讀文件Menu11二級(jí)菜單-bar分隔線退出Menu13二級(jí)菜單

15、預(yù)測(cè)Menu2一級(jí)菜單建立Form2窗體，窗體上放置時(shí)鐘控件，"預(yù)測(cè)"、"累計(jì)進(jìn)場(chǎng)人數(shù)"和"返回"3個(gè)按鈕及3個(gè)標(biāo)簽。2單擊"讀文件"菜單項(xiàng)，將文件"C:kspj.txt"中的"票價(jià)"數(shù)據(jù)讀入到列表框List2。說(shuō)明：若無(wú)法讀入，可直接賦初值在List2，但要扣分；單擊List1中的某一票種，列表框List2同步顯示相應(yīng)的票價(jià)；在文本框Text1輸入數(shù)量，單擊"購(gòu)票"按鈕，將票種、數(shù)量和金額如樣例添加到"售票記錄"文本框Text2中。3單擊"預(yù)測(cè)"菜單項(xiàng)，顯示Form2窗體。選擇"退出"菜單項(xiàng)，結(jié)束程序運(yùn)行。4在F