2020年上海市高等學校信息技術水平考試試卷

1、2020-09-21 22:19:12第 頁 25（A 場）2020年上海市高等學校信息技術水平考試試卷二級 VB.NET程序設計（A 場）（本試卷考試時間 120 分鐘）一、單選題 ( 本大題 10 道小題 ，每小題 1.5 分，共 15 分），從下面題目給出的A、B、C、D四個可供選擇的答案中選擇一個正確答案。1.在下列說法中，錯誤的是_。A.對象的三要素是屬性、事件和方法B.VB.NET只能開發(fā)Windows應用程序C.VB.NET完全支持面向?qū)ο蟪绦蛟O計D.類的三大特性是封裝性、繼承性和多態(tài)性2.在代碼窗口輸入代碼時，代碼下方有紅色波浪線表示_。A.對代碼設置了格式B.語法錯誤C.邏輯

2、錯誤D.運行時錯誤3.若有語句Dim x#，則x是_類型的變量。A.IntegerB.SingleC.DoubleD.String4.若要使Label1控件顯示時不覆蓋其背景內(nèi)容，即以透明方式顯示，則下面語句正確的是_。A.Label1.ForeColor=Color.TransparentB.Label1.ForeColor=NothingC.Label1.BackColor=D.Label1.BackColor=Color.Transparent5.文本框（TextBox）不能輸入多行文字，是因為_。A.文本框的高度不夠B.文本框的Multiline值為FalseC.文本框本身只能輸入一行

3、文字D.文本框的ScrollBars為None6.在下列Select語句的Case子句中，錯誤的是_。A.Case 0 To 100B.Case x=60C.Case Is=60D.Case 60,70,807.假定a的值為3，b的值為8，執(zhí)行Test(a, b)后,a和b的值分別為_。 Sub Test(ByVal x%, ByRef y%) y = y Mod x x = x * x End SubA.3，8B.3，2C.9，8D.9，28.在下列關于通用對話框的說法中，錯誤的是_。A.SaveFileDialog控件的DefaultExt屬性用于設置缺省的擴展名B.OpenFileDia

4、log控件的FileName屬性返回包括路徑在內(nèi)的文件名C.OpenFileDialog控件的Title屬性返回文件名，不包含路徑D.通用對話框使用Show方法打開9.若要把數(shù)據(jù)寫入D盤根目錄下的TEST.txt，則應使用下列_語句。A.FileOpen(1, D:TEST.txt, OpenMode.Output)B.FileOpen(1, D:TEST.txt)C.Open(1, D:TEST.txt, OpenMode.Append)D.FileOpen(1, D:TEST.txt, OpenMode.Output)10.利用遞歸算法解決問題的核心思想是_。A.選擇，選擇容易的方法解決問

5、題B.判斷，直接判斷出問題的結果C.分解，將大問題分解為本質(zhì)相同小問題D.循環(huán)，通過循環(huán)結構實現(xiàn)二、程序填空題 ( 本大題 2 道小題 ，每空 2.5 分，共 20 分）。1. 某學院有若干名學生，每個學生VB程序設計課程的成績是30到100之間的隨機整數(shù)，現(xiàn)要求輸出所有學生成績、前五名學生的成績以及前五名學生的平均成績（保留2位小數(shù)）。運行結果，如圖所示。 Private Sub Button1_Click() Handles Button1.Click Dim ave As Single, n, iMax, t As Integer n = Val(_(1)_) Dim mark(n -

6、1) As Integer Label1.Text = 所有同學成績： For i = 0 To _(2)_ mark(i) = Int(Rnd() * 71 + 30) Label1.Text = Label1.Text & mark(i) & Next For i = 0 To n - 2 開始從大到小排序 iMax = i For j = i + 1 To n - 1 If mark(j) _(3)_ Then iMax = j Next t = mark(i) mark(i) = mark(iMax) mark(iMax) = t Next Label2.Text = 前五名學生的成績

7、為： ave = 0 For i = 0 To 4 Label2.Text &= mark(i) & Space(3) ave = ave + mark(i) Next Label2.Text &= vbCrLf & 前五名學生的平均成績?yōu)椋?& Format(_(4)_, 0.00)End Sub2. 行程編碼是信息壓縮中的一種統(tǒng)計編碼。通過檢測重復的字符序列，將連續(xù)字符壓縮成字符+出現(xiàn)次數(shù)形式，例如，信息AAAABBBCCDEEEEE壓縮成A4B3C2D1E5。解壓縮為壓縮的逆過程，即將字符+出現(xiàn)次數(shù)解壓縮成連續(xù)的字符，例如，A4B3C2D1E5解壓縮成AAAABBBCCDEEEEE。下列

8、程序中的函數(shù)Decode（ByVal s As String）是將s字符串進行解壓縮（說明：重復字符數(shù)不超過9個）。Function Decode(ByVal s As String) As String Dim i, n, ln As Integer Dim c, news As String ln = Len(s) news = For i = 1 To ln Step 2 c = Mid(s, i, 1) n = Val(Mid(s, _(1)_, 1) news = news + StrDup(n, c) Next Decode = _(2)_End FunctionPrivate S

9、ub Button1_Click() Handles Button1.Click Dim s As String s = TextBox1.Text If Len(s) _(3)_ 2 0 Then MsgBox(長度不是偶數(shù)，請重新輸入！) TextBox1.Text = TextBox1.Focus() Else Label3.Text = _(4)_ End If End Sub三、操作題 三、程序調(diào)試題（本大題共3道小題，第1小題有3處錯，第2小題有3處錯，第3小題有4處錯，每改正一個錯得3分，共30分）打開C:KS調(diào)試改錯題B.sln，請調(diào)試改正，并按原文件名和位置保存。正確結果可見

10、樣例C:樣張調(diào)試改錯題B樣例.EXE。改錯方法：不允許增加或刪除語句，但可以修改原語句，所修改的語句須在該語句尾加上注釋標記： *。調(diào)試改錯題1垃圾分類可以提高垃圾的資源價值和經(jīng)濟價值，力爭物盡其用。上海要求垃圾分為四類，垃圾類別與垃圾桶顏色的對應關系如下表。桶顏色垃圾類別黑色干垃圾褐色濕垃圾藍色可回收物紅色有害垃圾本程序的功能：根據(jù)垃圾桶的顏色查詢存放垃圾的種類。單擊調(diào)試改錯題1按鈕，若輸入內(nèi)容的長度為2，則首先提取輸入顏色的第一個字，再判斷存放的垃圾類別，否則提示輸入錯誤信息。程序中有3個錯誤，請調(diào)試改正。 Private Sub Button1_Click() Handles Butto

11、n1.Click Dim str1$, str2$, str3$ Dim strLen% str1 = TextBox1.Text strLen = str1.len If strLen = 2 Then str2 = Mid(str1, 1,2) Select Case str2 Case 黑 str3 = 干垃圾 Case 褐 str3 = 濕垃圾 Case 藍 str3 = 可回收物 Case 紅 str3 = 有害垃圾 Case Else str3 = 輸入顏色種類有誤 End Select Label2.Text = 垃圾類別： & str2 Else Label2.Text = 輸

12、入長度錯，請重新輸入！ End If End Sub調(diào)試改錯題2程序的功能：拖動水平滾動條后，獲得一個正整數(shù)n（3n9），輸出樹形字符圖形,其中上面樹枝n行，下面樹桿是n的一半（取整），具體見樣例。程序中有3個錯誤，請調(diào)試改正。 Private Sub HScrollBar1_Scroll() Handles HScrollBar1.Scroll Dim i%, n% n = HScrollBar1.Text Label3.Text = For i = 1 To n Label3.Text &= Space(n - i) & StrDup( i - 1, *) & vbCrLf Next Fo

13、r i = 1 To n 2 Label3.Text = Space(n - 2) & StrDup(3, W) & vbCrLf Next i End Sub調(diào)試改錯題3本程序的功能是計算下列級數(shù)前n(n0)項之和： 程序運行后輸入n和x的值，輸出計算結果。程序中有4個錯誤，請調(diào)試改正。 Private Sub Button3_Click() Handles Button3.Click Dim i%, n%, x!, fx!, fac!, sum! x = Val(TextBox2.Text) n = Val(TextBox3.Text) sum = x fx = x fac = 0 For

14、 i = 2 To n fx = fx * x * 2 fac = -fac * (2 * i - 2) * (2 * i - 1) sum = (i 2 - i + 1) * fx / fac Next Label7.Value = sum End Sub四、編程題(35分)參照樣例C:樣張編程題B樣例.exe，編寫一個完整的程序，要求如下：1界面設計要求在Form1窗體上放置文本框、組合框、標簽和命令按鈕，并建立應用和窗體2主菜單，在應用主菜單項下有重置、退出菜單項。2保存要求在C:KS目錄下創(chuàng)建名為VBNETB.sln的解決方案。3Form1窗體編程要求根據(jù)不同的工作經(jīng)驗對應的平均月收入，計算出程序員的薪酬。（1）組合框1為程序員類型，有兩個選項：高級程序員、初級程序員，對應的平均月薪在組合框2中，分別為18000、13000，初始時兩個組合框均顯示首項；要求組合框2隨組合框1聯(lián)動變化，組合框2的Enabled屬性設置為False。（2）在文本框中輸入工作月數(shù)，在組合框1中選擇程序員類型，單擊計算按鈕，計算出薪酬，并顯示在標簽中，界面如圖所示。公式為：薪酬平均月薪 工作月數(shù)（3）單擊重置菜單項，將組合框1、組合框