臺州學(xué)院

《VB程序設(shè)計》實驗報告

實驗七：常用控件

班級：10物理2

學(xué)號：

姓名：

實驗日期：2023

一、實驗?zāi)康暮鸵?guī)定

1.掌握基本控件的重要屬性、事件；

2.純熟掌握在窗體上建立上述控件的操作方法：

3.純熟掌握事件過程代碼的編寫；

4.初步掌握建立基于圖形界面的應(yīng)用程序的過程。

二、實驗重要儀器和設(shè)備

計算機一臺，WindowsXP操作系統(tǒng),VisualBasic環(huán)境。

三、實驗內(nèi)容

實驗7.1設(shè)計一個字體修飾的程序，界面如圖7-1所示。規(guī)定:框架1中有兩個復(fù)選框,

可以選擇粗體和斜體對標(biāo)簽中的文字進行修飾；框架2中有兩個單選按鈕，可以選擇宋體或

楷體對標(biāo)簽中的文字進行修飾;標(biāo)簽Label1的文字內(nèi)容為"VisualBasic程序設(shè)計”，宋體,

常規(guī)，三號；文字對齊方式為居中。

圖7-1字體修飾

實驗7.2設(shè)計一個點菜的程序，界面如圖7-2所示。規(guī)定:框架中的復(fù)選框提供可選擇

的三種套餐，右邊的文本框中可以輸入數(shù)量;輸入時文本框只接受數(shù)字鍵;并且只有選取了相

應(yīng)的套餐后才可以進行輸入；假如沒有選取套餐，那么文本框不能編輯并清空;單擊“擬定”

按鈕，記錄點餐的金額，并用消息框顯示出來;

%點餐

菜單

r兒童套餐13元|-份

r標(biāo)準(zhǔn)套餐18元|-份

r商務(wù)餐25元|—份…_.…-.…_.，一…

確定

圖7-2點菜

實驗7.3設(shè)計一密碼修改程序，規(guī)定。

1）當(dāng)單擊“擬定”按鈕后，一方面比較“用戶名”和“原密碼”是否一致，若一致且

都為“admin”，則繼續(xù)執(zhí)行環(huán)節(jié)2;否則彈出消息框，提醒用戶犯錯，并讓用戶重新

輸入。

2）比較“新密碼（N）”和“新密碼（S）”，若兩者一致,彈出密碼修改成功消息框,

程序終止執(zhí)行。否則彈犯錯誤消息,并讓用戶重新輸入。

3）當(dāng)單擊“取消”按鈕后，程序終止執(zhí)行。

圖7-3密碼修改

實驗7.4（選做）設(shè)計一個撥號盤的程序。界面如圖7—4所示?規(guī)定:命令按鈕數(shù)組構(gòu)成

數(shù)字鍵，單擊數(shù)字鍵按鈕,將撥號的內(nèi)容顯示在文本框Textl中；單擊“重?fù)堋卑粹o，再現(xiàn)本

來的撥號過程;

（提醒：再現(xiàn)過程由定期器實現(xiàn)）定期器的時間間隔為0.5秒;設(shè)立文本框最多接受10

個字符。

a3

d_

d_6

_9

四、實驗原始紀(jì)錄

實驗7.1

程序的界面設(shè)計。

?工程1liciosoftVisualBasic［設(shè)計］13回區(qū)）

程序代碼。

PrivateSubCheek1_Click()

IfCheckl.Value=1Then

Labe11.FontBold=True

Else

Label1.FontBold=Fa1se

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheek2,Value=1Then

Label1.Fon11ta1ic=True

Else

Labe11.Fontltalic=FaIse

EndIf

EndSub

PrivateSubOptionl_Click()

Label1.FontName=Optionl.Caption

EndSub

PrivateSub0ption2_Click()

Labe11.FontName=Option2.Caption

EndSub

實驗7.2

程序的界面設(shè)計。

r工程2-licrosoftVisualBasic［設(shè)計］13回區(qū)）

事點餐13回區(qū)］

菜單

17兒童套餐13元!5份

17標(biāo)準(zhǔn)套轡18元|5份

金頡

廠商務(wù)餐25元|份

總金額為155元

確定

|匚裁定二二;|

程序代碼。

PrivateSubCheck1_C1ick()

IfCheckl.Value=1Then

Textl.Enabled=True

Else

Text1.Enabled=FaIse

Text1.Text=

EndIf

EndSub

PrivateSubCheek2_Click()

IfCheck2.Value=1Then

Text2.Enabled=True

Else

Text2.Enabled=Faise

Text2.Text=

EndIf

EndSub

PrivateSubCheck3_Click()

IfCheck3.Value=1Then

Text3.Enab1ed=True

Else

Text3.Enabled=FaIse

Text3.Text二”“

EndIf

EndSub

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=Val(Textl.Text)*13+Val(Text2.Text)*18+Va1(Text3.Text)

*25

b=MsgBox("總金額為“&a&”元"，vblnformation,“金額”)

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

PrivateSubText3_KeyPress(KeyAsciiAsInteger)

IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0

EndSub

實驗7.3

程序的界面設(shè)計。

工程3

密碼修改成功

確定二二力

程序代碼。

PrivateSubCommand1_C1ick()

a=Textl.Text

b=Text2.Text

c=Text3.Text

d=Text4.Text

If(a="admin")And(b="admin")Then

Ifc=dThen

MsgBox”密碼修改成功”

Else

MsgBox”密碼輸入不一致,請重新輸入”

Text3,Text=n"

Text4.Text='n,

EndIf

E1se

MsgBox”用戶名與密碼不一致,請重新輸入”

Text1.Text="”

Text2.Text=u

Text3.Text=

Text4.Text=

Endlf

EndSub

PrivateSubCommand2_Click()

End

EndSub

實驗7.4（選做）

程序的界面設(shè)計。

程序代碼。

DimbAsString,iAsInteger,dAsString,cAsInteger

PrivateSubCommand1_Click(IndexAsInteger)

SelectCaseIndex

Case0

a=Textl.Text&1

Textl.Text=a

Case1

a=Text1.Text&2

Text1.Text=a

Case2

a=Textl.Text&3

Textl.Text=a

Case3

a=Textl.Text&4

Tex11.Text=a

Case4

a=Textl.Text&5

Textl.Text=a

Case5

a=Textl.Text&6

Text1.Text=a

Case6

a=Textl.Text&7

Textl.Text=a

Case7

a=Textl.Text&8

Textl.Text=a

Case8

aTextl.Text&9

Textl.Text=a

Case9

a=Textl.Text&0

Textl.Text=a

EndSeiect

EndSub

PrivateSubTimerl_Timer()

k=Len(b)

i=i+1

c=Mid(b,i,1)

d=d&c

IfiModk=0ThenTimerl.Enab1ed=Fa1se

Textl.