2014年7月程序設(shè)計試題和答案

1、2014年7月高等教育自學考試VisualBasic程序設(shè)計試題課程代碼07759）、單項選擇題（本大題共16小題，每小題1分，共16分）在每小題列出的四個備選項中只有一個是符合題目要求的，請將其代碼填寫在題后的括號內(nèi)。錯選、多選或未選均無分。1.下列能從字符串“Microsoft”中直接取出子字符串“Micro”的函數(shù)是（A.MidC.Instr2.下列不合法的VisualBasicD.String變量名是（A.c_bB.andifC.cb63.如果將布爾常量值D._xyzTrue賦值給一個整型變量，則整型變量的值為（A.FalseB.TrueC.-1D.14.在窗體上有一個名稱為Text1

2、的文本框，影響Text1的輸入最大字符數(shù)量的屬性是（B. LeftA.VisibleC. MaxLengthD. SelLength5.InputBox函數(shù)的返回值類型是（A.字符串型B.）變體型C.數(shù)值型D.數(shù)值或字符串型（視輸入的數(shù)據(jù)而定）6.設(shè)a=8,b=6,則執(zhí)行x=IIf(ba*a=10,0.-1)后，x的值為（A.1B.0C.使用錯誤D.-17.當某個控件獲得焦點時，將會觸發(fā)的事件是（A. SetFocusB. GotFocusC.ReceiveFocusD.無事件觸發(fā)B. TabStop8.類模塊文件的擴展名為（B.frxC.bas.clsD.vbp9.將CommonDialog

3、通用對話框設(shè)置為“另存為”對話框，須選擇的方法為（A. ShowOpenB. ShowColorC. ShowSaveD. ShowFontA.HideB.UnloadC.LoadD.Show11.按照數(shù)據(jù)的編碼方式，文件可以分為()A.程序文件和數(shù)據(jù)文件B.順序文件盒隨機文件C.ASCII文件盒二進制文件D.磁盤文件和打印文件A. 在菜單項的屬性中，能使該菜單項失效的屬性是()A.EnabledB.CheckedVisibleD.Caption要想從過程調(diào)用后返回一個整數(shù)型結(jié)果，則下列過程說明正確的是(A.Subf1(ByvalxAsSingle)AsIntegerFunctionf2(By

4、valxAsInteger)AsSingleSubf3(xAsInteger)AsSingleC. Functionf4(xAsInteger)AsInteger語句DimArr(-4To3)定義的數(shù)組Arr的元素個數(shù)是()A.7B.89D.1015.為將多個語句放在冋一行中書與，下列合法的語句行為()A.x=1:y=5:z=10B.x=1.y=5.z=10C.x=1,y=5,z=10D.x=1；y=5；z=1016.在窗體Form1上顯示字符"Hello"的正確語句是()A.Form1.Display”Hello”B.Form1.Print”Hello”C.Form1.0

5、utput“Hello“D.Form1.Write“Hello“二、判斷改錯題(本大題共10小題，每小題2分，共20分)判斷下列每小題的正誤。正確的在題后括號內(nèi)打“V”；錯誤的打“X”，并改正劃線部分。17. 若用戶在鍵盤上按下一個鍵，則會產(chǎn)生一個Click事件。()在VisualBasic中，&H36是十六進制的數(shù)值常數(shù)。()在隨機文件中，每個記錄的長度和記錄中的每個字段的長度都是固定的。叮,()單選鈕控件和復選框控件都具有Value屬性，在這兩個控件中，這個屬性的取值范圍相同。(在VisualBasic中，參數(shù)通過兩種方式傳送，即傳地址和傳()用戶可以通過在組合框中鍵入文本或選擇列

6、表中的項目來進行選擇。()當定時器控件的Interval屬性值設(shè)置為0時，會連續(xù)觸發(fā)Timer事件。()可用P在標準模塊中定義全局變量或數(shù)組。()在VisualBasic中允許把幾個語句放在一行中，各條語句之間用冒號隔開。()設(shè)計菜單中每一個菜單項分別是一個控件，每個控件都有自己的Name屬性。()三、簡答題(本大題共2小題，每小題8分，共16分)VB的面向?qū)ο笈c一般面向?qū)ο蟪绦蛟O(shè)計有何不同？18. VB中的鼠標事件MouseDown和MouseUp、MouseMove事件有什么異同?四、解讀程序題(本大題共2小題，每小題6分，共12分)解讀程序，根據(jù)題目對程序的說明，在程序中空格處填寫正確代

7、碼。填錯、未填均無分。在窗體上繪制一個名稱為Command1的命令按鈕，然后編程實現(xiàn)如下功能：通過調(diào)用過程Change，調(diào)換數(shù)組m中元素的存放位置，即m(1)與m(10)的值互換,m(2)與m(9)的值互換，以此類推，直至全部元素互換完畢PrivateSubCommand1_Click()Dimm(1To10)AsIntegerDimiAsIntegerFori=1To10m(i)=i*2NextiCallChangeFori=1To10Printm(i)NextiEndSubSubChange(n()AsInteger)Dimi,j,k,tAsIntegerk=UBound(n)Fori=1

8、Tok/2t=n(i)n(i)=n(j)NextiEndSub30. 設(shè)計一個計時程序。該程序用戶界面如題一秒（Text2）;兩個按鈕進行操作：開始計時按鈕（30圖所示，由兩個文本框顯示時間：秒（Begin）、停止計時按鈕（Stop）Text1）和十分之另還有計時器控件Timer1。程序運行后，單擊開始計時按鈕，則開始計時，文本框中顯示秒數(shù)；單擊停止計時按鈕，則計時停止；單擊窗口則退出程序的執(zhí)行。DimsAsIntegerPrivateSubForm_Load()Timer1Enabled=FalseText1Text=0Text2Text=0EndSubPrivateSubForm_Clic

9、k()EndSubPrivateSubTimer1_Timer()s=s+1Text1Text=CStr(s10)Text2.Text=EndSubPrivateSubBegin_Click()s=0Timer1.Interval=100Timer1EndSubPrivateSubStop_Click()Timer1.Enabled=FalseEndSub運行的五、程序閱讀題(本大題共4小題，每小題4分，共16分)閱讀程序，在題后的空格處填寫程序結(jié)果。填錯、未填均無分。31. 在窗體上有一個命令按鈕(Command1)，編寫如下程序，當運行程序后，單擊命令按鈕，窗體上顯示的值是。Private

10、SubCommand1_Click()DimxAsInteger,yAsIntegerx=-2IfSgn(x)Theny=Sgn(x2)Elsey=Sgn(x)EndIf32. PrintyEndSub在窗體上有一個文本框(Text1)，編寫如下程序，當運行程序后，單擊命令按鈕，文本框中顯示的值是。PrivateSubForm_Load()DimiAsInteger,sumAsIntegerText1.Text=Fori=1To7sum=sum+iNextiText1.Text=sumEndSub在窗體上有一個命令按鈕(Command1)和一個文本框(Text1)，編寫如下程序，當運行程序后，

11、單擊命令按鈕，文本框中顯示的值是。PrivateSubCommand1_Click()DimSt(8,8)AsIntegerDimi,jAsIntegerFori=1To4Forj=2To4St(i,j)=i+2*jNextjNextiText1.Text=St(2,4)+St(4,4)EndSub下列程序執(zhí)行時，外層循環(huán)語句的循環(huán)次數(shù)是PrivateSubsun()DimiSum,i,jAsIntegeri=1:j=1DoDoiSum=iSum+1j=j+3Printj；LoopUntilj>8i=i+2LoopUntili>6PrintiSumEndSub六、編程題(本大題共2

12、小題，每小題10分，共20分)編寫程序?qū)崿F(xiàn)題目所給要求。33. 編寫程序，用近似公式：n1_一陽卜一1一寧(1)一143572n一1求響的近似值，直到最后一項的絕對值小于104為止。m和n的值，編寫m!編寫一個計算表達式值的程序(m>=n>=0)，要求：用輸入對話框輸入n!(m-n)!函數(shù)FunctionMultiply(xasInteger)求x!的值，調(diào)用Multiply計算表達式。2014年7月程序設(shè)計試題和答案2014年7月高等教育自學考試VisualBasic程序設(shè)計試題答案及評分參考（課程代碼07759單項選擇題（本大題共16小題，每小題1分，共16分）5:BDCCA6

13、10:DBACD1116:CADBAB判斷改錯題（本大題共10小題，每小題2分，共20分）i題號判斷更正17X（1分）KeyPress（1分）18V（2分）19V（2分）20Lx（1分）不相同（1分）21.V（2分）22tV（2分）,23x（1分）停止（1分）24x（1分）Public（1分）25."（2分）,26、/（2分）三、簡答題（本大題共2小題，每小題8分，共16分）【評分參考】（1）要點回答準確完整，可以得滿分。（2）回答要點所用詞語、句式、前后順序與參考答案不同，只要意思正確，就應(yīng)給分。但在使用上有很大區(qū)別。中，有系統(tǒng)設(shè)計好的預定義對VisualBasic中，因為圭寸裝了

14、很（3）要點回答不完整，也應(yīng)酌情給分。（1）VisualBasic中的對象與面向?qū)ο蟪绦蛟O(shè)計中的對象在概念上是一樣的，（3分）（2）在面向?qū)ο蟪绦蛟O(shè)計中，對象由程序員自己設(shè)計，而在VisualBasic象和用戶定義的對象。（3分）（3）在面向?qū)ο蟪绦蛟O(shè)計中，操作對象的時候需要復雜的編程，在多預定義的操作，因此對對象的操作更簡單。（2分）（1）三個鼠標事件的相同點是它們都在控件區(qū)域?qū)κ髽说牟僮鞫|發(fā)的事件，（2分）都能傳遞當前操作的鼠標按鈕、鼠標所在位置、鍵盤輔助鍵的狀態(tài)值等參數(shù)。（2分）（2）MouseDown事件是按下鼠標按鈕時觸發(fā)的事件；MouseUp事件是松開鼠標按鈕時觸發(fā)的事件；Mou

15、seMove事件是移動鼠標時觸發(fā)的事件。（2分）（3）MouseDown和MouseUp事件能用鼠標按鈕參數(shù)判斷是否按下或松開某一個按鈕，不能檢查兩個按鈕被同時按下或松開；MouseMove事件能根據(jù)按鈕參數(shù)來判斷是按下了一個還是同時按下兩個或三個按鈕。（2分）四、解讀程序題（本大題共2小題，每小題6分，共12分）29.m（2分）j=k-i+1（2分）n(j)=t（2分）30.End（2分）五、程序閱讀題（本大題共4小題，每小題4分，共16分）31.132.2833.2234.32分）2小題，每小題10分，共20分）六、編程題（本大題共2分）CStr(sMod10)Enabled=True評分

16、參考】1）程序結(jié)構(gòu)完整，流程合理，算法正確，給滿分。2）變量沒有聲明，扣1分；主流程不清晰，扣3分；關(guān)鍵算法錯誤扣3分；重要代碼缺少，扣3）如果思路正確，但代碼不完整的，根據(jù)代碼質(zhì)量適當給分。35.PrivateFunctionCalaPI()AsSingleDimnAsIntegerDimnv,piAsSingle1分）Do2分）n=n+1nv=(-1)rn-1)*(1/(2*n-1)3分）pi=pi+nv2分）LoopUntilAbs(nv)<0.0001CalaPI=pi*42分）EndFunction36.PrivateSubCommand1_ClickDimresultAsSingleDimmAsInteger,nAsInteger1分）m=Val(InputBoxii請輸入的值：）1分）n=Val(InputBox請輸入的值：）If(m