|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2012秋江蘇省高校計(jì)算機(jī)二級(jí)VB筆試真題 |
本題目的視頻講解請(qǐng)登錄school.njwww.net查看 絕密★ 啟用前 2012年秋 江蘇省高等學(xué)校非計(jì)算機(jī)專(zhuān)業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試 二級(jí)試卷 試卷語(yǔ)種:Visual Basic語(yǔ)言 說(shuō) 明： 1．本試卷包括計(jì)算機(jī)基礎(chǔ)知識(shí)部分和程序設(shè)計(jì)部分,考試時(shí)間共12 0分鐘； 2．本試卷滿(mǎn)分為60分,分選擇題和填空題,試卷不分A、B類(lèi)型； 3．計(jì)算機(jī)基礎(chǔ)知識(shí)部分全部是選擇題(20分),程序設(shè)計(jì)部分分為選擇題(1 0 分)和填空題(30分)兩種； 4．選擇題用答題卡答題。每一項(xiàng)有A、B、C、D四個(gè)可供選擇的答案,請(qǐng)選 擇其中一個(gè)你認(rèn)為正確的答案,用HB鉛筆涂寫(xiě)在答題卡的相應(yīng)答題號(hào)內(nèi)。 每選對(duì)一項(xiàng)得1分,不選或選錯(cuò)不得分； 5．填空題用答題紙答題。請(qǐng)將答案用藍(lán)、黑色鋼筆或圓珠筆填寫(xiě)在答題紙的 相應(yīng)答題號(hào)內(nèi),每個(gè)答案只占一行,不得換行。每填對(duì)一個(gè)答案得1分, 不填或填錯(cuò)不得分； 6．請(qǐng)認(rèn)真填寫(xiě)并仔細(xì)核對(duì)答題卡和答題紙上的學(xué)校名稱(chēng)、準(zhǔn)考證號(hào)和姓名是 否填寫(xiě)正確。 7．考試結(jié)束時(shí)將試卷、答題卡和答題紙放在桌上,不得帶走。待監(jiān)考人員收 畢清點(diǎn)后,方可離場(chǎng)。 第一部分 計(jì)算機(jī)基礎(chǔ)知識(shí) 一、選擇題(用答題卡答題,答案依次填在1--20題號(hào)內(nèi)) 1.下列關(guān)于信息、信息技術(shù)、信息產(chǎn)業(yè)與信息化的敘述中。錯(cuò)誤的是___1___ 。 A.世間一切事物都在運(yùn)動(dòng),都具有一定的運(yùn)行狀態(tài),因而都在產(chǎn)生信息 B.現(xiàn)代信息技術(shù)的主要特征之一是以數(shù)字技術(shù)為基礎(chǔ) C.信息產(chǎn)業(yè)特指利用信息設(shè)備進(jìn)行信息處理與服務(wù)的行業(yè),它不包括任何生產(chǎn)制造行業(yè) D.信息化是一個(gè)推動(dòng)人類(lèi)社會(huì)從工業(yè)社會(huì)向信息社會(huì)轉(zhuǎn)變的社會(huì)轉(zhuǎn)型的過(guò)程 2.下列關(guān)于數(shù)字技術(shù)與微電子技術(shù)的敘述中,錯(cuò)誤的是___2___ 。 A.數(shù)字技術(shù)的處理對(duì)象是"比特",它只有兩種取值,即數(shù)字0和數(shù)字1 B.數(shù)據(jù)通信和計(jì)算機(jī)網(wǎng)絡(luò)中傳輸二進(jìn)制信息時(shí),傳輸速率的度量單位通常為B/s、KB/s、MB/s等 C.微電子技術(shù)是實(shí)現(xiàn)電子電路和電子系統(tǒng)超小型化及微型化的技術(shù),它以集成電路為核心 D.Intel公司創(chuàng)始人之一摩爾曾發(fā)表論文預(yù)測(cè),單塊集成電路的集成度平均每18~24個(gè)月翻一番 3.以下選項(xiàng)中,數(shù)值相等的一組數(shù)是___3___ 。 A.十進(jìn)制數(shù)54020與八進(jìn)制數(shù)54732 B.八進(jìn)制數(shù)13657與二進(jìn)制數(shù)1011110101111 C.十六進(jìn)制數(shù)F429與二進(jìn)制數(shù)1011010000101101 D.八進(jìn)制數(shù)7324與十六進(jìn)制數(shù)B93 4.下列關(guān)于臺(tái)式PC機(jī)CPU的敘述中,錯(cuò)誤的是___4___。 A.目前的PC機(jī),CPU芯片都是直接固定在主板上的,用戶(hù)不可對(duì)其進(jìn)行更換 B.PC機(jī)CPU芯片有多個(gè)生產(chǎn)廠商,例如Intel公司、AMD公司等 C.Intel公司的Core i7/i5/i3處理器是64位多內(nèi)核CPU芯片 D.目前的CPU芯片中一般都集成了一定容量的高速緩沖存儲(chǔ)器cache 5.下列關(guān)于臺(tái)式PC機(jī)主板的敘述中,錯(cuò)誤的是___5___。 A.為了便于不同PC機(jī)主板的互換,主板的物理尺寸已經(jīng)標(biāo)準(zhǔn)化,例如ATX和BTX規(guī)格 B.芯片組是主板上的重要部件,它與CPU芯片及外設(shè)同步發(fā)展 C.主板上的BIOS集成電路芯片中存儲(chǔ)了CMOS設(shè)置程序 D.主板上的CMOS存儲(chǔ)器是一種非易失性存儲(chǔ)器,在任何情況下其信息均不會(huì)丟失 6.下列四種I/O總線(xiàn)(接口)中,數(shù)據(jù)傳輸方式為并行方式的是___6___ 。 A.PCI-Express B.PCI C.USB D.IEEE-1394 7.下列關(guān)于常用I/O設(shè)備的敘述中,錯(cuò)誤的是___7___ A.鼠標(biāo)器與主機(jī)的接口主要有PS/2和USB兩種 B.光學(xué)分辨率是掃描儀的重要性能指標(biāo),目前普通辦公用掃描儀的分辨率可達(dá)1000dpi以上 C.數(shù)碼相機(jī)的成像芯片均為CCD類(lèi)型,且絕大多數(shù)相機(jī)的存儲(chǔ)卡是通用的、可互換的 D.寬屏LCD顯示器是目前最常見(jiàn)的PC機(jī)顯示器,其顯示屏的寬度與高度之比為16:9或16:10 8.下列關(guān)于PC機(jī)外存儲(chǔ)器的敘述中,錯(cuò)誤的是___8___ A.PC機(jī)硬盤(pán)接口主要有PATA(并行ATA)和SATA(串行ATA)兩種,PATA的傳輸速率更高些 B.目前U盤(pán)不僅能方便地保存數(shù)據(jù),還可以模擬光驅(qū)和硬盤(pán)啟動(dòng)操作系統(tǒng) C.固態(tài)硬盤(pán)是基于半導(dǎo)體存儲(chǔ)器芯片的一種外存儲(chǔ)設(shè)備,一般用在便攜式計(jì)算機(jī)中 D.光盤(pán)可分為CD光盤(pán)、DVD光盤(pán)和藍(lán)光光盤(pán) 9. 下列關(guān)于軟件的敘述中,錯(cuò)誤的是___9___ A.軟件是用于特定用途的一整套程序、數(shù)據(jù)及相關(guān)的文檔 B.共享軟件是沒(méi)有版權(quán)的軟件。允許用戶(hù)對(duì)其進(jìn)行修改并散發(fā) C.目前,Adobe Reader、360殺毒軟件是有版權(quán)的免費(fèi)軟件 D.操作系統(tǒng)、程序設(shè)計(jì)語(yǔ)言處理蠶統(tǒng)、數(shù)據(jù)庫(kù)管理系統(tǒng)均屬于系統(tǒng)軟件 10.下列關(guān)于Windows操作系統(tǒng)多任務(wù)處理的敘述中,正確的是___10___。 A.如果用戶(hù)只啟動(dòng)一個(gè)應(yīng)用程序工作(如使用Word寫(xiě)作),那么該程序就可以自始至終地獨(dú)占CPU B.僅當(dāng)計(jì)算機(jī)中有多個(gè)處理器或處理器為多內(nèi)核處理器時(shí),操作系統(tǒng)才能同時(shí)執(zhí)行多個(gè)任務(wù)處理 C.無(wú)論是系統(tǒng)程序還是應(yīng)用程序,所有運(yùn)行程序(進(jìn)程)獲得CPU使用權(quán)的優(yōu)先級(jí)相同 D.在多任務(wù)處理時(shí),后臺(tái)任務(wù)與前臺(tái)任務(wù)都能得到CPU的及時(shí)響應(yīng) 11.下列關(guān)于程序設(shè)計(jì)語(yǔ)言及其處理系統(tǒng)的敘述中,錯(cuò)誤的是___11___ A.機(jī)器語(yǔ)言就是計(jì)算機(jī)的指令系統(tǒng),機(jī)器語(yǔ)言程序一般為二進(jìn)制代碼形式 B.匯編程序是指用匯編語(yǔ)言編寫(xiě)的源程序,不同計(jì)算機(jī)的匯編程序通常是相同的 C.Microsoft Office軟件(如Word、Excel等)中包含VBA程序設(shè)計(jì)語(yǔ)言,VBA是VB的子集 D.高級(jí)語(yǔ)言的語(yǔ)言處理系統(tǒng)的工作方式通常分為兩種,即"解釋"方式和"編譯"方式 12.下列關(guān)于移動(dòng)通信的敘述中,錯(cuò)誤的是___12___ A.第1代個(gè)人移動(dòng)通信采用的是模擬傳輸技術(shù),從第2代開(kāi)始均采用了數(shù)字傳輸技術(shù) B.目前廣泛使用的GSM和CDMA都是第2代移動(dòng)通信 C.我國(guó)的 D.目前第4代移動(dòng)通信( 13.下列關(guān)于因特網(wǎng)接入技術(shù)的敘述中,錯(cuò)誤的是___13___ A.采用電話(huà)撥號(hào)接入時(shí),需要使用電話(huà)MODEM,其主流產(chǎn)品的速率為56kbps B.采用ADSL接入時(shí),數(shù)據(jù)上傳速度低于數(shù)據(jù)下行速度,理想狀態(tài)下數(shù)據(jù)下行速度可達(dá)8Mbps C.采用有線(xiàn)電視網(wǎng)接入時(shí),多個(gè)終端用戶(hù)均可獨(dú)享連接段線(xiàn)路的帶寬 D.目前我國(guó)許多城市采用"光纖到樓、以太網(wǎng)入戶(hù)"的做法,用戶(hù)可享受數(shù)兆乃至百兆的帶寬 14.Internet使用TCP/IP協(xié)議實(shí)現(xiàn)了全球范圍的計(jì)算機(jī)網(wǎng)絡(luò)的互連,連接在Internet上的每一臺(tái)主機(jī)都有一個(gè)IP地址。下面不能作為IP地址的是___14___ 。 A.201.109.39.68 B.120.34.0.18 C. D.127.0.257.1 15.現(xiàn)在因特網(wǎng)上的多數(shù)郵件系統(tǒng)使用___15___協(xié)議,它允許郵件正文具有豐富的排版格式,可以包含圖片、聲音和超鏈接,從而使郵件的表達(dá)能力更強(qiáng),內(nèi)容更豐富。 A.MIME B.SMTP C.POP3 D.HTML 16.下列關(guān)于網(wǎng)絡(luò)信息安全的敘述中,錯(cuò)誤的是 ___16___ 。 A.信息在網(wǎng)絡(luò)傳輸過(guò)程中,會(huì)受到竊聽(tīng)、偽造、篡改等安全威脅 B.最簡(jiǎn)單也是最普遍的身份鑒別方法是使用口令(密碼),但其安全性不高 C.數(shù)據(jù)加密是常用的網(wǎng)絡(luò)信息安全措施.也是數(shù)字簽名等安全措施的基礎(chǔ) D.入侵檢測(cè)與防火墻一樣,都是被動(dòng)保護(hù)系統(tǒng)免受攻擊的一種網(wǎng)絡(luò)安全技術(shù) 17.下列關(guān)于字符編碼標(biāo)準(zhǔn)的敘述中,錯(cuò)誤的是___17___ 。 A.ASCII標(biāo)準(zhǔn)是美國(guó)制定的標(biāo)準(zhǔn),也是目前使用最為廣泛的西文字符編碼標(biāo)準(zhǔn) B.GB2312、GBK和GB18030都是我國(guó)制定的標(biāo)準(zhǔn),在這些標(biāo)準(zhǔn)中所有字符均采用雙字節(jié)編碼 C.目前在臺(tái)港澳等地區(qū)廣泛使用BIG5編碼標(biāo)準(zhǔn),它與GB2312不兼容 D.UCS是ISO制定的標(biāo)準(zhǔn),相應(yīng)的工業(yè)標(biāo)準(zhǔn)稱(chēng)為Unicode 18.人們說(shuō)話(huà)時(shí)所產(chǎn)生的語(yǔ)音信號(hào)必須數(shù)字化才能由計(jì)算機(jī)存儲(chǔ)和處理。假設(shè)語(yǔ)音信號(hào)數(shù)字化時(shí)取樣頻率為8kHz,量化精度為8位,數(shù)據(jù)壓縮比為4,那么1分鐘數(shù)字語(yǔ)音的數(shù)據(jù)量(壓縮后)大約為___18___ A.960KB B.480KB C.120KB D.60KB 19.目前數(shù)字有線(xiàn)電視和衛(wèi)星電視所傳輸?shù)臄?shù)字視頻采用的壓縮編碼標(biāo)準(zhǔn)大多是___19___ A.MPEG-1 B.MPEG 20.下列關(guān)于Microsoft Office軟件(以2003/2007版本為例)功能的敘述中,錯(cuò)誤的是___20___ A.Word編輯處理的文檔可以保存為多種文件格式,例如DOC、RTF、TXT、HTML等 B.一個(gè)Excel文件不可以引用另一個(gè)Excel文件中的數(shù)據(jù) C.PowerPoint編輯處理的文檔可以另存為網(wǎng)頁(yè)或圖像文件 D.Access是一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng),Access數(shù)據(jù)庫(kù)中 第二部分Visual Basic程序設(shè)計(jì) 一、選擇題(用答題卡答題,答案依次填在21—30答題號(hào)內(nèi)) 21.可以設(shè)置為VB程序運(yùn)行啟動(dòng)對(duì)象的是___21___ 。 ①工程文件 ②任意一個(gè)窗體 ③窗體模塊中的Main()過(guò)程 ④標(biāo)準(zhǔn)模塊中的Main()過(guò)程 A.①②③ B.②③④ C.②③D.②④ 22.若要引用列表框List1中最后一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容,應(yīng)使用___22___ 。 A.List1.List(List1.Count) B.List1.List(List1.Count-1) C.List1.ListIndex D.List1.Text 23.以下關(guān)于變量的說(shuō)法中,錯(cuò)誤的是___23___ A.在不同窗體中用Public語(yǔ)句定義的變量可以同名 B.在過(guò)程中用Dim語(yǔ)句聲明的變量都是局部變量,過(guò)程運(yùn)行結(jié)束它們將不再存在 C.靜態(tài)變量在過(guò)程運(yùn)行結(jié)束時(shí)其值仍保留,以供再次運(yùn)行該過(guò)程時(shí)使用,因此它不是局部變量 D.在窗體通用聲明部分聲明的模塊級(jí)變量,可以在本窗體內(nèi)的所有過(guò)程中使用 24.對(duì)應(yīng)數(shù)學(xué)表達(dá)式sin(30 A.Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10) B.Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)/Log(10) C.Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n) D.Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n) 25.以下關(guān)于If分支結(jié)構(gòu)語(yǔ)句的說(shuō)法中,正確的是__25___ 。 A.有If一定有與之配對(duì)的Else B.有If一定有與之配對(duì)的ElseIf C.有If一定有與之配對(duì)的End If D.有End If一定有與之配對(duì)的If 26.設(shè)有字符串變量s,其值為"abcd",可將s的值替換為"aabcd"的語(yǔ)句是___26___ A.Left(s,1)="aa" B.Mid(s,1,2)="aa" C.s="aa" && Mid(s,InStr(s,"a")) D.s="aa" && Right(s,Len(s)-InStr(s,"a")) 27.下列表達(dá)式中,不能將一個(gè)4位整數(shù)N的百位數(shù)字提取出來(lái)的是___27___ A.N\100 Mod 10 B.Mid(CStr(N),2,1) C.(N Mod 1000)\100 D.N\10 Mod 100 28.下列有關(guān)轉(zhuǎn)換函數(shù)的說(shuō)法中,正確的是___28___ 。 A.INT和CINT函數(shù)的區(qū)別僅在于結(jié)果的數(shù)據(jù)類(lèi)型不同 B.INT和FIX函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù),轉(zhuǎn)換后的結(jié)果類(lèi)型是Long C.CInt函數(shù)的功能是將其他類(lèi)型的數(shù)據(jù)轉(zhuǎn)換成Integer類(lèi)型 D.在處理負(fù)數(shù)時(shí),Int和Fix函數(shù)的結(jié)果是相同的 29.以下有關(guān)數(shù)組的說(shuō)法中,錯(cuò)誤的是_______29_________ A.用Redim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí),其下標(biāo)的上下界可以使用賦了值的變量 B.定義數(shù)組時(shí),數(shù)組維界值可以不是整數(shù) C.定義數(shù)組時(shí),數(shù)組每一維的上界值必須大于下界值 D.定義數(shù)組時(shí),數(shù)組維界值可以是負(fù)數(shù) 30.以下關(guān)于自定義函數(shù)過(guò)程的說(shuō)法中,錯(cuò)誤的是______30______ A.在自定義函數(shù)過(guò)程中可以多次給函數(shù)名賦值 B.如果在函數(shù)體內(nèi)沒(méi)有給函數(shù)名賦值,則該函數(shù)無(wú)返回值 C.函數(shù)定義時(shí)如果沒(méi)有說(shuō)明函數(shù)名的類(lèi)型,則該函數(shù)的返回值為變體類(lèi)型 D.若用Call語(yǔ)句調(diào)用函數(shù),則將丟棄函數(shù)的返回值 二、填空題 1.執(zhí)行下面程序,單擊窗體后，窗體上顯示的第一行內(nèi)容是___(1)___,第三行內(nèi)容是___(2)___,最后一行內(nèi)容是___(3)___ option explicit private sub form_click() dim x as integer, y as integer, sum as integer for x=1 to 3 for y=1 to 2 sum=sum+y if sum>2 then exit for next y print sum; x next x print x;y End Sub 2.執(zhí)行下面程序,單擊Command1后，則窗體上顯示的a(1,3)的值是___(4)___,a(2,1)的值是___(5)___,a(2,2)的值是___(6)___ Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i * 10 + j Next j Next i Call jh(a) End Sub Private Sub jh(x() As Integer) Dim i As Integer, j As Integer, t As Integer For i = 1 To 2 For j = 1 To 4 - i t = x(i, j) x(i, j) = x(4 - i, 4 - j) x(4 - i, 4 - j) = t Next j Next i For i = 1 To 3 For j = 1 To 3 Print x(i, j); Next j Print Next i Print End Sub 3.執(zhí)行下面程序,單擊Command1后，在Text1中輸入"12123152",窗體上顯示的第一行內(nèi)容是___(7)___,第二行內(nèi)容是___(8)___,最后一行內(nèi)容是___(9)___ Option Explicit Option Base 1 Private Sub Command1_Click() Dim s As String, i As Integer, a() As Integer s = Text1.Text For i = 1 To Len(s) ReDim Preserve a(i) a(i) = Val(Mid(s, i, 1)) Next i Call sub1(a) End Sub Private Sub sub1(a() As Integer) Dim i As Integer, j As Integer, k As Integer i = 2 Do Until i >= UBound(a) k = i - 1 Do Until a(i - 1) > a(i) i = i + 1 For j = k To i - 1 Print a(j); Next j Print i = i + 1 End Sub 4.執(zhí)行下面程序,單擊Command1后，窗體上顯示的第一行內(nèi)容是___(10)___,最后一行內(nèi)容是___(11)___,共顯示了___(12)___行 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer For i = 1 To 6 Step 2 Call sub1(i) Next i End Sub Private Sub sub1(a As Integer) Static b As Integer b = b + 1 If (a + b) Mod 4 = 0 Then Print a; b Else Call sub1(a + 1) End If End Sub 5.執(zhí)行下面程序,單擊Command1后，窗體上顯示的第一行內(nèi)容是___(13)___,第二行內(nèi)容是___(14)___,最后一行內(nèi)容是___(15)___ Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 4 To 7 Print gray_code(i) Next i End Sub Private Function gray_code(ByVal x As Integer) As String Dim i As Integer, d2b As String Do d2b = x Mod 2 & d2b x = x \ 2 Loop Until x = 0 d2b = Right("0000" & d2b, 4) For i = 4 To 2 Step -1 If Mid(d2b, i, 1) = Mid(d2b, i - 1, 1) Then Mid(d2b, i, 1) = "0" Else Mid(d2b, i, 1) = "1" End If Next i gray_code = d2b End Function 6.本程序用于驗(yàn)證西西弗斯數(shù)學(xué)黑洞123.驗(yàn)證過(guò)程是:對(duì)于任意一個(gè)位數(shù)不限的自然數(shù),依次統(tǒng)計(jì)出這個(gè)數(shù)中偶數(shù)字(數(shù)字0看做偶數(shù)字)的個(gè)數(shù),奇數(shù)字的個(gè)數(shù),總位數(shù),將偶數(shù)字的個(gè)數(shù)值、奇數(shù)字的個(gè)數(shù)值、總位數(shù)值拼接成一個(gè)新的數(shù)，若這個(gè)數(shù)不是123,則再對(duì)這個(gè)數(shù)重復(fù)以上的"統(tǒng)計(jì)個(gè)數(shù)、拼數(shù)"操作、如此經(jīng)過(guò)若干次操作,必能得到數(shù)123,例如,若初始數(shù)是35962,第一次統(tǒng)計(jì)個(gè)數(shù),偶數(shù)字個(gè)數(shù)是2,奇數(shù)字個(gè)數(shù)是3,總位數(shù)是5,拼成的新數(shù)是235,不是123;再對(duì)235統(tǒng)計(jì)個(gè)數(shù),其中偶數(shù)字個(gè)數(shù)是1,奇數(shù)字個(gè)數(shù)是2,總位數(shù)是3,拼成的新數(shù)恰是123,請(qǐng)完善程序 Option Explicit Private Sub Command1_Click() '"驗(yàn)證"按鈕 Dim m As String, s As String, t As String m = Text1.Text Do t = test(m) s = s & "-->" & t ___(16)___ Loop Until t = "123" Text2.Text = Text1.Text & s End Sub Private Function test(___(17)___) As String Dim i As Integer, x As Integer, y As Integer For i = 1 To Len(s) If ___(18)___ Mod 2 = 0 Then x = x + 1 Else y = y + 1 End If Next i test = x & y & Len(s) End Function 7.下面程序的功能是檢查表達(dá)式中的括號(hào)是否匹配,請(qǐng)完善程序 Option Explicit Private Sub Command1_Click() '"判斷"按鈕 If khpp(Text1.Text) Then Text2.Text = "表達(dá)式正確" Else Text2.Text = "括號(hào)不匹配" End If End Sub Private Function khpp(s As String) As Boolean Dim i As Integer, p As String * 1, L As Integer, r As Integer For i = 1 To Len(s) ___(19)___ Select Case p Case "(" l = l + 1 Case ")" If l > r Then ___(20)___ Else ___(21)___ End If End Select Next i If ___(21)___ Then khpp = True End Function 8.下面程序的功能是:找出滿(mǎn)足下列條件的n(2<=n<=4)位正整數(shù),該數(shù)的n倍乘積也是n位數(shù),且這兩個(gè)n位數(shù)合起來(lái)看,是由1--9之間的不同數(shù)字組成,例如:四位數(shù)1368由4位不同數(shù)字組成,其4倍乘積5472由其他4位不同數(shù)字組成,且兩數(shù)均不包含數(shù)字0,請(qǐng)完善程序 Option Explicit Option Base 1 Private Sub command1_click() '"查找"按鈕 Dim n As Integer, i As Integer, j As Long For i = 12 To 2498 n = ___(23)___ j = 1# * i * n If Len(CStr(j)) = n And rep(i & j) Then List1.AddItem i & "*" & n & "=" & j End If Next i End Sub Private Function rep(st As String) As Boolean Dim a() As Integer, i As Integer, k As Integer, x As Long If InStr(st, "0") <> 0 Then ___(24)___ x = Val(st) Do i = i + 1 ReDim Preserve a(i) a(i) = x Mod 10 x = x \ 10 Loop Until x = 0 For i = 1 To UBound(a) - 1 For k = i + 1 To UBound(a) If___(25)___ Then Exit Function Next k Next i rep = True End Function 9.本程序的功能是比較三個(gè)不同進(jìn)制數(shù)的大小,請(qǐng)完善程序(說(shuō)明:函數(shù)conv用于把8進(jìn)制數(shù)或16進(jìn)制數(shù)轉(zhuǎn)換為10進(jìn)制數(shù),函數(shù)chan用于將8或16進(jìn)制數(shù)的數(shù)字轉(zhuǎn)換為10進(jìn)制整數(shù)) (注："A"的ASCII碼值為65。) Option Explicit option base 1 Private Sub Command1_Click() '"判別"按鈕 Dim a As String, b As String, c As Integer Dim aq As Integer, bh As Integer a = Text1.Text: b = Text2.Text: c = Text3.Text aq = conv(a, 8) bh = ___(26)___ If aq > bh Then If ___(27)___ Then Label5.Caption = "a,b,c" ElseIf aq > c Then Label5.Caption = "a,c,b" Else Label5.Caption = "c,a,b" End If Else If bh < c Then Label5.Caption = "c,b,a" ElseIf ___(28)___ Then Label5.Caption = "b,c,a" Else Label5.Caption = "b,a,c" End If End If End Sub Private Function conv(st As String, n As Integer) As Integer Dim i As Integer, k As Integer, p As Integer For i = Len(st) To 1 Step -1 p = chan(Mid(st, i, 1)) conv = conv + p * n ^ k ___(29)___ Next i End Function Private Function chan(p As String) As Integer If p >= "A" And p <= "F" Then chan = ___(30)___ Else chan = Val(p) End If End Function 二級(jí)VB參考答案 一、選擇題 (1)C (2)B (3)B (4)A (5)D (6)B (7)C (8)A (9)B (10)D 21.D 22.B 23.C 24.A 25.D 26.D 27.D 28.C 29.D 30.B 二、填空題: (1)3 1 (2)4 2 (3) 4 1 (4)31 (5)23 (6)22 (7)1 2 (8)1 2 3 (9)1 5) (10)2 2 (11)6 6 (12)3 (13)0110 (14)0111 (15)0100 (16)m=t (17)byval s as string (18)mid(s,i,1) mod 2=0 (19)p=mid(s,i,1) (20)R=R+1 (21)exit Function (22)L=R (23)Len(Cstr(i)) (24)Exit function (25)a(i)=a(k) (26)Conv(a,16) (27)bh>c (28)c>aq (29)k=k+1 (30)chr(p)-55 |