(完整)vb期末模擬題(答案)

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁眉頁腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請聯(lián)系刪除，謝謝！《VB.NET程序設(shè)計課程》模擬題(A卷答案）一、選擇題1。下列敘述中正確的是_____________。A.數(shù)組是用戶自定義的數(shù)據(jù)類型C。數(shù)組在使用時可以采用隱式聲明答案BB。數(shù)組元素在內(nèi)存中的存放形式是連續(xù)的D。數(shù)組的下界可以任意2。復(fù)選框的CheckState屬性為__________時,表示復(fù)選框內(nèi)有灰色的勾即不可選.A.UncheckedC.Checked答案BB。IndeterminateD。None3.刪除列表框中第2項的項目，所使用的方法為______。A.Items.RemoveAtC。Items.Clear答案AB。MoveD。Items.Remove4。要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的是A。Subf1(ByValn%,ByValm％）B。Subf1（ByRefn%,ByValm％）C.Subf1(ByRefByRefm%）D.Subf1(ByValn%，ByRefm%)答案C5。下列各賦值語句，語法不正確的是（）A。iNumber=15C。x+y=5答案CB.sLength=x+yD.Label1.Text=TimeOfDay確設(shè)置是_________。A.Text(.txt)｜|＊.txtC.文本文件|（。txt)B.Text(.txt）(＊。txt)D。Text(.txt)|＊.txt答案D7。以下程序輸出的結(jié)果是___________。Dima（)AsInteger=｛1，2，3，4,7}Fori=0ToUbounda(i)=a(i)*a(i)NextiMsgBox（a(i）)A.49B.0C。不確定答案DD.程序出錯B。在標(biāo)準(zhǔn)模塊中聲明的變量D.在過程體中用Static語句聲明的變量答案A）。）B。Timer控件D。MenuStrip控件中。Label1。Text=”"Input(1,str)______(2)_____Fori=1To’以如圖所示的形式顯示EndSub答案（1）FileOpen(2)k=0（3）",”&k&vbCrLf2.下列程序隨機產(chǎn)生n個互不重復(fù)的三位數(shù)，存放在數(shù)組a中.子過程s（）的功能是統(tǒng)計數(shù)組x中百位數(shù)與個位數(shù)相同的個數(shù)。單擊按鈕從鍵盤輸入要隨機產(chǎn)生的互不重復(fù)的三位數(shù)的個數(shù)，數(shù)據(jù)以每行5個的形式輸出,同時調(diào)用子過程s()，將統(tǒng)計的結(jié)果輸出。PrivateSubButton1_Click(。.。。.。)HandlesButton1。ClickDimc%,k%,j％,i%,count%DimFlagAsBooleank=Val（InputBox（”輸入產(chǎn)生數(shù)的個數(shù):”）)______（1)_____a（0)=Int(Rnd(）*900+100）n=1DoWhilen〈kc=Int（Rnd()*900+100)Flag=TrueForj=0Ton—1Ifa(j）=cThen_____(2)_____NextjIfFlagThena(n）=c:n=n+1EndIfLoopFori=0Tok—1''沒有找到，產(chǎn)生的字母非重復(fù),存放到數(shù)組中Label1.Text＆=a（i)＆”"If______（3）_______ThenLabel1。Text＆=vbCrLf'每行5個數(shù)據(jù)NextiCalls（a,count）Label1.TextvbCrLf＆”滿足條件的個數(shù)："&countEndSubSubs（_____（4）_____)Dimi,kAsfAsBooleanFori=0To______(5)_______k=’要求嚴(yán)格區(qū)分是傳值還是傳地址1.功能是通過調(diào)用函數(shù)過程sum(),將文本框Textbox1中輸入的數(shù)字字符串的各位數(shù)字和在Label1中輸出.改錯題2:（3處錯誤）功能是將文本框Textbox2中輸入的字符串大小寫字母互換（即原來大寫轉(zhuǎn)換為小寫、小寫轉(zhuǎn)換為大寫），其它字符不作轉(zhuǎn)換，并將結(jié)果顯示在標(biāo)簽Label2中.2.參見樣例，編一個完整的程序,要求:1．界面設(shè)計要求（1）的學(xué)號；各菜單標(biāo)題如樣例所示。必須將項目保存在C:\KS目錄下，項目名為””。3．Form1窗體編程要求”結(jié)束"菜單項：結(jié)束程序的運行。4．Form2窗體編程要求在簡單組合框的文本框中輸入一個正整數(shù),回車后若該數(shù)為素數(shù)，則將其添加到列表框中,當(dāng)輸入非數(shù)字字符時，通過信息框給出"輸入錯誤！"的提示。產(chǎn)生10個串ToolStripMenuItem_Click（ByValSystem。e產(chǎn)生10個串ToolStripMenuItem。eSystem。EventArgs)maxlen％，maxstr$，==0i=0—1Len（ListBox1。Items(i)）>=Len(ListBox1.Items（i）)=ListBox1.Items（i)i=0-1Len（ListBox1.Items（i）)=ListBox1。Items(i)=ListBox1。Items（i）＆”Label1。Text="最長字符串為："&&Label1。Text&字體ToolStripMenuItem_Click（ByValSystem。Object,eSystem.EventArgs）FontDialog1.ShowDialog（)ListBox1。Font=FontDialog1。Font=FontDialog1。Color保存ToolStripMenuItem_Click（ByValSystem。Object，eSystem.EventArgs）i％"C：\a.txt"，OpenMode.Output）i=0-1PrintLine(1，ListBox1。Items。Item(i）)MsgBox("文件成功保存”）FileClose（1）eSystem。EventArgs)菜單2ToolStripMenuItem_Click（ByValSystem。Object，eSystem。EventArgs）菜單2ToolStripMenuItem。ClickForm2。ShowDialog（)=eEventArgs）Me.Close(）