VB期中考試試卷及參考答案（B1卷）

20102011學(xué)年度第2學(xué)期期中考試試卷B1 考試科目：Visual Basic程序設(shè)計(jì) 考試形式：開卷-上機(jī)考 答題時(shí)間：120分鐘班級 學(xué)號 姓名 一、選擇題（2分/題，共20分）1. 以下有關(guān)VB對象名稱(Name)屬性的敘述，正確的是_。A）對象的Name屬性值可以為空B）窗體的Name屬性用來標(biāo)識和引用窗體C）可以在程序運(yùn)行期間改變對象的Name屬性值D）窗體的Name屬性值是顯示在標(biāo)題欄中的字符串2. Visual Basic6.0集成環(huán)境的主窗口中不包括_。A）標(biāo)題欄 B）菜單欄 C）狀態(tài)欄 D）工具欄 3在開發(fā)VB應(yīng)用程序時(shí)，一個(gè)工程一般至少應(yīng)含有_。A）標(biāo)準(zhǔn)模塊文件和類模塊文件 B）工程文件和窗體文件C）工程文件和類模塊文件 D）工程文件和標(biāo)準(zhǔn)模塊文件4.為了使命令按鈕(名稱為Command1)右移200，應(yīng)使用的語句是_。A） Command1.Move -200B） Command1.Move 200C） Command1.Left= Command1.Left+200D） Command1.Left= Command1.Left-2005 當(dāng)程序運(yùn)行時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的_事件過程。A）Click B）Load C）Unload D）GotFocus6 Visual Basic有多種類型的窗口，若要在設(shè)計(jì)時(shí)看到窗體窗口，以下操作不正確的是_。A）打開“視圖”菜單，選擇“對象窗口” B）雙擊VB窗口工作區(qū)的空白處C）單擊“工程資源管理器”中的“查看對象”按鈕 D）雙擊“工程資源管理器”中對應(yīng)的窗體名7下面關(guān)于屬性和方法的描述中，不正確的是_。A）屬性是對象的特征，方法是對象的行為 B）屬性和方法都有值C）屬性可以被賦值 D）方法表示能執(zhí)行的操作8下面關(guān)于標(biāo)簽和文本框的描述中，正確的是_。A）文本框和標(biāo)簽都可以顯示文字 B）文本框和標(biāo)簽都可以在運(yùn)行時(shí)輸入文字C）文本框和標(biāo)簽都有Caption屬性 D）文本框和標(biāo)簽都有Text屬性9在一行內(nèi)寫多條語句時(shí)，每個(gè)語句之間用_來分隔。A） ， B） ： C） 、 D） ；10表達(dá)式 16/4-25*8/4 MOD 52的值 為_。A） 14 B） 4 C） 20 D） 2二、讀程填空題（每題4分，共32分）閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。1. 【程序說明】隨機(jī)產(chǎn)生n個(gè)100以內(nèi)的正整數(shù)，放在數(shù)組A中存儲。 n由InputBox()輸入,并每5個(gè)數(shù)據(jù)一行打印輸出。 【程序】Private Sub Command1_Click() Dim a() As Integer n = InputBox(請輸入一個(gè)正整數(shù)) ReDim （1） a(n) For i = 1 To n a(i) = Int(Rnd * 100) Print （2） a(i); If （3） I mod 5=0 then print Next i End Sub【供選擇的答案】（1）A.a() B.a% C. n*i D. a(n) （2）A. print j B. a(i); C. print n*i D. print n （3）A. i=n B. i=0 C. I mod 5=0 D. i52. 【程序說明】用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值【程序】 Option Base 1 (4) Private Sub Command1_Click() Dim arr1, i, Max as Integer arr1=Array(12,435,76,24,78,54,866,43) (5) Max=arr1(1) For i=1 To 8 If arr1(i)Max Then _(6)_ Max=arr1(i) Next i Print最大值是：；Max End Sub【供選擇的答案】（4）A.dim array B. Option Base 1 C.const=12 D. dim a(5) （5）A.arr1(i) =12 B. arr1=12 C. n= n*i D. Max=arr1(1)（6）A.arr1 (i )= Max B. Exit for C. Max=arr1(i) D. i=i+13. 【程序說明】產(chǎn)生100個(gè)14之間的隨機(jī)整數(shù)，并進(jìn)行統(tǒng)計(jì)。數(shù)組元素S(i)(i=1,2,3,4)的值表示等于i的隨機(jī)數(shù)的個(gè)數(shù)，要求輸出如下格式：S(1)=. . . S(2)=. . S(3)=. . . S(4)=. . .【程序】Dim S(4) As IntegerRandomizeFor I=1 To 100 X=Int(Rnd * 4+1) S(x)= S(x)+1 (7) Next IFor I=1 To 4Print S(;I;)=;S(I) , (8) Next I【供選擇的答案】（7）A. s(i)-1 B. S(x)+1 C. n*i D. s(i)+1 （8）A. S(x)=;S(I) B. s(i); C. S(I)=;S(I) D. S(;I;)=;S(I) ,三、編程題（4*12=48分）1通過使用MsgBox（）輸出對學(xué)號和密碼進(jìn)行驗(yàn)證的結(jié)果。要求：學(xué)號為數(shù)字，輸入非數(shù)字字符則給出提示；密碼為“TJin1234”，輸入不正確，提示信息，若單擊“取消”按鈕，則結(jié)束程序；以上兩者都輸入正確，也給出提示成功的信息。提示信息對話框效果如下圖所示。（12分） 2.輸入一串字符，統(tǒng)計(jì)各個(gè)英文字母出現(xiàn)的次數(shù)（大小寫不區(qū)分），并對出現(xiàn)的字母顯示其出現(xiàn)的個(gè)數(shù)，運(yùn)行界面如下圖所示。（12分）3隨機(jī)產(chǎn)生10個(gè)100200之間的數(shù)（含100與200），求最大值與最小值。要求將原始的10個(gè)數(shù)與最大、最小值用Print語句直接輸出在窗體上，并有相應(yīng)的提示文字，如下圖所示。（12分）4建立一個(gè)7行7列的二維數(shù)組，兩條對角線上的元素為1，其余元素為0，并在窗體上顯示輸出。（12分） 浙江樹人大學(xué) 20102011學(xué)年度第2學(xué)期期中考試試卷B1 考試課目：Visual Basic程序設(shè)計(jì)答題紙 班級 學(xué)號 姓名 題 號一二三四總 分分 數(shù)一、選擇題（10*2=20分）題號12345678910答案bcbcbbbabb二、讀程選擇填空題（每空4分，共32分） 請?jiān)诟餍☆}正確選項(xiàng)的對應(yīng)位置處填“”ABCDABCD(1)(5)(2)(6)(3)(7)(4)(8)三、編程題（48分。各題程序調(diào)試后的源代碼要寫在試卷上的各小題后面，程序的源代碼和試卷WORD文檔一同打包后提交到服務(wù)器的ftp上）1通過使用MsgBox（）輸出對學(xué)號和密碼進(jìn)行驗(yàn)證的結(jié)果。要求：學(xué)號為數(shù)字，輸入非數(shù)字字符則給出提示；密碼為“TJin1234”，輸入不正確，提示信息，若單擊“取消”按鈕，則結(jié)束程序；以上兩者都輸入正確，也給出提示成功的信息。提示信息對話框效果如下圖所示。（12分） 參考答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Command2_Click() If Not IsNumeric(Text1) Then MsgBox 學(xué)號中有非數(shù)字字符！, 64, 提示 Text1 = Text1.SetFocus ElseIf Text2 = TJin1234 Then MsgBox 您成功進(jìn)入系統(tǒng)。, 48, 成功 Else a = MsgBox(密碼錯(cuò)誤， + Chr(13) + Chr(10) + 您不能進(jìn)入系統(tǒng)。, 5 + 16, 警告) If a = 4 Then Text2 = Text2.SetFocus Else Command1_Click End If End IfEnd Sub2.輸入一串字符，統(tǒng)計(jì)各個(gè)英文字母出現(xiàn)的次數(shù)（大小寫不區(qū)分），并對出現(xiàn)的字母顯示其出現(xiàn)的個(gè)數(shù)，運(yùn)行界面如下圖所示。（12分）參考答案2：Private Sub Command1_Click() Picture1.Cls Dim i%, s$, c As String * 1, l%, k% Dim arr(1 To 26) As Integer s = Text1.Text l = Len(s) For i = 1 To l c = UCase(Mid(s, i, 1) If c = A And c = Z Then arr(Asc(c) - 65 + 1) = arr(Asc(c) - 65 + 1) + 1 End If Next i k = 0 For i = 1 To 26 If arr(i) 0 Then Picture1.Print Chr(i + 64) & = & arr(i); ; k = k + 1 If k Mod 6 = 0 Then Picture1.Print End If Next iEnd Sub 3隨機(jī)產(chǎn)生10個(gè)100200之間的數(shù)（含100與200），求最大值與最小值。要求將原始的10個(gè)數(shù)與最大、最小值用Print語句直接輸出在窗體上，并有相應(yīng)的提示文字，如下圖所示。（12分） 參考答案3：Private Sub Command1_Click() Print 產(chǎn)生10個(gè)100-200之間的數(shù)： Randomize Max = 100: Min = 200 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x If x Min Then Min = x Next i Print Print 最大值=; Max Print 最小值=; MinEnd Sub4建立一個(gè)7行7列的二維數(shù)組，兩條對角線上的元素為1，其余元素