2010年上海市高等學(xué)校計(jì)算機(jī)等級(jí)考試模擬卷

1、of rural drinking water sources, protection of drinking water sources in rural areas by the end of the delimitation of the scope of protection, complete with warning signs, isolating network protection facilitiesof rural drinking water sources, protection of drinking water sources in rural areas by

2、the end of the delimitation of the scope of protection, complete with warning signs, isolating network protection facilities第 PAGE 12 頁 共 NUMPAGES 12 頁of rural drinking water sources, protection of drinking water sources in rural areas by the end of the delimitation of the scope of protection, compl

3、ete with warning signs, isolating network protection facilities2010年上海市高等學(xué)校計(jì)算機(jī)等級(jí)考試模擬卷二級(jí) VB.NET程序設(shè)計(jì) （ C 卷）（本試卷考試時(shí)間 120 分鐘） 一、單選題 ( 本大題 15 道小題 ，每小題 1 分，共 15 分），從下面題目給出的A、B、C、D四個(gè)可供選擇的答案中選擇一個(gè)正確答案。1. 如果在實(shí)驗(yàn)課上進(jìn)行程序調(diào)試，運(yùn)行時(shí)遇到意外出錯(cuò)，最有效的做法是：看清系統(tǒng)錯(cuò)誤原因提示信息，_，以確定錯(cuò)誤原因。 BA. 單擊“調(diào)試”按鈕，然后查看當(dāng)時(shí)變量值B. 單擊“結(jié)束”按鈕，檢查程序代碼C. 舉手請(qǐng)老師幫

4、忙D. 上網(wǎng)查找原因2. 要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是_。 CA. Sub f2(ByVal n%,ByVal m%)B. Sub f1(ByRef n%, ByVal m%)C. Sub f1(ByRef n%, ByRef m%)D. Sub f1(ByVal n%, ByRef m%)3. 為了使控件對(duì)象不響應(yīng)用戶的事件，需要_。 AA. 設(shè)置控件的Enabled屬性為FalseB. 設(shè)置控件的TabStop屬性為FalseC. 設(shè)置控件的TabStop屬性為TrueD. 設(shè)置控件的TabIndex屬性為04. 在用通用對(duì)話框控件建立打開文件對(duì)話框時(shí)，在文件

5、列表框中只允許顯示txt和rtf類型的文件，則Filter屬性的正確設(shè)置是_。 DA. 文本文件(.txt)|*.txt|rtf|*.rtfB. 文本文件(.txt)(*.txt)(rtf)(*.rtf)C. 文本文件*.txt|rtf*.rtfD. 文本文件(.txt)|*.txt|rtf|*.rtf5. 設(shè)變量x = 1，y = -1，a = 5，b = -5，則以下表達(dá)式的值為“真”的是_。 BA. x+a 0 And y 0C. a = b Or x a+b And Not (y maxAge Then MaxAge=Age maxName = Name End If Loop Fil

6、eClose(1) Label1.text = 最大年齡： & maxAge & vbCrLf & 最大年齡姓名： & maxName & vbCrLf & 人數(shù)： & n FileOpen(2, result.txt,_(3)_) Print(2, maxName, maxAge, n) FileClose(2)End Sub2. 單擊按鈕執(zhí)行在輸入樣本串中查找字串，刪除字串字符后輸出至結(jié)果文本框。用復(fù)選框可選擇查找方式是否區(qū)分大小寫。Private Sub Button1_Click() Handles Button1.Click Dim ss$, s0$, len0%, ms$, i%

7、ss = TextBox1.Text s0 = TextBox2.Text If _(1)_Then s0 = _(2)_ End If len0 = Len(s0) For i = 1 To Len(ss) - len0 + 1 ms = _(3)_ If CheckBox1.Checked Then ms = UCase(ms) End If If (ms = s0) Then ss = Mid(ss, 1, i - 1) + Mid(ss, i + len0) i = i - 1 End If Next i TextBox3.Text = _(4)_End Sub3. 單擊窗體執(zhí)行將所輸

8、入的整數(shù)插入排序后的原數(shù)組元素適當(dāng)位置。Function Insert(ByRef s%(), ByVal key As Integer) As Integer Dim k%, i%, j% k = _(1)_ For i = 0 To UBound(s) If key s(i) Then k = i _(2)_ End If Next i ReDim Preserve s(UBound(s) + 1) For j = UBound(s) - 1 To k Step -1 _(3)_ Next j s(k) = key Insert = UBound(s) End Function Priva

9、te Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim i%, p%, m% Dim a%() = 1, 3, 6, 8, 9, 13, 17, 20, 25 Label1.Text = For i = 0 To UBound(a) _(4)_ Next i Label1.Text &= vbCrLf p = InputBox(請(qǐng)輸入要插入的數(shù)：) m = _(5)_ For i = 0 To m Label1.Text &= a(i) & Next i Label

10、1.Text &= vbCrLfEnd Sub三、程序調(diào)試題(共20分，每錯(cuò)2.5分，第1題有2處錯(cuò)，第2題有3處錯(cuò)，第3題有3處錯(cuò))啟動(dòng)解決方案文件C:ks改錯(cuò).sln，請(qǐng)調(diào)試改正，并按原文件名和位置保存。正確結(jié)果見樣例c:樣張改錯(cuò)樣例.exe。改錯(cuò)方法：不能修改或重新定義變量，不允許增加或刪除語句，但可以修改語句,所修改的語句必須在句尾加上注釋標(biāo)記 *。調(diào)試改錯(cuò)題1：輸入18位身份證號(hào)碼，通過第710位取出出生年，給出寄語。對(duì)1959（含）出生的人，寄語為步入中老年，請(qǐng)您注意身體??；對(duì)1960年代和1990年代出生的人，寄語均為60后和后要多溝通，避免代溝！; 對(duì)于19701989年出生的

11、人，寄語為70、80后的青年，祝你工作順利??；對(duì)于2000后出生的人，寄語為小朋友，祝你茁壯成長！; 其余判斷為輸入錯(cuò)誤，清空文本框并置焦點(diǎn)。 Private Sub Button1_Click() Handles Button1.Click Dim bthyear%, lbltx$ bthyear = Val(Mid(TextBox1.Text, 7, 4) Select Case bthyear Case Is =1960 and bthyear=1990 and bthyear 2008 lbltx = 小朋友，祝你茁壯成長！ Case Else lbltx = 輸入錯(cuò)了吧？！請(qǐng)重新輸入

12、 TextBox1.Text = TextBox1.Focus() End Select Label1.Text = lbltx End Sub調(diào)試改錯(cuò)題2： 產(chǎn)生隔行輪換顯示字母和數(shù)字的菱形圖案（規(guī)律如圖）Private Sub Button2_Click() Handles Button2.Click Dim i%, j%, k% Label2.Text = For i = 0 To 14 If i = 7 Then k = i Else k = 14 - i End If Label2.Text &= Space(7 - k) If k Mod 2 Then For j = k To 3

13、 * k Label2.Text &= Chr(66 + k) Next j Else For j = k To 2 * k Label2.Text &= k Next j End If Label2.Text &= vbCrLf Next iEnd Sub調(diào)試改錯(cuò)題3:隨機(jī)產(chǎn)生120個(gè)大寫字符串，并隨機(jī)產(chǎn)生一個(gè)大寫字母分別填入兩個(gè)文本框中，統(tǒng)計(jì)這個(gè)大寫字母在該串中出現(xiàn)的次數(shù)。Private Sub Button3_Click() Handles Button3.Click Dim str1$, str2$, i%, j%, sum% TextBox2.Text = i = Int(Rnd()

14、 * 20 + 1) 產(chǎn)生120之間的隨機(jī)整數(shù) For j = 1 To i TextBox2.Text &= Chr(64 + Int(Rnd() * 26 + 1) 隨機(jī)產(chǎn)生大寫字母字符串 Next TextBox3.Text = Chr(Int(Rnd() * 26 + 1) str1 = TextBox2.Text str2 = TextBox3.Text sum = 1 For j = 1 To i If Left(str1, j, 1) = str2 Then sum += 1 End If Next If sum 0 Then Label3.Text = str2 & 在字符串中

15、出現(xiàn)了 & sum & 次。 Else Label3.Text = str2 & 在字符串中沒有出現(xiàn)過 End IfEnd Sub四、編程題（35分）1在C:KS 目錄下新建項(xiàng)目，解決方案文件為bct0.sln。2參見樣例c:樣張編程題樣例.exe，在Form1窗體上放置兩個(gè)列表框。建立如下菜單：菜單項(xiàng)備注應(yīng)用一級(jí)菜單產(chǎn)生二級(jí)菜單篩選二級(jí)菜單分隔線結(jié)束二級(jí)菜單繪圖一級(jí)菜單3單擊菜單產(chǎn)生隨機(jī)產(chǎn)生10個(gè)大寫字母，填入ListBox1中。單擊菜單篩選將列表框1中K以后（含K，ASCII碼值為75）的字母選出，填入ListBox2中。4單擊繪圖菜單項(xiàng)時(shí)，顯示窗體2；單擊結(jié)束菜單項(xiàng)時(shí)，結(jié)束程序的運(yùn)行。5在窗體2上單擊繪圖命令按鈕，設(shè)置畫布原點(diǎn)（x0,y0) 為 (200,100),按以下公式繪制，當(dāng)Y0為紅色圖形，Y0為藍(lán)色圖形，其中40為Y軸的顯示放大倍數(shù)、20為X軸的放大倍數(shù)，t= -33