計(jì)算機(jī)專(zhuān)業(yè)第二次月考試題

1、計(jì)算機(jī)專(zhuān)業(yè)第二次月考試題計(jì)算機(jī)專(zhuān)業(yè)第二次月考試卷7 / 77 / 77一、選擇題（本大題共10小題，每小題2分，共20分）1在Visual Basic中，Print Int(35*Rnd)+n產(chǎn)生的隨機(jī)數(shù)的范圍是10至44（含10及44），則n是.（ ）A10 B. 20 C. 30 D. 352. 在Visual Basic中，下列可作為Visual Basic變量名的是.（ ）A. Filename B. Val C. X%D D. Print3. 在Visual Basic中，下列語(yǔ)句用來(lái)設(shè)置窗體中文本框（名稱(chēng)Text1）的屬性，其中在運(yùn)行時(shí)不能正確操作的語(yǔ)句是.（ ）A. Text1.

2、Text=Text TestB. Text1.Name=Text TestC. Text1.Enabled = FalseD. Text1.Visible = False4. 在Visual Basic中,下列運(yùn)算符優(yōu)先級(jí)最高的是.（ ）A. + B. * C. DAnd5. 執(zhí)行下面Visual Basic程序后，結(jié)果是哪個(gè)選項(xiàng).（ ）For i = 1 To 6 If i Mod 2 = 0 Then Print #; Else Print *; End IfNext iA# B* C*#*#*# D#*#*#*6. 下面的Visual Basic程序是對(duì)數(shù)組a中的元素按升序排列，程序中空

3、白位置應(yīng)該填下列選項(xiàng)中的哪一個(gè).（ ）Option Base 1Dim i As IntegerDim j As Integera = Array(2, 4, 7, 9, 3, 6, 20, 11)For i = 1 To 7 For j = i + 1 To 8 If a(i) a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) _ End If Next jNext iFor i = 1 To 8Print a(i);Next iA. a(i)=a(j) B. a(i) = a(i) - a(j) C. a(j)=a(i)-a(j) D. Exi

4、t For7. 執(zhí)行下面Visual Basic程序后，s=s+1語(yǔ)句被執(zhí)行了多少次.（ ）Dim s As Integers = 0For i = 1 To 10 For j = 0 To i - 1 s = s + 1 Next jNext iA. 0 B. 10 C55 D. 668. 執(zhí)行下面Visual Basic程序，數(shù)組a中的數(shù)字50所在位置的下標(biāo)是.（ ）Option Base 1Private Sub Command1_Click()Dim i As IntegerDim k As IntegerDim t As IntegerDim w As IntegerDim m As

5、 Integera = Array(3, 56, 8, 10, 89, 94, 78, 82, 20, 50, 100)m = UBound(a)k = m / 2For i = 1 To kw = a(i): a(i) = a(m - i + 1): a(m - i + 1) = wNext iEnd SubA. 1 B. 2 C. 3 D. 59. 在Visual Basic中，關(guān)于控件及窗體說(shuō)法不正確的是.（ ）A. 任何一個(gè)控件都有名稱(chēng)B. 任何一個(gè)控件都有屬性C. 任何一個(gè)控件都有單擊事件D. 控件是對(duì)象，窗體也是對(duì)象10. 執(zhí)行下面Visual Basic程序，輸入a的值為10，最

6、后輸出s的值是.（ ）Dim a As IntegerDim s As Integera = InputBox(a=)Select Case a Mod 2 Case 1: s = 1 Case 2: s = 10 Case 3: s = 11Case Else: s = 100End SelectPrint sA. 1 B. 2 C. 3 D. 100二、判斷題（本大題5小題，每小題2分，共10分。）1在Visual Basic中，對(duì)順序文件既有讀的操作語(yǔ)句，也有寫(xiě)的操作語(yǔ)句。（ ）2. 在Visual Basic中，窗體appearance屬性的功能是返回或設(shè)置對(duì)象的邊框樣式。（ ）3.

7、在Visual Basic中，定時(shí)器控件在運(yùn)行時(shí)是可見(jiàn)的。（ ）4. 在Visual Basic中，窗體的move方法中，參數(shù)left、width、height都不可以省略。（ ）5. 在Visual Basic中，form1.visible=true，這時(shí)窗體不可見(jiàn)。（ ）三、填空題（本大題共5小題，每小題2分，共10分。）1. Visual Basic的算術(shù)表達(dá)式4 / 3 Mod 3 * 2 + 2的結(jié)果是 。2.在Visual Basic中，將文本框的scrollbar的屬性設(shè)置為2，但沒(méi)有垂直滾動(dòng)條顯示，原因是沒(méi)有將 屬性設(shè)置為T(mén)rue。3.在Visual Basic中，有以下的循環(huán)

8、：X=1Do while x p Then Print a(i);Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容為： 。六、Visual Basic程序改錯(cuò)(本大題共2小題，每個(gè)錯(cuò)誤5分，共20分，每個(gè)程序有兩個(gè)錯(cuò)誤行，請(qǐng)?jiān)诖痤}紙上寫(xiě)出錯(cuò)誤行代碼和對(duì)應(yīng)的正確代碼，改對(duì)一處得一處分，改錯(cuò)不減分。注：要把整行寫(xiě)完整) 1有數(shù)組:s = Array(a42, b3c56, de7fg, hi, jk35kmn)統(tǒng)計(jì)數(shù)組s的各個(gè)元素中含有數(shù)字字符個(gè)數(shù)，把結(jié)果放到數(shù)組b相應(yīng)元素中，如上述數(shù)組s，當(dāng)程序運(yùn)行后b中各元素的值分別為：2,3,1,0,2。程序中有兩處錯(cuò)誤，請(qǐng)按要求改正。

9、程序如下：（兩個(gè)數(shù)組的下標(biāo)都是從1開(kāi)始，程序中定義的每個(gè)變量都用到,程序中只能用變量total統(tǒng)計(jì)數(shù)組中每個(gè)元素含數(shù)字字符個(gè)數(shù)）s = Array(a42, b3c56, de7fg, hi, jk35kmn)Dim b(5) As IntegerDim total As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 5 b(i) = 0 For j = 1 To Len(s(i) If Mid(s(i), j, 1) = 0 And Mid(s(i), j, 1) = 9 Then total = total + b(i) Next

10、jb(i) = totalNext iFor i = 1 To 5Print b(i);Next i2 如圖所示，窗體有兩個(gè)框架，左邊框架中有三個(gè)單選按鈕（名稱(chēng)分別為Option1，Option2和Option3），單選按鈕分別設(shè)置了標(biāo)題為小學(xué)、初中、高中；右邊的框架中是一個(gè)列表框（名稱(chēng)為L(zhǎng)ist1）；兩個(gè)框架中間是命令按鈕（標(biāo)題為存放結(jié)果，名稱(chēng)為Command1），命令按鈕功能：?jiǎn)螕裘畎粹o，清除列表框中的內(nèi)容，然后將選中單選按鈕的標(biāo)題放入列表框中。程序中有兩處錯(cuò)誤，分布在兩行，請(qǐng)將完整的錯(cuò)誤行和相應(yīng)的正確行寫(xiě)在答題紙橫線(xiàn)上。（不能改變程序行數(shù)，不能增加函數(shù)）Private Sub Comm

11、and1_Click()Dim s As StringList1.Clears = Select Case 1 Case Option1.Value s = s + Option1.Caption Case Option2.Value s = s + Option2.Caption Case Option3.Value s = s + Option3.CaptionEnd SelectList1.Text = sEnd Sub七、程序填空（本大題共4個(gè)空，每空5分，共20分，按程序要求在答題紙上填入相應(yīng)的內(nèi)容，使程序完整正確）1(Visual Basic試題)下面程序是從鍵盤(pán)輸入少于20個(gè)字符

12、的字符串，然后對(duì)字符串從左端進(jìn)行處理。處理方法：把字符串中后跟“#”的數(shù)字放入數(shù)組a中，如果是數(shù)字但后面沒(méi)有“#”則不存放。如輸入的字符串為“12#a2bc3#d45#6e7”,則12、3、45分別存放到數(shù)組a的前三個(gè)元素中。請(qǐng)?zhí)羁?。Option Base 0Private Sub Command1_Click()Dim s As StringDim c As StringDim i As IntegerDim j As IntegerDim a(10) As IntegerDim num As IntegerDim w As IntegerDim flag As Integer 標(biāo)志：為0表

13、示前一個(gè)字符非數(shù)字，為1表示前一字符為數(shù)字num = 0: i = 1: flag = 0: j = 0s = InputBox(s=)w = Len(s)Do While i = 0 And c = 9 Then num = num * 10 + Val(c): (1) End If If flag = 1 And c = # Then (2) : j = j + 1: flag = 0: num = 0 End If If (c 9) And flag = 1 Then flag = 0: num = 0 End If i = i + 1LoopFor i = 0 To j - 1 Pri

14、nt a(i);Next iEnd Sub2、(Visual Basic試題)窗體中有一文本框(名稱(chēng)Text1)，一組合框(名稱(chēng)Combo1，已添加5個(gè)條目)，一滾動(dòng)條（名稱(chēng)Hs1，min和max分別為1和5），一定時(shí)器控件（名稱(chēng)Timer1），定時(shí)器的Enabled屬性初始為False，Interval屬性值1000（1秒），一命令按鈕(標(biāo)題為開(kāi)始，名稱(chēng)Command1)。程序功能：（1）開(kāi)始命令按鈕功能：?jiǎn)?dòng)定時(shí)器工作；（2）定時(shí)器Timer1事件功能：一是清空文本框，二是在文本框中顯示組合框中選中的數(shù)字，選中數(shù)字幾，就在文本框中顯示幾個(gè)該數(shù)字，如選中3，則在文本框中顯示3個(gè)3，三是把滾動(dòng)條的Value值改為組合框中選定的值，四是把定時(shí)器的Timer1事件觸發(fā)時(shí)間改為與所選中的組合框的值一致的秒數(shù)。不完整的空白位置請(qǐng)寫(xiě)出正確的內(nèi)容。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim i As IntegerDim k As IntegerText1.Text = k = Val( (3) )For i = 1 To kText1.Text =