浙江師范大學《VisualBasic程序設計基礎》考試卷(2007--——2008學年第2學期)考試形式筆試（閉卷）考試時間120分鐘說明：使用學生全校07級理科（非行知）專業(yè)出卷時間2008年5月31日(1)考生應將全部答案都寫在答題紙上,否則作無效處理。(2)試題1至試題6為程序選擇填空題，為每個空挑選出一個正確答案寫在答題紙上。試題7至試題9為程序設計題，程序中用到的所有變量都要用DIM語句聲明.試題1（每空2分，共10分）【程序說明】下列程序段先通過inputbox函數輸入兩個正整數m和n。然后，求出m和n的最大公約數,并顯示在窗體中。privatesubform_click()dimmasinteger,nasinteger,nstartasinteger，iasintegerm=val（inputbox("請輸入m的值"）)n=val(inputbox(”請輸入n的值"))-—1——if-—2—-thennstart=nendiffori=——3-—ifmmodi=0andnmodi=0then——4—-endifnextiprint-—5——”的最大公約數是”；iendsub（1）[A］nstart=0nstart=1[B]nstart=m［C］nstart=nstar-1[D］（2)[A]n>m[B］n〉nstar［C］n<nStart[D］m>nstar（3)［A］1tonstart［B］nstarttonstep—1［C］nstarttomstep-1[D］nstartTo1step-1(4）[A］exitfor[B]m=m—1[C]n=n-1[D］exitsub（5)此題選出下列表達式中寫法錯誤的一項[A］Str（m）&”和"＆Str（n)&[B］m+"和”+n+[C］m&”和"&n&［D］m；"和"；n；試題2（每空2分，共10分）【程序說明】下列程序段將十六進制轉換為十進制數,單擊窗體,引出inputbox函數。先輸入一個十六進制數；單擊"確定”后，在label1顯示十進制的結果.privatesubform_click（)dimshexasstring,ndecaslong，nasinteger,aiasinteger，iasintegershex=inputbox（”請輸入一個十六進制數")n=—-6-—ndec=0fori=0to——7--selectcase–8--case”A”,”a"ai=10case"B”，"b"第1頁，共8頁ai=11case"C","c”ai=12case”D”,"d”ai=13case"E”,"e”ai=14case"F”，”f”ai=15case--9-—ai=val(mid（shex,n—i,1））caseelselabel1.caption="你輸入的不是十六進制數"exitsubendselectndec=——10——nextilabel1。caption=ndecendsub（6）［A］trim（shex）[B]0[C]len(shex)[D]1（7)[A］len(shex)［B]n[C]len（trim(shex))［D］n-1（8)[A］mid(shex,n-i,1）[B]right（shex，n—i)[C］mid(shex，(9）［A］>=0and〈=9[B]Is〉=0andIs<=9［C]”0”to"9"[D］”0”To”n-i)［D］mid(shex,1)9"or0to9(10）［A］ndec+ai＊16^（i-1)[B］ndec＆ai*16^i［C]ai*16^i[D］ndec+ai*16^i試題3（每空2分,共10分）【程序說明】下列程序段是每行10個輸出3到100之間所有的素數，并統(tǒng)計素數的個數。privatesubform_click()dimiasinteger，jasinteger,kasinteger，tasintegerfori=3to100--11—-j=int（sqr（i))dowhile—-12——ifimodk=0then——13-—-—14--loopif——15—-thent=t+1printi；iftmod10=0thenprintendifnextiprint”素數的個數：";tendsub（11)［A]k=2［B]k=i［C]k=0[D］k=1（12）［A］k〈j[B]k<=j[C]k>j[D］k〈=j(13）[A]exitsub［B］t=t+1［C]exitdo[D］k=k+1(14)［A］t=t+1［B］i=i+1［C]k=k—1[D］k=k+1第2頁，共8頁

(15）［A]k>j［B］k〉=j［C］k〈j[D]k<=j試題4(每空2分,共10分）【程序說明】閱讀下列程序并選擇合適的選項。dimiasinteger,jasinteger,kasinteger,hasinteger’①privatesubform_click()dimiasinteger'②i=0：j=1：k=2callq（1，i)：printi；j;kcallq（2，j）:printi;j;kcallq(3,k):printi；endsubprivatesubp（j；ki）'③i=i+1:printi;j;kendsubprivatesubq(byvalh,j)’④i=jifh=0thencallp(j）elseifh=1thencallp（i)elsej=j+1endifendsub(16)當單擊窗體時，窗體上顯示的結果為：--16——[A][B][C][D]112112122123112012022023112012122223112012022223（17)當僅去掉標示為①的語句時，單擊窗體，窗體上顯示的結果為：-—17--［A]［B］［C]［D］11120120220231112012022223112122123012022023(18）當僅去掉標示為②的語句時，單擊窗體，窗體上顯示的結果為:-—18——［A][B］[C］[D］112012022023112112122023112012022223112112122223(19）當去掉標示為②的語句并把標示為③的語句改為privatesubp（byvali）時，單擊窗體,窗體上顯示的結果為：—-19—-［A］［B][C]［D]112012122223112112122023112012022223112112122223第3頁，共8頁（20)當去掉標示為②的語句并把標示為④的語句改為privatesubq（byvalh，byvalj)時,單擊窗體，窗體上顯示的結果為：-—20--[A][B]［C][D]112112122223112112112212112012022212112112122223試題5(每空2分，共12分）【程序說明】下列程序段先產生100個[0，99］范圍內的隨機整數，統(tǒng)計個位上的數字分別為1，3,5，7,9（即奇數）的數的個數，并打印出來。privatesubform_click（)dima(1to100)asinteger，x（1to5）asinteger,iasinteger，pasintegerfori=1to100a（i）=--21—-p=a（i）—int(a（i）/10)*10if--22--thenp=（p+1）/2x（endifnextip）=—-23--print"統(tǒng)計結果"fori=1to5p=-—24--form1.print"個位數為”+—-25-—+”的共數”+--26--+"個"nextiendsub（21）[A］rnd*100［B]int（rnd*100）+1［C］fix（rnd＊100）+1［D]int（rnd*100）(22)［A]pMod2〈>0［B］pMod2=0[C］p\2〈>0［D］p\2=0(23）[A]x(p+1)[B］x(p）+1[C]1[D]0（24)[A](p+1)/2[B］2＊i+1[C］2*i-1［D］p+1（25)[A]p[B]Str（x（i))[C］str(x（p））［D］Str(p）(26）［A]Str(x(i）)[B］Str（x（p）)[C]str（p）[D］str（a（p）)試題6（每空2分，共16分)【程序說明】下列程序段隨機產生20個三位整數，放入數組m（i)中，按每行10個在窗體中顯示.將他們從小到大排序，按每行10個在窗體中顯示。再通過inputbox函數輸入一個保持數組的從小到大的中顯示。整數。將這個數插入到數組中并順序，按每行10個在窗體privatesubform_click（)dimm(21）asinteger，positionasinteger,iasintegerdimnflagasinteger，xasinteger——27—-第4頁，共8頁x=val(inputbox(”請輸入要插入的整數"))print"要插入的整數為：”；x—-28—-fori=1to20ifm（i）〉=xthenposition=inflag=1exitforendifnextiifnflag=1thenfori=—-29—-m（i+1）=m(i)nexti——30-—else-—31—-endifprint"插入x后的數組:”fori=1to21printm（i);ifimod10=0thenprintnextiendsubpublicsubcreatedata(——32—-）dimiasinteger，jasinteger，tempasintegerprint”原始數據："randomizefori=1to20n(i)=int(rnd＊501)+100printn（i);ifimod10=0thenprintnextiprint"從小到大排序："fori=1to19forj=—-33——ifn（i）〉n（j)thentemp=n(i):n(i)=n（j):n(j）=tempnextjprintn(i）;ifimod10=0thenprintnexti-—34——endsub(27)[A］createdatam(21)[B］createdatam（)［C］createdata（m(21））［D］createdata（m（)）（28）［A]position=0[B］position=x［C］position=1［D］position=len(x)(29）［A]positionto20［B］20toistep-1［C］ito20[D]20topositionstep-1（30）[A］m（position)=x［B］m(i）=x第5頁，共8頁

單擊“字號”組合框(combo1），對文本框的字體大小進行設置;在“字號"組合框中輸入0～72的數字后按“回車”鍵可設置文本框的字體大小,如果輸入不是這個范圍的數字按“回車"鍵后,則彈出消息框“請輸入符合要求的數據"進行提示。單擊“坐標系"按鈕(command1）,將圖片框(pic1)的坐標系統(tǒng)設置為原點在中央，x軸［-10，10］，y軸［-10，10］，并畫出該坐標系統(tǒng)（界面如下圖二）；單擊“扇形”按鈕（command2),在圖片框中畫一個圓心在原點，半徑為10，圓周為紅色，線寬為2，內部為綠色，起始角為π/6，終止角為5π/6，縱橫軸之比為0。5的橢圓扇形（界面如下圖三）；【程序說明】按要求完成程序設計,界面如下圖四.在窗體加載事件中設置屬性，包括：文件列表框(file1)只顯示“＊.txt"和“*.doc”類型的文件；通用對話框(commondialog1）的“打開文件類型”列表設置為“所有文件（*。*)”、“文本文件（＊.txt)”、“數據文件（＊。dat）”；目錄列表框(dir1)的當前目錄隨著盤驅動器列表框（drive1)中的驅動器名稱的改變而圖一圖二第6頁，共8頁圖三圖四答案Text1。FontName=Option2。Caption選擇題：BCDABCDACDABCDAEndSub試題8參考答案：BCDABDABCDABCDABCAB試題7參考答案:ConstPI=3.1415926PrivateSubCheck1_Click(）Text1。FontBold=NotText1。FontBoldEndSubPrivateSubCheck2_Click(）Text1。FontItalic=NotText1。FontItalicEndSubPrivateSubCombo1_click()Text1.FontSize=Val(Combo1.Text）EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)PrivateSubCommand1_Click()Picture1.Scale(—10,—10)-(10，10)Picture1.Line（-10,0）-（10，0)Picture1。Line（0,—10）—(0，10)Picture1.CurrentX=0Picture1.CurrentY=0Picture1.Print”(0，0)"EndSubPrivateSubCommand2_Click(）Picture1.FillStyle=0Picture1。FillColor=vbGreenPicture1。DrawWidth=2Picture1.Circle(0，0）,10，vbRed，-PIIfKeyAscii=13ThenIfCombo1。Text〈=72AndCombo1。Text〉=0ThenText1.FontSize=Val(Combo1.Text）/6,-5＊PI/6,0.5EndSubElseMsgBox”請輸入符合要求范圍的數據”EndIfPrivateSubCommand3_Click()EndEndSub試題9參考答案EndIfPrivateSubForm_Load（）File1.Pattern="*。txt；*.doc”CommonDialog1。Filter=”所有文件（＊.*）｜*。＊｜文本文件（*.tx