《程序設(shè)計基礎(chǔ)》期中考試試卷與參考答

PAGE第4頁（共7頁）《程序設(shè)計基礎(chǔ)》課程期中考試試卷試題一、判斷題（每小題2分，共20分）說明：在以下提供的若干陳述中，逐一判斷其正確與否，用A表示正確，用B表示錯誤。(1)事件過程可以由某個用戶事件觸發(fā)執(zhí)行，它不能被其他過程調(diào)用。(2)VisualBasic的Double類型數(shù)據(jù)可以精確表示其數(shù)值范圍內(nèi)的所有實數(shù)。(3)For/Next循環(huán)正常（未執(zhí)行ExitFor）結(jié)束后，控制變量的當(dāng)前值等于終值。(4)Sub過程名在過程中必須被賦值。(5)SetFocus方法是把焦點移到指定對象上，使對象獲得焦點，該方法適用于所有控件。(6)移動框架時框架內(nèi)控件也隨之移動，所以框架內(nèi)控件的Left和Top屬性值也隨之改變。(7)(8)當(dāng)組合框的Style屬性設(shè)置為0時，組合框稱為“下拉式組合框”，其選項可以從下拉列表框的列表項中選擇，也可以由用戶輸入。(9)若VisualBasic中容器取缺省坐標(biāo)系，則坐標(biāo)原點在容器左上角、單位長度為像素。(10)用Output模式打開文件，如果指定文件和路徑不存在，則會自動創(chuàng)建指定文件及路徑。試題二、單選題（每小題2分，共20分）(11)將VB新建的“標(biāo)準EXE”工程保存在磁盤上，至少會產(chǎn)生（11）文件。[A].frx和.frm [B].exe和.vbp [C].vbp和.frm [D].frm和.bas(12)窗體Form1的Name屬性是Frm1，它的單擊事件過程名是（12）。[A]Form1_Click [B]Form_Click[C]Frm1_Click [D]Me_Click(13)已知字符串變量x存放"1234"，表達式Val("&H"+Left(x,2))的值是（13）。[A]0 [B]&H12 [C]12 [D]18(14)假定通過復(fù)制、粘貼操作建立了一個命令按鈕數(shù)組Command1，以下說法中錯誤的是（14）。[A]數(shù)組中每個命令按鈕的名稱（Name屬性）均為Command1[B]若未做修改，數(shù)組中每個命令按鈕的大小都一樣[C]數(shù)組中各個命令按鈕使用同一個Click事件過程[D]數(shù)組中每個命令按鈕的Index屬性值都相同(15)要使文本框顯示滾動條，除了設(shè)置ScrollBars屬性外還必須設(shè)置（15）屬性。[A]AutoSize [B]MultiLine [C]Alignment [D]Visible(16)當(dāng)Stretch屬性為False時，（16）。[A]圖片大小隨影像框的大小進行調(diào)整 [B]影像框的大小隨圖片大小進行調(diào)整[C]圖片框的大小隨圖片大小進行調(diào)整 [D]圖片大小隨圖片框的大小進行調(diào)整(17)在設(shè)計菜單時，為了創(chuàng)建分隔欄，要在（17）中輸入連字符（-）。[A]名稱欄 [B]標(biāo)題欄 [C]索引欄 [D]顯示區(qū)(18)將通用對話框控件以“打開文件”對話框方式打開，可選（18）方法。[A]ShowOpen [B]Action [C]Open [D]FileName(19)[B]PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub[D][B]PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub[D]PrivateSubDir1_Change()Dir1.Path=Drive1.DriveEndSub[A]PrivateSubDrive1_Change()Drive1.Drive=Dir1.PathEndSub[C]PrivateSubDir1_Change()Drive1.Drive=Dir1.PathEndSub(20)執(zhí)行語句“Write#1,234;-34.56,"Hi";Date”后，相應(yīng)的文件內(nèi)被寫入（20）。[A]234,-34.56,"Hi",#2004-06-11# [B]234;-34.56,"Hi";#2004-06-11#[C]234,-34.56,Hi,2004-06-11 [D]234-34.56"Hi"#2004-06-11#試題三、程序填空題（每空2分，共20分，）說明：閱讀下列程序說明和相應(yīng)程序，在每小題提供的若干可選答案中，挑選一個正確答案。程序1【程序說明】以下程序隨機產(chǎn)生100個兩位正整數(shù)，先對這些數(shù)按從大到小的順序排序并按每行10個顯示在窗體上。再找出所有的個位數(shù)字與十位數(shù)字之和等于10的數(shù)?！境绦颉縋rivateSubForm_Click()Dima(100)AsInteger,iAsInteger,jAsInteger,tAsInteger,xAsInteger,yAsIntegerFori=1To100a(i)=(21)NextiFori=1To99Forj=i+1To100Ifa(i)<a(j)Then(22)EndIfNextjNextiFori=1To100Printa(i);(23)NextiFori=1To100x=(24)'取十位數(shù)字y=a(i)Mod10'取個位數(shù)字Ifx+y=10ThenPrinta(i)NextiEndSubPrivateSubSwap((25))DimTempAsIntegerTemp=X:X=Y:Y=TempEndSub【選項】(21) [A]Int(Rnd*90)+10 [B]Int(Rnd*100) [C]Int(Rnd*99) [D]10To99(22) [A]CallSwapa(i),a(j) [B]CallSwap(a(i),a(j))HScroll1.SmallChange=1:HScroll1.LargeChange=2:HScroll1.Value=5閱讀以下程序，寫出連續(xù)3次單擊水平滾動條HScroll1右端箭頭后，窗體上顯示的結(jié)果。PrivateSubHScroll1_Change()DimyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValueEndIfPrint"y=";yEndSub程序3、寫出程序運行后事件過程Timer1_Timer自動執(zhí)行的次數(shù)、“運行中...”這段文字的顯示位置及Label1的標(biāo)題在窗體上的變化規(guī)律。PrivateSubForm_Load()Timer1.Interval=100:Form1.WindowState=2Label1.Width=ScaleWidth/2:Label1.Left=ScaleLeftLabel1.Alignment=0:Label1.Caption="運行中..."EndSubPrivateSubTimer1_Timer()StaticmAsBytem=m+8:Label1.FontSize=mTimer1.Interval=Timer1.Interval+100Ifm>80ThenTimer1.Enabled=FalseEndSub程序4、寫出程序運行后單擊窗體，窗體上的顯示結(jié)果。PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To6PrintSpc(6-i);Forj=1To(2*i)-1:Print"W";:NextjPrintNextiEndSub試題六、程序設(shè)計題（10分）文本文件“e:\aaa.txt”中存放了若干行字符，編制相應(yīng)事件過程：在加載窗體時讀入文件中各行字符并順序在列表框控件List1的列表部分顯示，在運行時按窗體控制菜單“關(guān)閉”后自動將列表框中各行數(shù)據(jù)存儲到文本文件e:\aaa.txt?！咎崾尽考虞d窗體時自動執(zhí)行的事件過程是Form_load()，按窗體控制菜單“關(guān)閉”后自動執(zhí)行的事件過程是Form_Unload(CancelAsInteger)

參考答案一、判斷題（每小題2分，滿分20分）（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）BBBBBBBABB二、單選題（每小題2分，滿分20分）（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）CBDDBABABA三、程序填空題（每小題2分，滿分20分）（21）（22）（23）（24）（25）（26）（27）（28）（29）（30）ABDBCDCBAA四、程序改錯題（每小題2分，滿分10分）（1）n=Len(Hex)（2）temp=Mid(Hex,n-i,1)（3）Dec=Dec+number(temp)*16^i（4）Form1.PrintHex&"轉(zhuǎn)換為十進制數(shù)為"&Dec（5）number=Val(str)五、程序閱讀題（每小題5分，滿分20分）程序1程序2程序3程序4執(zhí)行次數(shù)為11文字的顯示位置始終在窗體的左邊Label1的標(biāo)題在窗體上的顯示變化規(guī)律為字體變大、變化減慢

六、程序設(shè)計題（10分）PrivateSubForm_Load()DimxAsStringOpen"e:\aaa.txt"ForInputAs#1DoWhileNotEOF(1)LineInput#1,x