《程序設計基礎》期中考試試卷與參考答

PAGE第4頁（共7頁）《程序設計基礎》課程期中考試試卷試題一、判斷題（每小題2分，共20分）說明：在以下提供的若干陳述中，逐一判斷其正確與否，用A表示正確，用B表示錯誤。(1)事件過程可以由某個用戶事件觸發(fā)執(zhí)行，它不能被其他過程調用。(2)VisualBasic的Double類型數據可以精確表示其數值范圍內的所有實數。(3)For/Next循環(huán)正常（未執(zhí)行ExitFor）結束后，控制變量的當前值等于終值。(4)Sub過程名在過程中必須被賦值。(5)SetFocus方法是把焦點移到指定對象上，使對象獲得焦點，該方法適用于所有控件。(6)移動框架時框架內控件也隨之移動，所以框架內控件的Left和Top屬性值也隨之改變。(7)(8)當組合框的Style屬性設置為0時，組合框稱為“下拉式組合框”，其選項可以從下拉列表框的列表項中選擇，也可以由用戶輸入。(9)若VisualBasic中容器取缺省坐標系，則坐標原點在容器左上角、單位長度為像素。(10)用Output模式打開文件，如果指定文件和路徑不存在，則會自動創(chuàng)建指定文件及路徑。試題二、單選題（每小題2分，共20分）(11)將VB新建的“標準EXE”工程保存在磁盤上，至少會產生（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)假定通過復制、粘貼操作建立了一個命令按鈕數組Command1，以下說法中錯誤的是（14）。[A]數組中每個命令按鈕的名稱（Name屬性）均為Command1[B]若未做修改，數組中每個命令按鈕的大小都一樣[C]數組中各個命令按鈕使用同一個Click事件過程[D]數組中每個命令按鈕的Index屬性值都相同(15)要使文本框顯示滾動條，除了設置ScrollBars屬性外還必須設置（15）屬性。[A]AutoSize [B]MultiLine [C]Alignment [D]Visible(16)當Stretch屬性為False時，（16）。[A]圖片大小隨影像框的大小進行調整 [B]影像框的大小隨圖片大小進行調整[C]圖片框的大小隨圖片大小進行調整 [D]圖片大小隨圖片框的大小進行調整(17)在設計菜單時，為了創(chuàng)建分隔欄，要在（17）中輸入連字符（-）。[A]名稱欄 [B]標題欄 [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”后，相應的文件內被寫入（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分，）說明：閱讀下列程序說明和相應程序，在每小題提供的若干可選答案中，挑選一個正確答案。程序1【程序說明】以下程序隨機產生100個兩位正整數，先對這些數按從大到小的順序排序并按每行10個顯示在窗體上。再找出所有的個位數字與十位數字之和等于10的數?！境绦颉縋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)'取十位數字y=a(i)Mod10'取個位數字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右端箭頭后，窗體上顯示的結果。PrivateSubHScroll1_Change()DimyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValueEndIfPrint"y=";yEndSub程序3、寫出程序運行后事件過程Timer1_Timer自動執(zhí)行的次數、“運行中...”這段文字的顯示位置及Label1的標題在窗體上的變化規(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、寫出程序運行后單擊窗體，窗體上的顯示結果。PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To6PrintSpc(6-i);Forj=1To(2*i)-1:Print"W";:NextjPrintNextiEndSub試題六、程序設計題（10分）文本文件“e:\aaa.txt”中存放了若干行字符，編制相應事件過程：在加載窗體時讀入文件中各行字符并順序在列表框控件List1的列表部分顯示，在運行時按窗體控制菜單“關閉”后自動將列表框中各行數據存儲到文本文件e:\aaa.txt?！咎崾尽考虞d窗體時自動執(zhí)行的事件過程是Form_load()，按窗體控制菜單“關閉”后自動執(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&"轉換為十進制數為"&Dec（5）number=Val(str)五、程序閱讀題（每小題5分，滿分20分）程序1程序2程序3程序4執(zhí)行次數為11文字的顯示位置始終在窗體的左邊Label1的標題在窗體上的顯示變化規(guī)律為字體變大、變化減慢

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