




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)
文檔簡介
1、計算機專業(yè)第二次月考試題計算機專業(yè)第二次月考試卷7 / 77 / 77一、選擇題(本大題共10小題,每小題2分,共20分)1在Visual Basic中,Print Int(35*Rnd)+n產(chǎn)生的隨機數(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中,下列語句用來設(shè)置窗體中文本框(名稱Text1)的屬性,其中在運行時不能正確操作的語句是.( )A. Text1.
2、Text=Text TestB. Text1.Name=Text TestC. Text1.Enabled = FalseD. Text1.Visible = False4. 在Visual Basic中,下列運算符優(yōu)先級最高的是.( )A. + B. * C. DAnd5. 執(zhí)行下面Visual Basic程序后,結(jié)果是哪個選項.( )For i = 1 To 6 If i Mod 2 = 0 Then Print #; Else Print *; End IfNext iA# B* C*#*#*# D#*#*#*6. 下面的Visual Basic程序是對數(shù)組a中的元素按升序排列,程序中空
3、白位置應(yīng)該填下列選項中的哪一個.( )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語句被執(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)于控件及窗體說法不正確的是.( )A. 任何一個控件都有名稱B. 任何一個控件都有屬性C. 任何一個控件都有單擊事件D. 控件是對象,窗體也是對象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中,對順序文件既有讀的操作語句,也有寫的操作語句。( )2. 在Visual Basic中,窗體appearance屬性的功能是返回或設(shè)置對象的邊框樣式。( )3.
7、在Visual Basic中,定時器控件在運行時是可見的。( )4. 在Visual Basic中,窗體的move方法中,參數(shù)left、width、height都不可以省略。( )5. 在Visual Basic中,form1.visible=true,這時窗體不可見。( )三、填空題(本大題共5小題,每小題2分,共10分。)1. Visual Basic的算術(shù)表達式4 / 3 Mod 3 * 2 + 2的結(jié)果是 。2.在Visual Basic中,將文本框的scrollbar的屬性設(shè)置為2,但沒有垂直滾動條顯示,原因是沒有將 屬性設(shè)置為True。3.在Visual Basic中,有以下的循環(huán)
8、:X=1Do while x p Then Print a(i);Next iEnd Sub程序運行后,單擊命令按鈕,則窗體上顯示的內(nèi)容為: 。六、Visual Basic程序改錯(本大題共2小題,每個錯誤5分,共20分,每個程序有兩個錯誤行,請在答題紙上寫出錯誤行代碼和對應(yīng)的正確代碼,改對一處得一處分,改錯不減分。注:要把整行寫完整) 1有數(shù)組:s = Array(a42, b3c56, de7fg, hi, jk35kmn)統(tǒng)計數(shù)組s的各個元素中含有數(shù)字字符個數(shù),把結(jié)果放到數(shù)組b相應(yīng)元素中,如上述數(shù)組s,當(dāng)程序運行后b中各元素的值分別為:2,3,1,0,2。程序中有兩處錯誤,請按要求改正。
9、程序如下:(兩個數(shù)組的下標(biāo)都是從1開始,程序中定義的每個變量都用到,程序中只能用變量total統(tǒng)計數(shù)組中每個元素含數(shù)字字符個數(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 如圖所示,窗體有兩個框架,左邊框架中有三個單選按鈕(名稱分別為Option1,Option2和Option3),單選按鈕分別設(shè)置了標(biāo)題為小學(xué)、初中、高中;右邊的框架中是一個列表框(名稱為List1);兩個框架中間是命令按鈕(標(biāo)題為存放結(jié)果,名稱為Command1),命令按鈕功能:單擊命令按鈕,清除列表框中的內(nèi)容,然后將選中單選按鈕的標(biāo)題放入列表框中。程序中有兩處錯誤,分布在兩行,請將完整的錯誤行和相應(yīng)的正確行寫在答題紙橫線上。(不能改變程序行數(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個空,每空5分,共20分,按程序要求在答題紙上填入相應(yīng)的內(nèi)容,使程序完整正確)1(Visual Basic試題)下面程序是從鍵盤輸入少于20個字符
12、的字符串,然后對字符串從左端進行處理。處理方法:把字符串中后跟“#”的數(shù)字放入數(shù)組a中,如果是數(shù)字但后面沒有“#”則不存放。如輸入的字符串為“12#a2bc3#d45#6e7”,則12、3、45分別存放到數(shù)組a的前三個元素中。請?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、示前一個字符非數(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試題)窗體中有一文本框(名稱Text1),一組合框(名稱Combo1,已添加5個條目),一滾動條(名稱Hs1,min和max分別為1和5),一定時器控件(名稱Timer1),定時器的Enabled屬性初始為False,Interval屬性值1000(1秒),一命令按鈕(標(biāo)題為開始,名稱Command1)。程序功能:(1)開始命令按鈕功能:啟動定時器工作;(2)定時器Timer1事件功能:一是清空文本框,二是在文本框中顯示組合框中選中的數(shù)字,選中數(shù)字幾,就在文本框中顯示幾個該數(shù)字,如選中3,則在文本框中顯示3個3,三是把滾動條的Value值改為組合框中選定的值,四是把定時器的Timer1事件觸發(fā)時間改為與所選中的組合框的值一致的秒數(shù)。不完整的空白位置請寫出正確的內(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 =
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 數(shù)控機床編程與操作考核試卷
- 油漆承包項目合同范本
- 簡單店面轉(zhuǎn)讓合同范本
- 內(nèi)部職工按揭合同范本
- 個人外包設(shè)備合同范本
- 農(nóng)村屋面租賃合同范本
- 電商企業(yè)商品供應(yīng)鏈管理合同
- 股份公司員工培訓(xùn)計劃書
- 高中生創(chuàng)新思維培養(yǎng)故事
- 運輸購銷合同與運輸車輛承包合同
- 施工安全管理培訓(xùn)資料
- 第16課數(shù)據(jù)管理與編碼(教案)四年級全一冊信息技術(shù)人教版
- 中建10t龍門吊安拆安全專項施工方案
- 國內(nèi)外測井技術(shù)現(xiàn)狀與展望文檔
- 大模型專題:2024大模型技術(shù)及其在金融行業(yè)的應(yīng)用探索報告
- 天津地區(qū)高考語文五年高考真題匯編-語言文字應(yīng)用
- 特殊作業(yè)安全管理監(jiān)護人專項培訓(xùn)課件
- 道路運輸企業(yè)兩類人員安全考核試題及答案
- 衛(wèi)生技術(shù)人員準(zhǔn)入制度
- 簡單酒店裝修合同書范本(30篇)
- 2024-2030年中國核桃油行業(yè)消費趨勢及競爭格局分析研究報告
評論
0/150
提交評論