.2001年上海一般高校非計算機專業(yè)學生計算機等級考試一試卷二級（VisualBasic程序設計）（本考試采納上機形式，考試時間為150分鐘）一、單項選擇題（15分，每題1分）1.VisualBasic是一種面向對象的程序設計語言，不是面向對象系統(tǒng)所包含的三因素。A.變量B.事件C.屬性D.方法2.VisualBasic的一個應用程序起碼包含一個文件，該文件存貯窗體上使用的全部控件對象和相關的、對象相應的過程和代碼。A.模塊、方法、事件、程序B.窗體、屬性、事件、程序C.窗體、程序、屬性、事件D.窗體、屬性、事件、模塊3.表達式"123"&"100"&200的值是。A.123300B.423C."123100200"D.1231002004.設CurrentX=200，CurrentY=400，履行指令“Line(100,250)-(350,500),,B”后，CurrentX=。A.100B.200C.350D.5505.依據VisualBasic默認規(guī)定，數組申明Dima(2,2,5)共有個元素。A.9B.20C.45D.546.申明一個長度為10個字節(jié)的字符串變量mstr，應使用。A.DimmstrAs10B.Dimmstr(10)AsStringC.DimmstrAsString*10D.DimmstrAsString(10)數據種類中的變體型能夠包含數值型、日期型、對象型和字符型等數據，別的，它還能夠包含4個特別的數據：和Nothing。A.Error、Object、NullB.Error、Empty、ObjectC.Empty、Object、TypeD.Empty、Error、Null8.從循環(huán)體DoWhileLoop中退出，持續(xù)履行循環(huán)體后邊的命令，應使用。A.ExitB.ExitDoC.ExitDoWhileD.ExitLoop9.以下命令中可實現(xiàn)對二進制文件的讀操作。A.ReadB.GetC.LineInputD.Put10.在VisualBasic中要將一個正在運轉的窗體隱含在內存中，應該使用語句。A.ShowB.HideC.LoadD.UnLoad11.設置窗體上的控制菜單可經過屬性來達成。A.ControlBoxB.MaxButtonC.MinButtonD.DrowMode12.假如組合框ComBo1中已有10項數據，應使用語句將數據“Mydata”插入到第5項。...A.ComBo1.AddItem"Mydata",5B.ComBo1.AddItem"Mydata",4C.ComBo1.Insert"Mydata",5D.ComBo1.Insert"Mydata",413.Timer控件可用于后臺進度中，要使Timer事件每半秒鐘觸發(fā)一次，則需設置Interval屬性為。B.5C.50D.50014.如有一個過程定義成PublicSubW1(ByValxAsInteger,yAsInteger)，調用該過程的正確形式是。A.CallW1(x,3)B.W1(x,3)C.CallW13,xD.W13,x15.代數式ab2÷(5c+d)的VisualBasic表達式是。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分）窗體上擱置了若干個文本框和復選按鈕，當窗體裝入后，要將焦點自動定位到復選按鈕Check1上，則在設計時需要將Check1控件的屬性設置為。2.當單擊垂直轉動條上的空白地區(qū)時，要使滑塊的挪動量為50，則需經過屬性來控制。3.當焦點進入文本框Text1時，要自動選定文本框內開始的5個字符，則需要經過代碼Text1.SelStart=和來實現(xiàn)。4.選擇對通用對話框的方法，可翻開顏色對話框。5.對于窗體上的菜單按鈕，假如不一樣意進行操作，應經過屬性進行設置。6.對于正在使用的動向數組A( )，要增添一個單元，則應使用語句。7.格式輸出函數Format(12.345,"###.##")的顯示結果。8.繪制圓心坐標為（1000，200），半徑為500的圓，其代碼為：。9.在VisualBasic中創(chuàng)立新對象的重點字是。10.為了使文件列表框File1和目錄列表框Dir1之間能產生同步成效，一定在事件過程中加入語句。三、程序填空（20分，每小格2分）1.下邊程序按每行10個數打印出30個介于-300到300間無重復的隨機整數，并顯示此中的最小值。數組b(30)寄存所產生的無重復的隨機整數，運轉結果圖1所示。圖1PrivateSubCommand1_Click( )Dimb(30),jAsInteger,kAsInteger,yAsInteger,xAsSingle,minAsIntegerForj=1To30lb:x=RndIfx>0.5Theny=1Elsey=-1′控制正負數...b(j)=y*(1)k=1DoWhile(2)Ifb(j)=b(k)Then(3)′控制無重復k=k+1LoopPrintb(j);IfjMod(4)ThenPrint′控制每行10個數Nextjmin=b(1)Forj=1To30Ifb(j)<minThen(5)NextjPrintminEndSub2.下邊的程序用于對9位的準考據號進行校驗。參數mno寄存準考據號，mjy寄存產生的校驗位，tag判斷校驗正確否，若校驗正確tag置1，不然為0。產生校驗位的算法為：取準考據號右側的8位數之和對于9的模作為校驗值，準考據號最左側的一位為校驗位。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事件用于調用foe函數，對輸入到文本框Text1的準考據號進行校驗，假如校驗正確，顯示“正確”，不然顯示“錯誤”，同時顯示正確的校驗碼。PrivateSubCommand1_Click( )DimnnAsInteger,mtagAsIntegerIfLen(Text1)<>9OrNotIsNumeric(Text1)ThenMsgBox"非法數據，請從頭輸入！"Text1=""(4)ExitSubEndIfCallfoe(Text1,nn,mtag)IfmtagThen...Print"正確"Else(5)EndIfEndSub四、編程題（45分）翻開軟盤根目錄上的a1.vbp工程，增補程序，當單擊命令按鈕時可在文本框顯示出100～200之間全部素數的個數，并將統(tǒng)計結果以隨機文件形式存入A:\a1.dat文件中。（10分）編一個完好的程序，要求以下（35分）：（1）拜見圖2、圖3，在Form1窗體上增添列表框（供給計算機品牌信息）、文本框、命令按鈕和2個框架，框架內各有2個單項選擇按鈕或復選按鈕，并設置相應標題。用你的姓名成立一項菜單，包含兩個子菜單項：分別為“窗體2”和“結束”，之間有分開線。在Form2窗體上擱置一個時鐘控件和圖形框，窗體的標題設置為你的準考據號。（8分）圖2圖32）當在Form1窗體的列表框和框架內選定了計算機的基本配置后，單擊“確立”按鈕，在文本框內分行顯示目前所選擇的信息。（7分）3）入選擇“窗體2”菜單項時，翻開Form2窗體；當單擊“結束”菜單項時，停止程序的運轉。（5分）（4）在Form2窗體中成立可經過鼠標右鍵彈出的菜單（快捷菜單）。含有“裝入圖”、“產生圓”和“返回”三個菜單項。選擇“裝入圖”菜單項，在圖形框裝入clouds.bmp圖形文件；選擇“產生圓”菜單項，在圖形框內按每0.1秒頻次隨機產生色彩隨機變化、半徑最大為圖形框寬度10%的圓；選擇“返回”菜單項封閉Form2窗體，顯示Form1窗體。（10分）5）在軟盤根目錄下將工程保留為A2.VBP、Form1窗體為A21.FRM、Form2窗體為A22.FRM，而且經過“文件|生成...exe”命令將工程生成A:＼A2.exe文件。（5分）2001年上海一般高校非計算機專業(yè)學生計算機等級考試一試卷二級（VisualBasic程序設計）參照答案...一、單項選擇題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"錯誤！",nn四、編程題1.窗體如圖4所示：圖4參照答案一：（依據原試卷供給的程序，增補完好。為便于比較，還增添了兩個按鈕過程）PrivateSubCommand1_Click( )DimMyRecordAsRecord′申明變量′增補程序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采納的是參照答案二，比較簡短合理參照答案一過于繁瑣（用窗體變量i沒有必需）裝入圖的方式不一樣，方案一是用LoadPicture的方式，方案二是在窗體設計時將圖裝入另一圖片框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內存"ElseText1=Text1&vbCrLf&"256M內存"EndIf...IfCheck1ThenText1=Text1&vbCrLf&"音箱"IfCh