09VB期末上機練習題及參考答案

本文格式為Word版，下載可任意編輯——09VB期末上機練習題及參考答案VB后半學期練習題

09VB本科期末上機練習及參考答案

1、編制通用函數過程，計算1+2+……+N的值。在窗體的Click事件中調用該函數。[參考答案1]：

PrivateFunctionsum(nAsInteger)AslongDimiAsIntegerFori=1Ton

sum=sum+iNextiEndFunction

PrivateSubForm_Click()Printsum(100)EndSub

2、編制通用函數過程，計算N！的值。在窗體的Click事件中調用該函數。[參考答案2]：

PrivateFunctionfact(nAsInteger)AsDoubleDimiAsIntegerfact=1

Fori=1Tonfact=fact*iNextiEndFunction

PrivateSubForm_Click()Printfact(5)EndSub

3、編制通用函數過程，用于判斷1個整數是否為素數，若是則顯示true，若不是則顯示false。在窗體的Click事件

中調用該函數。[參考答案3]：

PrivateFunctionprime(nAsInteger)AsBooleanprime=TrueDimiAsIntegerElseIfnInt(Sqr(n))ThenEndSub

4、編制一個判斷奇偶數的Function函數過程。在窗體的Click事件中調用該函數，輸入一個整數，判斷其奇偶性。[參考答案4]：

PrivateFunctionodd(nAsInteger)AsBoolean

IfnMod2=0Then

odd=FalseElse

odd=True

EndifEndFunction

PrivateSubForm_Click()Primeodd(4),odd(5)EndSub

5、新建一個工程，完成“密碼檢驗〞程序的設計。參照運行時界面完成界面設計。具體要求如下：

（1）文本框Text1，用于輸入密碼。文本框中輸入的字符顯示為*，并且最多可以接受7個字符。（2）窗體的下半部有一個標簽控件Label2，用來顯示密碼輸入后的提醒信息。（3）當在文本框中輸入密碼“1234567〞，并按回車后，標簽Label2顯示為“歡迎光臨！〞；假使輸入的密碼與“1234567〞不吻合，標簽Label2顯示為“密碼不符，請再輸入一遍！〞，同時清空文本框的內容，允許再輸入一遍；假使其次次輸入的密碼依舊與“1234567〞不吻合，標簽Label2顯示為“非法用戶，請退出程序！〞，文本框就不能使用了。[參考答案5]：

PrivateSubForm_Load()

Label1.Caption=\輸入密碼后按回車\提醒密碼：1234567)\Text1.PasswordChar=\Text1.MaxLength=7EndSub

1

VB后半學期練習題

PrivateSubtext1_keypress(keyasciiAsInteger)StaticnAsIntegerIfkeyascii=13Then

IfText1.Text=\Label2.Caption=\歡迎光臨！\Label1.Visible=FalseText1.Visible=FalseElse

n=n+1

Ifn57ThenEndSub‘輸入非數字時彈出對話框,同時文本框重新獲得焦PrivateSubCheck1_Click(IndexAsInteger)

點

IfCheck1(Index).Value=1Then

KeyAscii=0

‘若當前復選框被選中,文本框被啟用,同時獲得焦點

MsgBox\請輸入數字\

Text1(Index).Enabled=True

Text1(Index).SetFocus

Text1(Index).SetFocus

EndIf

Else

EndSub

Text1(Index).Text=\

Text1(Index).Enabled=False

10、某公司對員工的工資進行調整：若原有工資大于等于1000元，增加工資35%；若小于1000元大于等于800元，則

增加工資25%；若小于800元，則增加工資15%。請根據用戶輸入的原有工資，計算出增加后的工資。[參考答案10]：

PrivateSubCommand1_Click()

Text1.SetFocusText1.Text=\Text2.Text=\

Option1.Value=FalseOption2.Value=FalseOption3.Value=False3

VB后半學期練習題EndSub

PrivateSubCommand2_Click()

EndEndSub

PrivateSubOption1_Click()

IfVal(Text1.Text)>=1000Then

Text2.Text=Val(Text1.Text)*1.35EndIfEndSub

PrivateSubOption2_Click()

IfVal(Text1.Text)>=800AndVal(Text1.Text)0ThenText2.Text=Val(Text1.Text)*1.15EndIfEndSub

11、設計一個“家電提貨單〞管理程序，程序運行界面如下圖所示。具體要求如下：

（1）單擊“確定〞后，根據選擇的內容將清單及總價在列表框中列出。

（2）每選擇一種家電，光標自動定位在相應的文本框中，取消選擇時，相應的文本框自動清空。（3）“清除〞按鈕用于清空列表框中的項目。（4）所有文本框只接受數字。[參考答案11]：

PrivateSubCheck1_Click(IndexAsInteger)Case3Text1(Index)=\title=\IfCheck1(Index).Value=1Thenprice=2880Text1(Index).SetFocusCase4EndIftitle=\分體空調\EndSubprice=5500PrivateSubCommand1_Click()EndSelectDimiAsIntegerIfCheck1(i).Value=1AndText1(i).Text\DimsumAsLong,n%List1.AddItemtitle&Text1(i).Text&\臺\DimtitleAsString,priceAsIntegersum=sum+Val(Text1(i))*pricesum=0n=n+Val(Text1(i))Fori=0To4EndIfSelectCaseiNextiCase0Ifsum0Thentitle=\電視機\List1.AddItem\共:\&n&\臺\&\合計金price=3580額:\元\Case1EndIftitle=\微波爐\EndSubprice=660PrivateSubCommand2_Click()Case2List1.Cleartitle=\電冰箱\EndSubprice=1850

12、設計一個“個人資料〞輸入窗口，程序運行界面如下圖所示。具體要求如下：

（1）依照運行界面設計窗體，其中“民族〞用組合列表框顯示。

（2）單擊“確定〞按鈕，將個人資料信息輸出在“個人資料〞框架的標簽框中。[參考答案12]：

PrivateSubForm_Load()'初始化民族組合框Combo1.AddItem\回族\Combo1.AddItem\漢族\Combo1.Text=\漢族\EndSub

PrivateSubCommand1_Click()

DimSexAsString,HobbyAsStringIfOption1.ValueThen'判斷性別Sex=Option1.CaptionElse

Sex=Option2.CaptionEndIf'判斷愛好

IfCheck1.Value=1ThenHobby=Hobby&\

4

VB后半學期練習題

IfCheck2.Value=1ThenHobby=Hobby&\IfCheck3.Value=1ThenHobby=Hobby&\IfCheck4.Value=1ThenHobby=Hobby&\'顯示

Label4.Caption=Txtname.Text&\\\\愛好：\EndSub

PrivateSubCommand2_Click()EndEndSub

13、新建一個工程，完成應用程序的設計。具體要求如下：

（1）依照下圖所示在窗體上放置按鈕和控件。

（2）窗體上有兩個CheckBox，當這兩個選項未被選定時，它們所在框架的其他控件不能使用。（3）假使單擊“確定〞按鈕，則在按鈕下面的標簽中顯示用戶所選擇的信息。[參考答案13]：

PrivateSubForm_Load()Label3.BorderStyle=1Frame1.Caption=\Frame2.Caption=\Check1.Value=0Check2.Value=0Text1.Text=\EndSub

PrivateSubCheck1_Click()IfCheck1.Value=1ThenText2.Enabled=TrueText1.Enabled=TrueElse

Text2.Enabled=FalseText1.Enabled=FalseEndIfEndSub

PrivateSubCheck2_Click()IfCheck2.Value=1ThenOption1.Enabled=TrueOption2.Enabled=TrueElse

Option1.Enabled=FalseOption2.Enabled=FalseEndIfEndSub

PrivateSubCommand1_Click()Label3.Caption=\

IfCheck1.Value=1Then

Label3.Caption=Label3.Caption+\計算機:\

Label3.Caption=Label3.Caption+combo1.Text+Text1+\臺\EndIf

IfCheck2.Value=1Then

Label3.Caption=Label3.Caption+\操作系統\IfOption1.Value=TrueThen

Label3.Caption=Label3.Caption+Option1.CaptionElse

Label3.Caption=Label3.Caption+Option2.CaptionEndIfEndIfEndSub

14、（1）參照運行時界面完成界面設計。

（2）單擊“添加單詞〞按鈕，將Text1中的單詞添加到列表框，并使Text1獲得焦點，可直接輸入另一個單詞。

（3）單擊“刪除單詞〞按鈕，刪除列表框中被選中的列表項。（4）單擊“全部刪除〞按鈕，刪除列表框中的全部表項。（5）單擊“退出〞按鈕，終止該程序。[參考答案14]：

PrivateSubCommand1_Click()Text1.Text=\IfText1.Text\Text1.SetFocusList1.AddItemText1.TextEndIf

5

VB后半學期練習題

（3）命令按鈕Command1的標題設置為“計時開始〞用來啟動計時器，當計時開始后標題變?yōu)椤爸兄龚曈脕黻P閉計時器，同時以消息框顯示一共運行幾小時幾分幾秒。

[參考答案29]：DimnAsIntegerMsgBox\一共運行了\小時\分\PrivateSubCommand1_Click()NextiPrintEndSub

PrivateSubCommand2_Click()EndEndSub

37、建立一個5行5列二維數組，要求對角線為1，其余元素為0。運行結果如下圖。[參考答案37]：

PrivateSubForm_Click()

Dima(1To5,1To5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5

Forj=1To5

Ifi=jAndi+j=6Thena(i,j)=1NextjNexti

Fori=1To5

Forj=1To5

Form1.Print\Nextj

Form1.PrintNextiEndSub

38、建立一個5行5列二維數組，要求右上三角元素（含對角線）為1，其余元素為0。[參考答案38]：

PrivateSubForm_Click()

Dima(1To