.2001年上海一般高校非計(jì)算機(jī)專業(yè)學(xué)生計(jì)算機(jī)等級(jí)考試一試卷二級(jí)（VisualBasic程序設(shè)計(jì)）（本考試采納上機(jī)形式，考試時(shí)間為150分鐘）一、單項(xiàng)選擇題（15分，每題1分）1.VisualBasic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，不是面向?qū)ο笙到y(tǒng)所包含的三因素。A.變量B.事件C.屬性D.方法2.VisualBasic的一個(gè)應(yīng)用程序起碼包含一個(gè)文件，該文件存貯窗體上使用的全部控件對(duì)象和相關(guān)的、對(duì)象相應(yīng)的過程和代碼。A.模塊、方法、事件、程序B.窗體、屬性、事件、程序C.窗體、程序、屬性、事件D.窗體、屬性、事件、模塊3.表達(dá)式"123"&"100"&200的值是。A.123300B.423C."123100200"D.1231002004.設(shè)CurrentX=200，CurrentY=400，履行指令“Line(100,250)-(350,500),,B”后，CurrentX=。A.100B.200C.350D.5505.依據(jù)VisualBasic默認(rèn)規(guī)定，數(shù)組申明Dima(2,2,5)共有個(gè)元素。A.9B.20C.45D.546.申明一個(gè)長(zhǎng)度為10個(gè)字節(jié)的字符串變量mstr，應(yīng)使用。A.DimmstrAs10B.Dimmstr(10)AsStringC.DimmstrAsString*10D.DimmstrAsString(10)數(shù)據(jù)種類中的變體型能夠包含數(shù)值型、日期型、對(duì)象型和字符型等數(shù)據(jù)，別的，它還能夠包含4個(gè)特別的數(shù)據(jù)：和Nothing。A.Error、Object、NullB.Error、Empty、ObjectC.Empty、Object、TypeD.Empty、Error、Null8.從循環(huán)體DoWhileLoop中退出，持續(xù)履行循環(huán)體后邊的命令，應(yīng)使用。A.ExitB.ExitDoC.ExitDoWhileD.ExitLoop9.以下命令中可實(shí)現(xiàn)對(duì)二進(jìn)制文件的讀操作。A.ReadB.GetC.LineInputD.Put10.在VisualBasic中要將一個(gè)正在運(yùn)轉(zhuǎn)的窗體隱含在內(nèi)存中，應(yīng)該使用語(yǔ)句。A.ShowB.HideC.LoadD.UnLoad11.設(shè)置窗體上的控制菜單可經(jīng)過屬性來(lái)達(dá)成。A.ControlBoxB.MaxButtonC.MinButtonD.DrowMode12.假如組合框ComBo1中已有10項(xiàng)數(shù)據(jù)，應(yīng)使用語(yǔ)句將數(shù)據(jù)“Mydata”插入到第5項(xiàng)。...A.ComBo1.AddItem"Mydata",5B.ComBo1.AddItem"Mydata",4C.ComBo1.Insert"Mydata",5D.ComBo1.Insert"Mydata",413.Timer控件可用于后臺(tái)進(jìn)度中，要使Timer事件每半秒鐘觸發(fā)一次，則需設(shè)置Interval屬性為。B.5C.50D.50014.如有一個(gè)過程定義成PublicSubW1(ByValxAsInteger,yAsInteger)，調(diào)用該過程的正確形式是。A.CallW1(x,3)B.W1(x,3)C.CallW13,xD.W13,x15.代數(shù)式ab2÷(5c+d)的VisualBasic表達(dá)式是。A.a*b*b/5*c+dB.a×b×b/(5×c+d)C.a*b*b/(5*c+d)D.a*b^b/(5c+d)二、填空題（20分，每題2分）窗體上擱置了若干個(gè)文本框和復(fù)選按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到復(fù)選按鈕Check1上，則在設(shè)計(jì)時(shí)需要將Check1控件的屬性設(shè)置為。2.當(dāng)單擊垂直轉(zhuǎn)動(dòng)條上的空白地區(qū)時(shí)，要使滑塊的挪動(dòng)量為50，則需經(jīng)過屬性來(lái)控制。3.當(dāng)焦點(diǎn)進(jìn)入文本框Text1時(shí)，要自動(dòng)選定文本框內(nèi)開始的5個(gè)字符，則需要經(jīng)過代碼Text1.SelStart=和來(lái)實(shí)現(xiàn)。4.選擇對(duì)通用對(duì)話框的方法，可翻開顏色對(duì)話框。5.對(duì)于窗體上的菜單按鈕，假如不一樣意進(jìn)行操作，應(yīng)經(jīng)過屬性進(jìn)行設(shè)置。6.對(duì)于正在使用的動(dòng)向數(shù)組A( )，要增添一個(gè)單元，則應(yīng)使用語(yǔ)句。7.格式輸出函數(shù)Format(12.345,"###.##")的顯示結(jié)果。8.繪制圓心坐標(biāo)為（1000，200），半徑為500的圓，其代碼為：。9.在VisualBasic中創(chuàng)立新對(duì)象的重點(diǎn)字是。10.為了使文件列表框File1和目錄列表框Dir1之間能產(chǎn)生同步成效，一定在事件過程中加入語(yǔ)句。三、程序填空（20分，每小格2分）1.下邊程序按每行10個(gè)數(shù)打印出30個(gè)介于-300到300間無(wú)重復(fù)的隨機(jī)整數(shù)，并顯示此中的最小值。數(shù)組b(30)寄存所產(chǎn)生的無(wú)重復(fù)的隨機(jī)整數(shù)，運(yùn)轉(zhuǎn)結(jié)果圖1所示。圖1PrivateSubCommand1_Click( )Dimb(30),jAsInteger,kAsInteger,yAsInteger,xAsSingle,minAsIntegerForj=1To30lb:x=RndIfx>0.5Theny=1Elsey=-1′控制正負(fù)數(shù)...b(j)=y*(1)k=1DoWhile(2)Ifb(j)=b(k)Then(3)′控制無(wú)重復(fù)k=k+1LoopPrintb(j);IfjMod(4)ThenPrint′控制每行10個(gè)數(shù)Nextjmin=b(1)Forj=1To30Ifb(j)<minThen(5)NextjPrintminEndSub2.下邊的程序用于對(duì)9位的準(zhǔn)考據(jù)號(hào)進(jìn)行校驗(yàn)。參數(shù)mno寄存準(zhǔn)考據(jù)號(hào)，mjy寄存產(chǎn)生的校驗(yàn)位，tag判斷校驗(yàn)正確否，若校驗(yàn)正確tag置1，不然為0。產(chǎn)生校驗(yàn)位的算法為：取準(zhǔn)考據(jù)號(hào)右側(cè)的8位數(shù)之和對(duì)于9的模作為校驗(yàn)值，準(zhǔn)考據(jù)號(hào)最左側(cè)的一位為校驗(yàn)位。PublicSubfoe(ByValmnoAsString,mjyAsInteger,TagAsInteger)DimmsumAsInteger,mAsStringmsum=0(1)m=Mid(mno,j,1)msum=msum+Val(m)Nextjmjy=(2)If(3)ThenTag=1ElseTag=0EndIfEndSubCommand1_Click事件用于調(diào)用foe函數(shù)，對(duì)輸入到文本框Text1的準(zhǔn)考據(jù)號(hào)進(jìn)行校驗(yàn)，假如校驗(yàn)正確，顯示“正確”，不然顯示“錯(cuò)誤”，同時(shí)顯示正確的校驗(yàn)碼。PrivateSubCommand1_Click( )DimnnAsInteger,mtagAsIntegerIfLen(Text1)<>9OrNotIsNumeric(Text1)ThenMsgBox"非法數(shù)據(jù)，請(qǐng)從頭輸入！"Text1=""(4)ExitSubEndIfCallfoe(Text1,nn,mtag)IfmtagThen...Print"正確"Else(5)EndIfEndSub四、編程題（45分）翻開軟盤根目錄上的a1.vbp工程，增補(bǔ)程序，當(dāng)單擊命令按鈕時(shí)可在文本框顯示出100～200之間全部素?cái)?shù)的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果以隨機(jī)文件形式存入A:\a1.dat文件中。（10分）編一個(gè)完好的程序，要求以下（35分）：（1）拜見圖2、圖3，在Form1窗體上增添列表框（供給計(jì)算機(jī)品牌信息）、文本框、命令按鈕和2個(gè)框架，框架內(nèi)各有2個(gè)單項(xiàng)選擇按鈕或復(fù)選按鈕，并設(shè)置相應(yīng)標(biāo)題。用你的姓名成立一項(xiàng)菜單，包含兩個(gè)子菜單項(xiàng)：分別為“窗體2”和“結(jié)束”，之間有分開線。在Form2窗體上擱置一個(gè)時(shí)鐘控件和圖形框，窗體的標(biāo)題設(shè)置為你的準(zhǔn)考據(jù)號(hào)。（8分）圖2圖32）當(dāng)在Form1窗體的列表框和框架內(nèi)選定了計(jì)算機(jī)的基本配置后，單擊“確立”按鈕，在文本框內(nèi)分行顯示目前所選擇的信息。（7分）3）入選擇“窗體2”菜單項(xiàng)時(shí)，翻開Form2窗體；當(dāng)單擊“結(jié)束”菜單項(xiàng)時(shí)，停止程序的運(yùn)轉(zhuǎn)。（5分）（4）在Form2窗體中成立可經(jīng)過鼠標(biāo)右鍵彈出的菜單（快捷菜單）。含有“裝入圖”、“產(chǎn)生圓”和“返回”三個(gè)菜單項(xiàng)。選擇“裝入圖”菜單項(xiàng)，在圖形框裝入clouds.bmp圖形文件；選擇“產(chǎn)生圓”菜單項(xiàng)，在圖形框內(nèi)按每0.1秒頻次隨機(jī)產(chǎn)生色彩隨機(jī)變化、半徑最大為圖形框?qū)挾?0%的圓；選擇“返回”菜單項(xiàng)封閉Form2窗體，顯示Form1窗體。（10分）5）在軟盤根目錄下將工程保留為A2.VBP、Form1窗體為A21.FRM、Form2窗體為A22.FRM，而且經(jīng)過“文件|生成...exe”命令將工程生成A:＼A2.exe文件。（5分）2001年上海一般高校非計(jì)算機(jī)專業(yè)學(xué)生計(jì)算機(jī)等級(jí)考試一試卷二級(jí)（VisualBasic程序設(shè)計(jì)）參照答案...一、單項(xiàng)選擇題1.A2.B3.C4.C5.D6.C7.D8.B9.B10.B11.A12.B13.D14.D15.C二、填空題1.TabIndex02.LargeChange3.0Text1.SelLength=5ShowColorEnabledReDimA(Ubound(A)+1)12.35Circle(1000,200),500New10.Dir1_ChangeFile1.path=Dir1.path三、程序填空（1）Int(Rnd*301)2）k<=j-13）GoTolb4）10=05）min=b(j)（1）Forj=2To92）msumMod93）mjy=Val(Left(mno,1))4）Text1.SetFocus5）Print"錯(cuò)誤！",nn四、編程題1.窗體如圖4所示：圖4參照答案一：（依據(jù)原試卷供給的程序，增補(bǔ)完好。為便于比較，還增添了兩個(gè)按鈕過程）PrivateSubCommand1_Click( )DimMyRecordAsRecord′申明變量′增補(bǔ)程序Dimi,j,kAsInteger...k=0Fori=1000To2000Forj=2Toi-1IfiModj=0ThenGoTonextmNextjk=k+1nextm:NextiText1=kMyRecord.st=Label1MyRecord.sj=kOpenApp.Path+"\samp.txt"ForRandomAs#1Len=Len(MyRecord)Put#1,,MyRecordClose#1EndSub01編程2.VBP采納的是參照答案二，比較簡(jiǎn)短合理參照答案一過于繁瑣（用窗體變量i沒有必需）裝入圖的方式不一樣，方案一是用LoadPicture的方式，方案二是在窗體設(shè)計(jì)時(shí)將圖裝入另一圖片框Picture2中。（程序參照答案一：1）Form1：DimiAsStringPrivateSubCommand1_Click( )Text1.Text=iIfOption1.Value=TrueThenText1.Text=Text1.Text&Chr(13)&"128MB"ElseIfOption2.Value=TrueThenText1.Text=Text1.Text&Chr(13)&"256MB"EndIfIfCheck1.Value=1ThenText1.Text=Text1.Text&Chr(13)&"音箱"EndIfIfCheck2.Value=1ThenText1.Text=Text1.Text&Chr(13)&"Modem"EndIfEndSubPrivateSubList1_Click( )i=List1.TextEndSubPrivateSubmntExit_Click( )EndEndSubPrivateSubmntWindows2_Click( )...Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumntMain,2EndIfEndSubPrivateSubmntCircle_Click( )Timer1.Enabled=TrueEndSubPrivateSubmntLoad_Click( )Picture1.Picture=LoadPicture("a:＼clouds.bmp")EndSubPrivateSubmntReturn_Click( )Timer1.Enabled=FalseUnloadMeLoadForm1Form1.ShowEndSubPrivateSubTimer1_Timer( )DimCx,Cy,Limit,RadiusPicture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Width=Picture1.HeightCx=Rnd*Picture1.ScaleWidthCy=Rnd*Picture1.ScaleHeightLimit=Picture1.ScaleWidth/10Radius=Rnd*LimitPicture1.Circle(Cx,Cy),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)EndSub參照答案二：（1）Form1：PrivateSubCommand1_Click( )Text1=""Text1=Text1&List1.TextIfOption1ThenText1=Text1&vbCrLf&"128M內(nèi)存"ElseText1=Text1&vbCrLf&"256M內(nèi)存"EndIf...IfCheck1ThenText1=Text1&vbCrLf&"音箱"IfCh