期末復(fù)習(xí)之VB編程題匯總

第2章補(bǔ)充實(shí)臉

1、設(shè)計(jì)程序，在窗體上建立3個(gè)命令按鈕，隱藏最小化、最大化按鈕，如圖1

所示。單擊3個(gè)命令按鈕后分別使窗體最大化、還原或最小化。最后將工程文件、窗體

文件分別以ch2?l.vbp、ch2-l.frm為文件名保存在D:\ch2文件夾下。

圖1

參考代碼：

PrivateSubCommandl__Click()

Forml.WindowState=2

EndSub

PrivateSubCommand2_Click()

Forml.WindowState=0

EndSub

PrivateSubCommand3_Click()

Forml.WindowState=1

EndSub

2、設(shè)計(jì)程序，在窗體上建立3個(gè)命令按鈕，3個(gè)文本框，如圖2、圖3所示。利

用2個(gè)文本框輸入兩個(gè)數(shù)，單擊“計(jì)算”按鈕時(shí)，將兩個(gè)數(shù)的平方和顯示在第三個(gè)文本

框中；單擊“清除”按鈕，清除所有文本框的內(nèi)容；單擊“定位”按鈕，將光標(biāo)定位到

第二個(gè)文本框中。最后將工程文件、窗體文件分別以ch22vbp、ch2?2.frm為文件名保

存在D:\ch2文件夾下。

參考代碼：

PrivateSubCommandl_Click()

Text3=TextlA2+Text2A2

EndSub

PrivateSubCommand2_Click()

Textl=

Text2=""

Text3=m,

EndSub

PrivateSubCommand3_Click()

Text2.SetFocus

EndSub

3、設(shè)計(jì)一個(gè)調(diào)色板程序，在窗體上建立5個(gè)命令按鈕，1個(gè)標(biāo)簽，如圖4所示。

單擊對(duì)應(yīng)的顏色按鈕，將在標(biāo)簽中顯示對(duì)應(yīng)的顏色。最后將工程文件、窗體文件分別以

ch2-3.vbp、ch2-3.frm為文件名保存在D:\ch2文件夾下。

圖4

參考代碼：

PrivateSubCommandl_Click()

Labell.BackColor=vbRed

EndSub

PrivateSubCommand2__Click()

Labell.BackColor=vbGreen

EndSub

PrivateSubCommand3_Click()

Labell.BackColor=vbBlue

EndSub

PrivateSubCommand4_Click()

Labell.BackColor=vbBlack

EndSub

PrivateSubCommand5_Click()

Labell.BackColor=vbWhite

EndSub

第5章補(bǔ)充實(shí)驗(yàn)

1、設(shè)計(jì)一個(gè)程序，要求如下：⑴產(chǎn)生10個(gè)2位隨機(jī)正整數(shù)；⑵在窗體上分別輸出

10個(gè)2位隨機(jī)正整數(shù)的正序和逆序；⑶求出這10個(gè)數(shù)的平均值ave、最大值max和最

小值min,并輸出到一個(gè)標(biāo)簽上；⑷窗體的參考運(yùn)行結(jié)果界面如圖1所示。⑸最后將工

程文件、窗體文件分別以ch5-l.vbp、ch5-l.frm為文件名保存在D:\ch5文件夾下。

____F_o__ra__l___________________________-|q|x|

10個(gè)數(shù)的正序?yàn)椋?9205360599114457367

10個(gè)數(shù)的詼席為：67734514915960532059

圖1參考運(yùn)行結(jié)果界面

參考代碼：

OptionBase1

PrivateSubCommandl_Click()

Dima(10)AsInteger,ave!,max%,min%,i%

Randomize

Print"10個(gè)數(shù)的正序?yàn)椋?/p>

Fori=1To10

a(i)=lnt(Rnd*90)+10

ave=ave+a(i)

Printa(i);

Next

ave=ave/10

Print

Print"10個(gè)數(shù)的逆序?yàn)椋?/p>

Fori=10To1Step-1

Printa(i);

Next

Print

max=a(l):min=a(l)

Fori=2To10

Ifa(i)>maxThen

max=a(i)

日se

min=a(i)

EndIf

Next

Labell=”平均值："&ave&vbCrLf&”最大值：“&max&vbCrLf&”最小

值："&min

EndSub

PrivateSubCommand2_Click()

End

EndSub

2、編寫程序產(chǎn)生4X4矩陣A,輸出矩陣A,以及矩陣A的上三角矩陣和下三角矩

陣。程序參考運(yùn)行結(jié)果界面如圖2所示。最后將工程文件、窗體文件分別以ch5-2.vbp.

ch5-2.frm為文件名保存在D:\ch5文件夾下。

?Foral

產(chǎn)生的矩陣A為：

1

5

9

13

它的上三角矩陣為:

1

它的下三角矩陣為:

1

5

9

13

二維數(shù)組

圖2參考運(yùn)行結(jié)果界面

參考代碼：

OptionBase1

PrivateSubCommandl_Click()

Dima%(4,4),b%(4,4),i%,j%

Fori=1To4'產(chǎn)生數(shù)組A

Forj=1TO4

a(i,j)=4*(i-l)+j

Nextj

Nexti

Print”產(chǎn)生的矩陣A為：，輸出數(shù)組A

Fori=1To4

Forj=lTo4

PrintTab(10+j*4);a(i,j);

Nextj

Print

Nexti

Print”它的上三角矩陣為：“'輸出數(shù)組A的上三角矩陣

Fori=1To4

Forj=iTo4

PrintTab(10+j*4);a(iJ);

Nextj

Print

Nexti

Print”它的下三角矩陣為：“‘輸出數(shù)組A的下三角矩陣

Fori=1To4

Forj=1Toi

PrintTab(10+j*4);a(i,j);

Nextj

Print

Nexti

EndSub

第3章補(bǔ)充實(shí)驗(yàn)1

1、設(shè)計(jì)程序，求出VB系統(tǒng)賦給各種類型變量的默認(rèn)值，將工程文件、窗體文件

分別以ch31-l.vbp、ch31-l.frm為文件名保存在D:\ch31文件夾下，并根據(jù)程序的運(yùn)行

結(jié)果及所學(xué)的知識(shí)填寫表1。

表1

類型類型名類型符默認(rèn)值

字節(jié)型Byte無0

整型Intege%0

長整型Long&0

單精度型Single!0

雙精度型Double#0

貨幣型Currency@0

////

字符串型String$

邏輯型Boolean無False

日期型Date無0:00:00

對(duì)象型Object無無

變體型Variant無UH

參考結(jié)果與代碼:

PrivateSubCommandl_Click()

DimaAsByte,b%,c&,d!,e#,f@,g$

DimhAsBoolean,iAsDate,jAsObject,kAsVariant

Print"a=";a,nb=H;b,,,c=H;c,"d=";d,"e=";e

HH

Print"f=";f,"g=;g,"h=;h,"i=";iz"k=";k

EndSub

第3章補(bǔ)充實(shí)驗(yàn)2

1、設(shè)計(jì)程序，求解一元二次方程ax2+bx+c=0的實(shí)根(假定判別式△》())，窗體參

考界面如圖1、圖2所示。最后將工程文件、窗體文件分別以ch32-l.vbp、ch32-l.frm

為文件名保存在D:\ch32文件夾下。

參考代碼：

PrivateSubCommandl_Click()

Dima!,b!,c!,d!zxl!,x2!

a=Textl

b=Text2

c=Text3

d=b*b-4*a*c

xl=(-b+Sqr(d))/2/a

x2=(-b-Sqr(d))/2/a

Text4=xl

Text5=x2

EndSub

PrivateSubCommand2_Click()

End

EndSub

2、修改題1中程序，改用inputbox函數(shù)輸入a,b,c的值，輸出xl、x2的值改用

msgbox函數(shù)，程序參考界面如圖3、圖4所示。最后將工程文件、窗體文件分別以

ch32-2.vbp、ch32-2.frm為文件名保存在D:\ch32文件夾下。

圖3輸入界面

參考代碼：

PrivateSubForm_Click()

Dima!,b!,c!,d!,xl!,x2!

a=lnputBox("a=")

b=lnputBox("b=")

c=lnputBox("c=")

d=b*b-4*a*c

xl=(-b+Sqr(d))/2/a

x2=(-b-Sqr(d))/2/a

MsgBox("xl="&xl&",x2="&x2)

EndSub

3、設(shè)計(jì)程序，從鍵盤上輸入3位的正整數(shù)，單擊“求解”按鈕，則能分解出該3

位數(shù)的個(gè)位、十位和百位，單擊“退出”按鈕，則結(jié)束程序運(yùn)行。窗體參考界面如圖5、

圖6所示。最后將工程文件、窗體文件分別以ch32-3.vbp、ch32-3.frm為文件名保存在

D:\ch32文件夾下。

圖5窗體界面圖6參考運(yùn)行結(jié)果界面

參考代碼：

PrivateSubCommandl_Click()

Dimn%,x%,y%,z%

n=Textl

x=n\100

y=(n-x*100)\10

z=n-100*x-y*10

Text2=x:Text3=y:Text4=z

EndSub

PrivateSubCommand2_Click()

End

EndSub

第4章補(bǔ)充實(shí)驗(yàn)1

1、設(shè)計(jì)程序，計(jì)算如下函數(shù)的值：y=

要求如下：（1）使用inputbox函數(shù)輸入x的值，使用msgbox顯示函數(shù)y的值。（2）

使用單分支if-then-endif語句實(shí)現(xiàn)分支功能。（3）窗體參考界面如圖1、圖2所示。（4）

將工程文件、窗體文件分別以ch41-l.vbp、ch41-l.frm為文件名保存在D:\ch41文件夾

圖1窗體運(yùn)行界面圖2參考運(yùn)行結(jié)果界面

參考代碼：

PrivateSubForm_Click()

Dimx!,y!

x=Val(lnputBox("x="))

Ifx>0Then

y=Log(x)

EndIf

Ifx<=0Then

y=Exp(x)

EndIf

MsgBox("x="&x&",y="&y)

EndSub

2,修改題1中程序，要求如下：(1)使用雙分支if-then-else-endif語句實(shí)現(xiàn)分支功

能。⑵將工程文件、窗體文件分別以ch4L2.vbp、ch41-2.frm為文件名保存在D:\ch41

文件夾下。

參考代碼:

PrivateSubForm_Click()

Dimx!,y!

x=Val(lnputBox("x="))

Ifx>0Then

y=Log(x)

Else

y=Exp(x)

EndIf

MsgBox("x="&x&",y="&y)

EndSub

3、設(shè)計(jì)程序，求解一元二次方程ax2+bx+c=0,要求如下：(1)當(dāng)判別式△V0時(shí)，

用msgbox顯示“判別式△<(),方程無實(shí)根!”，單擊“確定”按鈕后清空三個(gè)文本框；

當(dāng)判別式△》()時(shí)，求出兩實(shí)根。(2)使用1卜由646歸6e“1￡語句實(shí)現(xiàn)分支功能。(3)窗體

參考界面如圖3、圖4、圖5所示。(4)將工程文件、窗體文件分別以ch41-3.vbp、ch41-3.frm

為文件名保存在D:\ch41文件夾下。

圖3窗體界面圖4參考運(yùn)行結(jié)果界面1圖5參考運(yùn)行結(jié)果界面2

參考代碼：

PrivateSubCommandl_Click()

Dima!,b!,c!,d!,xll,x2!

a=Val(Textl)

b=Vai(Text2)

c=Val(Text3)

d=b*b-4*a*c

Ifd<OThen

MsgBox("判別式△<(),方程無實(shí)根！")

Textl=",,:Text2="":Text3=""

Else

xl=(-b+Sqr(d))/2/a

x2=(-b-Sqr(d))/2/a

Text4=xl

Text5=x2

EndIf

EndSub

PrivateSubCommand2__Click()

End

EndSub

4、修改題3中程序，要求如下：(1)改用inputbox函數(shù)輸入a,b,c的值，輸出xl>

x2的值改用msgbox函數(shù)。(2)當(dāng)a=0時(shí)，用msgbox顯示“a=0,不是一元二次方程！

當(dāng)判別式^VO時(shí)，用msgbox顯示“判別式△<(),方程無實(shí)根!&當(dāng)判別式△》()時(shí)，

求出兩實(shí)根，并用msgbox顯示。⑶使用if?then?elseif?endif語句實(shí)現(xiàn)分支功能。⑷窗

體參考界面如圖6、圖7、圖8、圖9所示。(5)將工程文件、窗體文件分別以ch41-4.vbp.

ch41-4.frm為文件名保存在D:\ch41文件夾下。

圖6輸入界面圖7參考運(yùn)行結(jié)果界面1

圖8參考運(yùn)行結(jié)果界面2圖9參考運(yùn)行結(jié)果界面3

參考代碼：

PrivateSubForm_Click()

Dima!,b\,c!,d!,xll,x2!

a=lnputBox("a=H)

b=lnputBox("b=")

c=lnputBox(,,c=H)

d=b*b-4*a*c

Ifa=0Then

MsgBox("a=0,不是一元二次方程！")

日selfd<0Then

MsgBox("判別式△<€),方程無實(shí)根！")

日se

xl=(-b+Sqr(d))/2/a

x2=(-b-Sqr(d))/2/a

MsgBox(nxl="&xl&",x2="&x2)

EndIf

EndSub

第4章補(bǔ)充實(shí)驗(yàn)2

1、設(shè)計(jì)一個(gè)調(diào)色板程序，在窗體上建立1個(gè)文本框、2個(gè)命令按鈕，2個(gè)標(biāo)簽，

參考運(yùn)行結(jié)果界面如圖1所示。運(yùn)行程序時(shí)，在文本框中輸入顏色名稱（紅色、綠色、

藍(lán)色、黑色、白色），單擊“顯示”按鈕，將在標(biāo)簽2中顯示對(duì)應(yīng)的顏色，要求使用select

case-endselect語句實(shí)現(xiàn)分支功能。最后將工程文件、窗體文件分別以ch42-l.vbp、

ch42-l.frm為文件名保存在D:\ch42文件夾下。

圖1參考運(yùn)行結(jié)果界面

參考代碼：

PrivateSubCommandl_Click()

SelectCaseTrim(Textl)

Case“紅色”

Label2.BackColor=vbRed

Case"綠色”

Label2.BackColor=vbGreen

Case"藍(lán)色”

Label2.BackColor=vbBlue

Case“黑色”

Label2.BackColor=vbBlack

Case"白色”

Label2.BackColor=vbWhite

EndSelect

EndSub

PrivateSubCommand2_Click()

End

EndSub

2、修改題1中的程序，要求使用使用if?then-elseif?endif語句實(shí)現(xiàn)分支功能。最后

將工程文件、窗體文件分別以ch422vbp、ch422frm為文件名保存在D:\ch42文件夾

下。

參考代碼：

PrivateSubCommandl_Click()

lfTrim(Textl)="紅色"Then

Label2.BackColor=vbRed

ElselfTrim(Textl)="綠色"Then

Label2.BackColor=vbGreen

ElselfTrim(Textl)="藍(lán)色"Then

Label2.BackColor=vbBlue

ElselfTrim(Textl)="黑色"Then

Label2.BackColor=vbBlack

ElselfTrim(Textl)="白色"Then

Label2.BackColor=vbWhite

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

4、求滿足12+22+—+n2>100000的最小n值。要求使用While-Wend語句編寫程

序?qū)崿F(xiàn)，窗體界面自行設(shè)定。最后將工程文件、窗體文件分別以ch42-4.vbp、ch42-4.frm

為文件名保存在D:\ch42文件夾下。

參考代碼：

PrivateSubForm_Click()

Dimn%,s&

Whiles<=100000

n=n+1

s=s+nA2

Wend

Print"n=";n

EndSub

第7章補(bǔ)充實(shí)驗(yàn)1

1、設(shè)計(jì)一個(gè)調(diào)色板程序，在窗體上創(chuàng)建1框架、1個(gè)標(biāo)簽，在框架上建立6個(gè)單

選按鈕構(gòu)成控件數(shù)組，如圖1所示。程序運(yùn)行時(shí)，單擊對(duì)應(yīng)的顏色按鈕，將在標(biāo)簽中顯

示對(duì)應(yīng)的顏色。最后將工程文件、窗體文件分別以ch71-l.vbp、ch71-l.frm為文件名保

存在D:\ch71文件夾下。

圖1圖2

參考代碼：

PrivateSubOptionl_Click(indexAsInteger)

SelectCaseindex

Case0

Labell.BackColor=vbRed

Case1

Labell.BackColor=vbGreen

Case2

Labell.BackColor=vbBlue

Case3

Labell.BackColor=vbYellow

Case4

Labell.BackColor=vbBlack

Case5

Labell.BackColor=vbWhite

EndSelect

EndSub

3、利用單選按鈕、復(fù)選框、框架控制標(biāo)簽中文字的字形、字號(hào)、字體與顏色。程

序的運(yùn)行結(jié)果如圖3所示。最后將工程文件、窗體文件分別以ch71-3.vbp、ch71-3.frm

為文件名保存在D:\ch71文件夾下。

圖3

參考代碼:

PrivateSubCheckl_Click(indexAsInteger)

SelectCaseindex

Case0

Labell.FontStrikethru=NotLabe11.FontStrikethru

Case1

Labell.Fontltalic=NotLabell.Fontltalic

Case2

Labell.FontBold=NotLabell.FontBold

EndSelect

EndSub

PrivateSubOptionl_Click(indexAsInteger)

SelectCaseindex

Case0

Labell.FontSize=10

Case1

Labell.FontSize=18

Case2

Labell.FontSize=24

EndSelect

EndSub

PrivateSubOption2_Click(indexAsInteger)

SelectCaseindex

Case0

Labell.FontName="宋體”

Case1

Labell.FontName="楷體”

Case2

Labell.FontName="幼圓"

EndSelect

EndSub

PrivateSubOption3_Click(indexAsInteger)

SelectCaseindex

Case0

Labell.ForeColor=vbRed

Case1

Labell.ForeColor=vbGreen

Case2

Labell.ForeColor=vbBlue

EndSelect

EndSub

第7章補(bǔ)充實(shí)臉2

1、設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序。在窗體上建立3個(gè)垂直滾動(dòng)條，作為紅、綠、藍(lán)三

基色的輸入工具,合成的顏色作為文本框的背景顏色。其中,3個(gè)垂直滾動(dòng)條smallchange,

largechange屬性值分別設(shè)置為。與20,min、max屬性值分別設(shè)置為。與255,程序運(yùn)

行界面如圖1所示。最后將工程文件、窗體文件分別以ch72-l.vbp、ch72-l.frm為文件

名保存在D:\ch72文件夾下。

圖1圖2

參考代碼：

PrivateSubForm_Load()

VScroIll.Max=255

VScrolll.SmallChange=1:VScroIll.LargeChange=20

VScroll2.Max=255

VScroll2.SmallChange=1:VScroll2.LargeChange=20

VScroll3.Max=255

VScroll3.SmallChange=1:VScroll3.LargeChange=20

EndSub

PrivateSubVScrolll_Change()

Textl.BackColor=RGB(VScrolll,VScroll2zVScroll3)

EndSub

PrivateSubVScroll2_Change()

Textl.BackColor=RGB(VScrolll,VScroll2,VScroll3)

EndSub

PrivateSubVScroll3_Change()

Textl.BackColor=RGB(VScrolll,VScroll2,VScroll3)

EndSub

2、列表框的應(yīng)用。在窗體上創(chuàng)建2個(gè)列表框、2個(gè)標(biāo)簽、3個(gè)命令按鈕，窗體運(yùn)行

界面如圖2所示。要求如下：⑴列表框1用于顯示可選課程、列表框2用于顯示已選

課程。(2)單擊“選課”按鈕，將列表框1中選定的課程名稱加入到列表框2中顯示;

單擊“刪課”按鈕，將刪除列表框2中選定的課程；單擊“清空”按鈕，將刪除列表框

2中的所有課程。(3)最后將工程文件、窗體文件分別以ch72-2.vbp、ch72-2.frm為文件

名保存在D:\ch72文件夾下。

參考代碼:

PrivateSubCommand2_Click()

Fori=0ToList2.ListCount-1

IfList2.Selected(i)Then

List2.Removeitemi

ExitFor

EndIf

Next

EndSub

PrivateSubCommandl_Click()

Fori=0ToListl.ListCount-1

IfListl.Selected(i)Then

List2.AdditemListl.List(i)

EndIf

Next

EndSub

PrivateSubCommand3_Click()

List2.Clear

EndSub

PrivateSubForm_Load()

Listl.Addltem”電子商務(wù)”

Listl.Addltem”網(wǎng)頁制作”

Listl.Addltem"計(jì)算機(jī)網(wǎng)絡(luò)”

Listl.Addltem"多媒體技術(shù)”

Listl.Addltem"VB程序設(shè)計(jì)”

Listl.Addltem"C程序設(shè)計(jì)”

EndSub

3、組合框應(yīng)用。窗體運(yùn)行界面如圖3所示，要求如下：（1）在窗體上創(chuàng)建3個(gè)組合

框，分別用于選擇字號(hào)、字體與字形。字號(hào)至少包含8、12、16、20,字體至少包含仿

宋、楷體、黑體、隸書，字形至少包含常規(guī)、粗體、傾斜、粗體傾斜。⑵程序運(yùn)行時(shí)，

選擇字號(hào)、字體與字形后單擊“確定”按鈕，將控制標(biāo)簽中的文本內(nèi)容。（3）設(shè)計(jì)界面

并編寫代碼，最后將工程文件、窗體文件分別以ch72-3.vbp、ch72-3.frm為文件名保存

在D:\ch72文件夾下。

圖3

參考代碼：

PrivateSubCommandl_Click()

Label4.FontSize=Combol.Text

Label4.FontName=Combo2.Text

SelectCaseCombo3.Text

Case"常規(guī)"

Label4.FontBold=False

Label4.Fontltalic=False

Case”粗體”

Label4.FontBold=True

Label4.Fontltalic=False

Case“傾斜”

Label4.FontBold=False

Label4.Fontltalic=True

Case”粗體傾斜,,

Label4.FontBold=True

Label4.Fontltalic=True

EndSelect

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Combol.Addltem8

Combol.Addltem12

Combol.Addltem16

Combol.Addltem20

Combo2.Addltem”仿宋”

Combo2.Addltem”楷體”

Combo2.Addltem"黑體"

Combo2.Addltem”隸書”

Combo3.Addltem"常規(guī)"

Combo3.Addltem“粗體”

Combo3.Addltem"傾斜”

Combo3.Addltem"粗體傾斜”

EndSub

第7章補(bǔ)充實(shí)驗(yàn)3

1、組合框應(yīng)用。窗體運(yùn)行界面如圖1所示，要求如下：（1）在窗體上創(chuàng)建3個(gè)組合

框，分別用于選擇字號(hào)、字體與字形。字號(hào)至少包含8、12、16、20,字體至少包含仿

宋、楷體、黑體、隸書，字形至少包含常規(guī)、粗體、傾斜、粗體傾斜。（2）程序運(yùn)行時(shí),

選擇字號(hào)、字體與字形后單擊“確定”按鈕，將控制標(biāo)簽中的文本格式。⑶設(shè)計(jì)界面

并編寫代碼，最后將工程文件、窗體文件分別以ch73-l.vbp、ch73-l.frm為文件名保存

在D:\ch73文件夾下。

圖1

參考代碼：

PrivateSubCommandl_Click()

Label4.FontSize=Combol.Text

Label4.FontName=Combo2.Text

SelectCaseCombo3.Text

Case”常規(guī)“

Label4.FontBold=False

Label4.Fontltalic=False

Case”粗體”

Label4.FontBold=True

Label4.Fontltalic=False

Case”傾斜“

Label4.FontBold=False

Label4.Fontltalic=True

Case"粗體傾斜"

Label4.FontBold=True

Label4.Fontltalic=True

EndSelect

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Combol.Addltem8

Combol.Addltem12

Combol.Addltem16

Combol.Addltem20

Combo2.Addltem"仿宋"

Combo2.Addltem"楷體"

Combo2.Addltem“黑體”

Combo2.Addltem"隸書"

Combo3.Addltem"常規(guī)"

Combo3.Addltem”粗體”

Combo3.Addltem"傾斜"

Combo3.Addltem"粗體傾斜"

EndSub

2、計(jì)時(shí)器的應(yīng)用。在窗體上創(chuàng)建1個(gè)標(biāo)簽控件、1個(gè)計(jì)時(shí)器。設(shè)計(jì)窗體界面與編

寫代碼，使標(biāo)簽?zāi)茉诖绑w內(nèi)向左循環(huán)滾動(dòng)，如圖2所示，其中，圖3為運(yùn)行后的界面。

最后將工程文件、窗體文件分別以ch73-2.vbp、ch73-2.frm為文件名保存在D:\ch73文

件夾下。

圖2圖3

參考代碼：

PrivateSubForm_Load()'初始化計(jì)時(shí)器

Timerl.Enabled=True

Timerl.Interval=100

EndSub

PrivateSubTimerl_Timer()編寫計(jì)時(shí)器的Timer事件'使標(biāo)簽向左移動(dòng)

IfLabell.Left+Labell.Width>0Then

Labell.Left=Labell.Left-50

Else

Labell.Left=Forml.Width

EndIf

EndSub

3、修改題2中的程序代碼，使標(biāo)簽?zāi)茉诖绑w內(nèi)向左向右來回循環(huán)滾動(dòng)。最后將工

程文件、窗體文件分別以ch73?3.vbp、ch73?3.frm為文件名保存在D:\ch73文件夾下。

參考代碼1:

PrivateSubForm_Load()'初始化計(jì)時(shí)器

Timerl.Enabled=True

Timerl.Interval=100

Timer2.Enabled=False

Timer2.Interval=100

EndSub

PrivateSubTime門_Timer(廠編寫計(jì)時(shí)器的Timer事件使標(biāo)簽向左移動(dòng)

IfLabell.Left>=0Then

Labell.Left=Labell.Left-50

Else

Timerl.Enabled=False

Timer2.Enabled=True

EndIf

EndSub

PrivateSubTimer2_Timer(廠編寫計(jì)時(shí)器的Timer事件使標(biāo)簽向右移動(dòng)

IfLabell.Left+Labell.Width<=Forml.WidthThen

Labell.Left=Labell.Left+50

Else

Timerl.Enabled=True

Timer2.Enabled=False

EndIf

EndSub

參考代碼2：

Dimt%

PrivateSubForm_Load()'初始化計(jì)時(shí)器

Timerl.Enabled=True

Timerl.Interval=100

t=50

EndSub

PrivateSubTimerl_Timer（），使標(biāo)簽向左向右來回移動(dòng)

IfLabe11.Left>=0AndLabell.Left+Labell.Width<=Forml.WidthThen

Labell.Left=Labell.Left-1

ElselfLabell.Left<0Then

Labell.Left=0

t=-t

ElselfLabell.Left+Labell.Width>Forml.WidthThen

Labell.Left=Forml.Width-Labell.Width

t=-t

EndIf

EndSub

第7章補(bǔ)充實(shí)驗(yàn)4

1、圖片框的應(yīng)用。在窗體上創(chuàng)建1個(gè)列表框、1個(gè)文本框、3個(gè)標(biāo)簽、2個(gè)命令按

鈕，窗體運(yùn)行界面如圖1所示。要求如下：（1）文本框用于輸入選課學(xué)生姓名，列表框用

于顯示并選擇課程，圖片框用于輸出選課信息。（2）單擊“選課”按鈕，將文本框中輸

入及列表框中選定的信息在圖片框中輸出；單擊“清空”按鈕，將清除文本框及圖片框

中的信息。⑶最后將工程文件、窗體文件分別以ch74；.vbp、ch74；.frm為文件名保存

在D:\ch74文件夾下。

圖1

參考代碼：

PrivateSubCommandl_Click()

Picturel.Print"學(xué)生姓名:"

Picturel.PrintTab(4);Textl

Picturel.Print"己選課程:"

Fori=0ToListl.ListCount-1

IfListl.Selected(i)Then

Picturel.PrintTab(4);Listl.LisHi)

EndIf

Next

EndSub

PrivateSubCommand2_Click()

Textl=""

Picturel.CIs

EndSub

PrivateSubForm_Load()

Listl.Addltem”電子商務(wù)”

Listl.Addltem”網(wǎng)頁制作”

Listl.Addltem”計(jì)算機(jī)網(wǎng)絡(luò)”

Listl.Addltem"多媒體技術(shù)”

Listl.Addltem"VB程序設(shè)計(jì)“

Listl.Addltem"C程序設(shè)計(jì)”

EndSub

2、圖片框及圖像框的應(yīng)用。給出8個(gè)圖像文件，創(chuàng)建圖2的窗體，窗體運(yùn)行時(shí)能

在圖片框中循環(huán)，運(yùn)行界面如圖3所示。要求如下：⑴計(jì)時(shí)器控制每秒顯示一張圖像。

⑵單擊“暫停”按鈕，暫停瀏覽人物圖像；單擊“繼續(xù)”按鈕，繼續(xù)瀏覽人物圖像；

單擊“結(jié)束”按鈕，結(jié)束窗體運(yùn)行。(3)最后將工程文件、窗體文件分別以ch742vbp、

ch74-2.frm為文件名保存在D:\ch74文件夾下。

圖2圖3

參考代碼：

PrivateSubCommandl_Click()

Timerl.Enabled=False

EndSub

PrivateSubCommand2_Click()

Timerl.Enabled=True

EndSub

PrivateSubcommand3_Click()

End

EndSub

PrivateSubTimerl_Timer()

Statici

Ifi=8Then

i=0

Picturel.Picture=Imagel(i).Picture'圖形框裝入某張圖片

Else

Picturel.Picture=Imagel(i).Picture，圖形框裝入某張圖片

EndIf

i=i+1

EndSub

實(shí)驗(yàn)二VB可視化語言編程基礎(chǔ)

三、實(shí)驗(yàn)舉例

按要求完成以下的各實(shí)例操作，并將所有生成的文件保存在D:\EX2文件夾下。

【實(shí)例2.1】窗體的常用事件練習(xí)。

創(chuàng)建一個(gè)新的工程，窗體使用默認(rèn)名稱Form1。程序運(yùn)行時(shí)，要求如下：

1）啟動(dòng)程序時(shí)，窗體的背景色變?yōu)榧t色。

2）當(dāng)單擊窗體時(shí)，窗體的背景色變?yōu)榫G色。

3）當(dāng)雙擊窗體時(shí)，窗體的背景色變?yōu)樗{(lán)色。

窗體文件保存為fl.frm,工程文件保存為Ll.vbp?

【實(shí)例2.2】新建工程,在窗體上創(chuàng)建4個(gè)命令按鈕Commandl、Command2、Command3、

Command4,要求如下：

1）在屬性窗口中設(shè)置4個(gè)命令按鈕上的文字分別為“向上移動(dòng)”、“向下移動(dòng)”、“向左

移動(dòng)”和“向右移動(dòng)”。

2）編寫事件過程，運(yùn)行程序后，每次單擊“向上移動(dòng)”則窗體向上移動(dòng)lOOtwip；每

次單擊“向下移動(dòng)”則窗體向下移動(dòng)lOOtwip；每次單擊向左移動(dòng)”則窗體向左移動(dòng)50twip；

每次單擊“向右移動(dòng)”則窗體向右移動(dòng)50twip。

窗體文件保存為f2.frm,工程文件保存為L2.vbp。

【實(shí)例2.3】新建工程，在窗體上創(chuàng)建兩個(gè)命令按鈕Commandl、Command2,一個(gè)標(biāo)簽

Labell,要求如下：

1）在屬性窗口中設(shè)置兩個(gè)命令按鈕上的文字分別為“隱藏”和“顯示”，標(biāo)簽上文字為

“可以隱藏的控件

2）編寫事件過程，運(yùn)行程序后，單擊“隱藏”按鈕，標(biāo)簽不可見，單擊“顯示”按鈕,

標(biāo)簽重新可見。

3）編寫事件過程，運(yùn)行程序后，單擊窗體，窗體的標(biāo)題欄上顯示“隱藏/顯示控件”。

窗體文件保存為f3.frm,工程文件保存為L3.vbp。

【實(shí)例2.4】創(chuàng)建一個(gè)新工程，窗體名稱為Forml；其Caption屬性設(shè)置為“Move方法

練習(xí)”。單擊窗體時(shí)，窗體向屏幕的右下角移動(dòng)，同時(shí)窗體的長、寬也縮小為原來的一半。

窗體文件保存為f4.frm,工程文件保存為L4.vbp。

【實(shí)例2.5】設(shè)計(jì)一個(gè)如圖2-3所示的窗體，單擊確定按鈕時(shí)，在窗體的標(biāo)題欄顯示用戶

輸入的各項(xiàng)數(shù)據(jù)。窗體文件保存為F5.frm,工程文件保存為L5.vbp。

四、實(shí)驗(yàn)題目

按要求完成以下的各操作，并將所有生成的文件保存在D:\EX2文件夾下。

【題目2.1】練習(xí)在窗體上添加、刪除多個(gè)控件對(duì)象，并調(diào)整控件的位置、大小，利用

“格式”菜單中的命令對(duì)齊控件。

【題目2.2】新建工程，在窗體上創(chuàng)建兩個(gè)命令按鈕Commandl、Command2,一個(gè)標(biāo)簽

Labell,界面如圖2-5所示，程序運(yùn)行要求如下：

1)單擊“改變顏色”按鈕，標(biāo)簽上的文字內(nèi)容改為“顏色已經(jīng)改變"，文字顏色改為紅

色。

2)單擊“改變字體”按鈕，標(biāo)簽上的字體改為“黑體”。

圖2-5程序運(yùn)行界面

最后將工程文件、窗體文件分別以lx2-2.vbp、Ix2-2.frm為文件名保存在D:\EX2文件夾

下。

參考代碼：

PrivateSubCommand1_C1ick()

Label1="顏色已經(jīng)改變"

Labell.ForeColor=vbRed'或者rgb(255,O,O)

EndSub

PrivateSubCommand2_Click()

Labell.FontName="黑體"

EndSub

【題目2.4】設(shè)計(jì)一個(gè)留言薄。新建一個(gè)工程，在窗體上創(chuàng)建2個(gè)標(biāo)簽，2個(gè)文本框，

1個(gè)命令按鈕，屬性設(shè)置如圖2-6所示,。要求單擊“提交”按鈕后，上面的文本框內(nèi)容

復(fù)制到下面的文本框中，且下面文本框中的內(nèi)容不能修改。單擊“清除”按鈕則清除兩

個(gè)文本框中的內(nèi)容。

圖2-6程序界面

最后將工程文件、窗體文件分別以lx2?4.vbp、lx2-4.frm為文件名保存在D:\EX2文件夾

下。

參考代碼：

PrivateSubCommand1_Click()

Text2=Textl

EndSub

PrivateSubCommand2_Click()

Textl=',H

Text2二””

EndSub

【題目2.5】設(shè)計(jì)一個(gè)程序，程序界面如圖2-7所示。當(dāng)單擊“顯示”按鈕時(shí)，在文

本框中顯示“歡迎使用VB!”；當(dāng)單擊“清除”按鈕時(shí)，清除文本框內(nèi)的文本；當(dāng)單擊

“退出”按鈕時(shí)，結(jié)束程序運(yùn)行。

圖2-7程序運(yùn)行界面

最后將工程文件、窗體文件分別以lx2-5.vbp、Ix2-5.frm為文件名保存在D:\EX2文件夾

下。

參考代碼：

PrivateSubCommandl_Click()

Textl="歡迎使用VB!"

EndSub

PrivateSubCommand2_Click()

Textl=""

EndSub

PrivateSubCommand3_Click()

End

EndSub

【題目3.3】設(shè)計(jì)一個(gè)程序，實(shí)現(xiàn)簡單計(jì)算的功能，運(yùn)行界面如圖3-7所示。最后

將工程文件、窗體文件分別以Ix3-3.vbp,Ix3-3.frm為文件名保存在D:\EX3文件夾下。

圖3-7程序運(yùn)行界面

參考代碼：

PrivateSubCommandl_Click()

Labell=Commandl.Caption

Text3=Val(Textl)+Val(Text2)

EndSub

PrivateSubCommand2_Click()

Labell=Command?.Caption

Text3=Val(Textl)-Val(Text2)

EndSub

PrivateSubCommand3_Click()

Labell=Commands.Caption

Text3=Val(Textl)*Vai(Text2)

EndSub

PrivateSubCommand4_Click()

Labell=Command4.Caption

Text3=Val(Textl)/Vai(Text2)

EndSub

PrivateSubCommand5_Click()

Textl="“：Text2="”：Text3=

EndSub

PrivateSubCommand6_Click()

End

EndSub

【題目3.4］設(shè)計(jì)一個(gè)程序(程序運(yùn)行界面自定)，使