Visual-Basic語(yǔ)言程序設(shè)計(jì)05試卷

VB樣題一、單選題（本大題共25題，每題2分，共50分）1、下列符號(hào)中哪個(gè)是VB程序中合法的變量名（）。

A）ab7 B）7ab C）If D）a*bc2、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比，VisualBasic最突出的特點(diǎn)是（）。A）面向?qū)ο蟮某绦蛟O(shè)計(jì)B）集成化開發(fā)環(huán)境C）結(jié)構(gòu)化程序設(shè)計(jì)D）事件驅(qū)動(dòng)編程機(jī)制3、以下敘述中錯(cuò)誤的是（）。

A）VisualBasic是事件驅(qū)動(dòng)型可視化編程工具

B）VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句

C）VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性

D）VisualBasic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置4、每個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件，窗體文件的擴(kuò)展名是（）。A）.bas B）.cls C）.frm D）.vbp5、確定一個(gè)控件在窗體上的位置的屬性是（）。A）Width和Height B）Width或Height C）Top和Left D）Top或Left6、設(shè)字符串str1="abcdefgh"，則表達(dá)式Mid(str1,3,2)的結(jié)果是（）。A)abcB)bc C)cdeD)cd7、可獲得當(dāng)前系統(tǒng)日期的函數(shù)是（）。

A)Date()B)Time() C)IsDate()D)Year()8、標(biāo)簽框所顯示的內(nèi)容，由（）屬性值決定。

A)TextB)(名稱) C)CaptionD)Alignment9、復(fù)選框?qū)ο笫欠癖贿x中，是由其()屬性決定的。A)CheckedB)Value C)EnabledD)Selected10、計(jì)時(shí)器控件的（）屬性用于設(shè)置Timer事件發(fā)生的時(shí)間間隔。

A)StretchB)Interval C)ValueD)Length11、若要向列表框添加列表項(xiàng)，可使用的方法是（）。

A)AddB)Remove C)ClearD)AddItem12、VB中可用（）語(yǔ)句產(chǎn)生一消息框。A)InputBoxB)Shift C)BothD)MsgBox

13、以下敘述中正確的是（）。

A)窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體

B)窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本

C)可以在運(yùn)行期間改變對(duì)象的Name屬性的值

D)對(duì)象的Name屬性值可以為空14、執(zhí)行下面的語(yǔ)句后，所產(chǎn)生的信息框的標(biāo)題是（）。

a=MsgBox("AAAA","BBBB","",5)

A)BBBBB)空 C)AAAAD)出錯(cuò)，不能產(chǎn)生信息框15、表達(dá)式4+5\6*7/8Mod9的值是（）。A)8 B)7 C)6D)5

16、下列關(guān)于DoWhile…Loop和DoA)DoWhile…Loop循環(huán)和Do…LoopUntil循環(huán)至少都執(zhí)行一次B)DoWhile…Loop循環(huán)和Do…LoopUntil循環(huán)可能都不執(zhí)行C)DoWhile…Loop循環(huán)至少執(zhí)行一次和Do…LoopUntil循環(huán)可能不執(zhí)行循環(huán)D)DoWhile…Loop循環(huán)可能不執(zhí)行和Do…LoopUntil循環(huán)至少執(zhí)行一次17、默認(rèn)條件下，語(yǔ)句Dima(3,4,5)定義的數(shù)組中所包含的數(shù)組元素的個(gè)數(shù)是（）。A)12 B)60 C)120 D)18、數(shù)學(xué)關(guān)系3≤x<10對(duì)應(yīng)的VisualBasic表達(dá)式是（）。A)3<=x<10 B)3<=xANDx<10 C)x>=3ORx<10 19、下面程序段的執(zhí)行結(jié)果是（）。PrivateSubCommand1_Click()Forj=1To4 k=0Fori=1To4 k=i+1NextiNextjPrintkEndSubA)16 B)4 C)5 D)20、語(yǔ)句Dimarr(3To5,-2To2)所定義的數(shù)組的元素個(gè)數(shù)是（）。A)20B)12C)1521、以下關(guān)于數(shù)組的說(shuō)法，不正確的是（）。A)數(shù)組是一種特殊的數(shù)據(jù)類型B)一個(gè)數(shù)組中可存放多種類型的數(shù)組C)數(shù)組是一組相同類型的變量的集合D)運(yùn)行時(shí)可改變動(dòng)態(tài)數(shù)組或靜態(tài)數(shù)組的大小22、假定有下面的程序段：Fori=1To3 Forj=1Toi Fork=jTo3 Print"i=";i,"j=";j,"k=";k Nextk NextjNexti這是一個(gè)三重循環(huán)程序，在這個(gè)程序中，外層、中層和內(nèi)層循環(huán)的循環(huán)次數(shù)是（）。

A)3、6和14B) 3、8和16

C)3、4和12D)3、9和1823、執(zhí)行下面的程序段后，x的值為（）。x=5Fori=1to20Step2x=x+i\5NextiA)10 B)15 C)20 D)2124、若要將多條語(yǔ)句書寫在同一行，語(yǔ)句間應(yīng)該用（）間隔。A)逗號(hào) B)冒號(hào) C)分號(hào) D)句號(hào)25、要求從文本框中輸入密碼時(shí)在文本框中只顯示#號(hào)，則應(yīng)用在此文本框的屬性窗口中設(shè)置（）。A)Text屬性值為# B) Caption屬性值為# C)Passwordchar屬性值為# D)Passwordchar屬性值為真二、填空題（本大題共5題，每題2分，共10分）若要將窗體Form2顯示出來(lái)，可使用方法_____來(lái)實(shí)現(xiàn)。ＶＢ提供的enabled屬性，用來(lái)控制對(duì)象是否可用；_____屬性，用來(lái)控制對(duì)象是否可見。在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()

a=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

b=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

Printa+b

EndSub

程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入326和536，輸出結(jié)果為。數(shù)學(xué)表達(dá)式，在VB中對(duì)應(yīng)的表達(dá)式為__________________________?？丶?shù)組具有相同的控件名稱(即Name屬性)，通過(guò)不同的屬性來(lái)標(biāo)識(shí)各個(gè)控件。三、程序填空題（本大題共6空，每空2分，共12分）1、窗體上有一個(gè)標(biāo)簽和一個(gè)計(jì)時(shí)器，以下程序的作用是，程序運(yùn)行后，單擊窗體，在標(biāo)簽中顯示當(dāng)前的系統(tǒng)時(shí)間，每隔1秒變換一次，請(qǐng)?zhí)羁?。PrivateSubForm_Click()Timer1.Interval=________EndSubPrivateSubTimer1_Timer()Label1.Caption=_________EndSub2、閱讀以下在VB開發(fā)過(guò)程中的應(yīng)用說(shuō)明，對(duì)屬性設(shè)置和程序代碼填空。

本應(yīng)用程序的運(yùn)行窗口及其功能說(shuō)明如下：程序事先設(shè)定密碼為”abc”，要求用戶在文本框中輸入密碼，然后單擊“校驗(yàn)密碼”命令按鈕，程序?qū)⒑藢?duì)用戶輸入的密碼與事先設(shè)定的密碼是否一致。如果一致，則通過(guò)MsgBox語(yǔ)句彈出消息框提示“密碼正確，歡迎進(jìn)入！”；否則彈出消息框提示“密碼不正確，謝絕進(jìn)入！”。當(dāng)用戶單擊“重新輸入”命令按鈕，則清空文本框中內(nèi)容，且將光標(biāo)定位到文本框中。當(dāng)單擊“退出”命令按鈕時(shí)，退出應(yīng)用程序。

[屬性設(shè)置]

對(duì)象對(duì)象名屬性名屬性值設(shè)置

命令按鈕CommandlCaption重新輸入

命令按鈕Command2Caption核對(duì)密碼

命令按鈕Command3Caption退出

文本框Text1Text(置空)

[程序代碼]

PrivateSubCommand1_Click()

Text1.text=""

___________

EndSub

PrivateSubCommand2_Click()

DimpwAsString

pw="abc"

If___________Then

MsgBox"密碼正確，歡迎進(jìn)入！"

Else

___________

EndIf

EndSub

Private

SubCommand3_Click()

___________

EndSub四、簡(jiǎn)答題（本大題共3題，每題4分，共12分）描述一下你對(duì)VB可視化編程中“屬性”和“方法”概念的理解。VB可視化編程的一般步驟。寫出生成一個(gè)1~100間隨機(jī)整數(shù)的VB語(yǔ)句，并給出簡(jiǎn)要說(shuō)明。五、編程題（本大題共3題，1～2題每題5分，第3題6分，共16分）設(shè)計(jì)一個(gè)用For…Next語(yǔ)句，將100~200之間所有能同時(shí)被3和5同時(shí)整除的數(shù)的和顯示在窗體上。要求：程序頭尾如下。PrivateSubCommand1_Click()EndSub2、編寫程序?qū)⒁荒曛械?2個(gè)月份，轉(zhuǎn)換成四個(gè)季度輸出。對(duì)應(yīng)關(guān)系如下：月份：1～3 4～6 7～9 10～12 季度：春季 夏季 秋季 冬季 要求：①程序運(yùn)行時(shí)，從鍵盤輸入一個(gè)月份（使用輸入對(duì)話框），在窗體上輸出對(duì)應(yīng)的季度。②使用selectcase或者ifthenelse語(yǔ)句實(shí)現(xiàn)，程序頭尾參照如下。PrivateSubForm_Click()EndSub3、通過(guò)下面的Form_Load()事件將一組學(xué)生成績(jī)，已經(jīng)存儲(chǔ)在二維數(shù)組a(5,3)中，請(qǐng)編寫一段程序找出最高和最低的成績(jī)，并在窗體上顯示出來(lái)。OptionBase1PrivateSubForm_Load()Dima(5,3)AsIntegera(1,1)=69:a(1,2)=89:a(1,3)=74a(2,1)=94:a(2,2)=80:a(2,3)=90a(3,1)=57:a(3,2)=62:a(3,3)=73a(4,1)=98:a(4,2)=94:a(4,3)=90a(5,1)=73:a(5,2)=76:a(5,3)=63EndSub要求：程序頭尾如下。PrivateSubForm_Click()EndSub參考答案一、1~5、ABCCC6~10、DACBB11~15、DDADD16~20、DCBCC21~25、DADBC二、1、show或form2.show2、visible3、3265364、2*(3*a+2*b)-Sqr(3)*Sin(x/180)或2*(3*a+2*b)-Sqr(3)*Sin(x)5、Index或索引三、1、10002、Time/Time$3、Text1.Setfocus4、Text1.Text=PW或Text1.Text=”abc”5、MsgBox”密碼不正確，謝絕進(jìn)入”6、End或Exit四、屬性是指對(duì)象的一組特征，方法是要執(zhí)行的動(dòng)作，完成某一特定功能設(shè)計(jì)界面；設(shè)置屬性；編寫代碼；運(yùn)行、調(diào)試和保存Int(Rnd*100)；Rnd函數(shù)用來(lái)產(chǎn)生0～1之間的隨機(jī)數(shù)，乘以100后，產(chǎn)生0～100之間的數(shù)，Int函數(shù)用來(lái)取整。五、1、PrivateSubCommand1_Click()Fori=100To200IfiMod3=0AndiMod5=0ThenSum=Sum+iEndIfNextiPrintSumEndSubPrivateSubForm_Click()m=InputBox("請(qǐng)輸入月份")SelectCasemPrivateSubForm_Click()m=InputBox("請(qǐng)輸入月份")SelectCasemCase1To3Print"春季"Case4To6Print"夏季"Case7To9Print"秋季"Case10To12Print"冬季"EndSelectEndSubPrivateSubForm_Click()m=InputBox("請(qǐng)輸入月份")Ifm<=3ThenPrint"春季"ElseIfm<=