期末复习之VB编程题汇总

第2章补充实脸

1、设计程序，在窗体上建立3个命令按钮，隐藏最小化、最大化按钮，如图1

所示。单击3个命令按钮后分别使窗体最大化、还原或最小化。最后将工程文件、窗体

文件分别以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、设计程序，在窗体上建立3个命令按钮，3个文本框，如图2、图3所示。利

用2个文本框输入两个数，单击“计算”按钮时，将两个数的平方和显示在第三个文本

框中；单击“清除”按钮，清除所有文本框的内容；单击“定位”按钮，将光标定位到

第二个文本框中。最后将工程文件、窗体文件分别以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、设计一个调色板程序，在窗体上建立5个命令按钮，1个标签，如图4所示。

单击对应的颜色按钮，将在标签中显示对应的颜色。最后将工程文件、窗体文件分别以

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章补充实验

1、设计一个程序，要求如下：⑴产生10个2位随机正整数；⑵在窗体上分别输出

10个2位随机正整数的正序和逆序；⑶求出这10个数的平均值ave、最大值max和最

小值min,并输出到一个标签上；⑷窗体的参考运行结果界面如图1所示。⑸最后将工

程文件、窗体文件分别以ch5-l.vbp、ch5-l.frm为文件名保存在D:\ch5文件夹下。

____F_o__ra__l___________________________-|q|x|

10个数的正序为：59205360599114457367

10个数的诙席为：67734514915960532059

图1参考运行结果界面

参考代码：

OptionBase1

PrivateSubCommandl_Click()

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

Randomize

Print"10个数的正序为：

Fori=1To10

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

ave=ave+a(i)

Printa(i);

Next

ave=ave/10

Print

Print"10个数的逆序为：

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、编写程序产生4X4矩阵A,输出矩阵A,以及矩阵A的上三角矩阵和下三角矩

阵。程序参考运行结果界面如图2所示。最后将工程文件、窗体文件分别以ch5-2.vbp.

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

・Foral

产生的矩阵A为：

1

5

9

13

它的上三角矩阵为:

1

它的下三角矩阵为:

1

5

9

13

二维数组

图2参考运行结果界面

参考代码：

OptionBase1

PrivateSubCommandl_Click()

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

Fori=1To4'产生数组A

Forj=1TO4

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

Nextj

Nexti

Print”产生的矩阵A为：，输出数组A

Fori=1To4

Forj=lTo4

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

Nextj

Print

Nexti

Print”它的上三角矩阵为：“'输出数组A的上三角矩阵

Fori=1To4

Forj=iTo4

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

Nextj

Print

Nexti

Print”它的下三角矩阵为：“‘输出数组A的下三角矩阵

Fori=1To4

Forj=1Toi

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

Nextj

Print

Nexti

EndSub

第3章补充实验1

1、设计程序，求出VB系统赋给各种类型变量的默认值，将工程文件、窗体文件

分别以ch31-l.vbp、ch31-l.frm为文件名保存在D:\ch31文件夹下，并根据程序的运行

结果及所学的知识填写表1。

表1

类型类型名类型符默认值

字节型Byte无0

整型Intege%0

长整型Long&0

单精度型Single!0

双精度型Double#0

货币型Currency@0

////

字符串型String$

逻辑型Boolean无False

日期型Date无0:00:00

对象型Object无无

变体型Variant无UH

参考结果与代码:

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章补充实验2

1、设计程序，求解一元二次方程ax2+bx+c=0的实根(假定判别式△》())，窗体参

考界面如图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函数输入a,b,c的值，输出xl、x2的值改用

msgbox函数，程序参考界面如图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、设计程序，从键盘上输入3位的正整数，单击“求解”按钮，则能分解出该3

位数的个位、十位和百位，单击“退出”按钮，则结束程序运行。窗体参考界面如图5、

图6所示。最后将工程文件、窗体文件分别以ch32-3.vbp、ch32-3.frm为文件名保存在

D:\ch32文件夹下。

图5窗体界面图6参考运行结果界面

参考代码：

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章补充实验1

1、设计程序，计算如下函数的值：y=

要求如下：（1）使用inputbox函数输入x的值，使用msgbox显示函数y的值。（2）

使用单分支if-then-endif语句实现分支功能。（3）窗体参考界面如图1、图2所示。（4）

将工程文件、窗体文件分别以ch41-l.vbp、ch41-l.frm为文件名保存在D:\ch41文件夹

图1窗体运行界面图2参考运行结果界面

参考代码：

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语句实现分支功

能。⑵将工程文件、窗体文件分别以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、设计程序，求解一元二次方程ax2+bx+c=0,要求如下：(1)当判别式△V0时，

用msgbox显示“判别式△<(),方程无实根!”，单击“确定”按钮后清空三个文本框；

当判别式△》()时，求出两实根。(2)使用1卜由646归6e“1£语句实现分支功能。(3)窗体

参考界面如图3、图4、图5所示。(4)将工程文件、窗体文件分别以ch41-3.vbp、ch41-3.frm

为文件名保存在D:\ch41文件夹下。

图3窗体界面图4参考运行结果界面1图5参考运行结果界面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("判别式△<(),方程无实根！")

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函数输入a,b,c的值，输出xl>

x2的值改用msgbox函数。(2)当a=0时，用msgbox显示“a=0,不是一元二次方程！

当判别式^VO时，用msgbox显示“判别式△<(),方程无实根!&当判别式△》()时，

求出两实根，并用msgbox显示。⑶使用if・then・elseif・endif语句实现分支功能。⑷窗

体参考界面如图6、图7、图8、图9所示。(5)将工程文件、窗体文件分别以ch41-4.vbp.

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

图6输入界面图7参考运行结果界面1

图8参考运行结果界面2图9参考运行结果界面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("判别式△<€),方程无实根！")

日se

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

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

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

EndIf

EndSub

第4章补充实验2

1、设计一个调色板程序，在窗体上建立1个文本框、2个命令按钮，2个标签，

参考运行结果界面如图1所示。运行程序时，在文本框中输入颜色名称（红色、绿色、

蓝色、黑色、白色），单击“显示”按钮，将在标签2中显示对应的颜色，要求使用select

case-endselect语句实现分支功能。最后将工程文件、窗体文件分别以ch42-l.vbp、

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

图1参考运行结果界面

参考代码：

PrivateSubCommandl_Click()

SelectCaseTrim(Textl)

Case“红色”

Label2.BackColor=vbRed

Case"绿色”

Label2.BackColor=vbGreen

Case"蓝色”

Label2.BackColor=vbBlue

Case“黑色”

Label2.BackColor=vbBlack

Case"白色”

Label2.BackColor=vbWhite

EndSelect

EndSub

PrivateSubCommand2_Click()

End

EndSub

2、修改题1中的程序，要求使用使用if・then-elseif・endif语句实现分支功能。最后

将工程文件、窗体文件分别以ch422vbp、ch422frm为文件名保存在D:\ch42文件夹

下。

参考代码：

PrivateSubCommandl_Click()

lfTrim(Textl)="红色"Then

Label2.BackColor=vbRed

ElselfTrim(Textl)="绿色"Then

Label2.BackColor=vbGreen

ElselfTrim(Textl)="蓝色"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语句编写程

序实现，窗体界面自行设定。最后将工程文件、窗体文件分别以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章补充实验1

1、设计一个调色板程序，在窗体上创建1框架、1个标签，在框架上建立6个单

选按钮构成控件数组，如图1所示。程序运行时，单击对应的颜色按钮，将在标签中显

示对应的颜色。最后将工程文件、窗体文件分别以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、利用单选按钮、复选框、框架控制标签中文字的字形、字号、字体与颜色。程

序的运行结果如图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章补充实脸2

1、设计一个调色板应用程序。在窗体上建立3个垂直滚动条，作为红、绿、蓝三

基色的输入工具,合成的颜色作为文本框的背景颜色。其中,3个垂直滚动条smallchange,

largechange属性值分别设置为。与20,min、max属性值分别设置为。与255,程序运

行界面如图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、列表框的应用。在窗体上创建2个列表框、2个标签、3个命令按钮，窗体运行

界面如图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”电子商务”

Listl.Addltem”网页制作”

Listl.Addltem"计算机网络”

Listl.Addltem"多媒体技术”

Listl.Addltem"VB程序设计”

Listl.Addltem"C程序设计”

EndSub

3、组合框应用。窗体运行界面如图3所示，要求如下：（1）在窗体上创建3个组合

框，分别用于选择字号、字体与字形。字号至少包含8、12、16、20,字体至少包含仿

宋、楷体、黑体、隶书，字形至少包含常规、粗体、倾斜、粗体倾斜。⑵程序运行时，

选择字号、字体与字形后单击“确定”按钮，将控制标签中的文本内容。（3）设计界面

并编写代码，最后将工程文件、窗体文件分别以ch72-3.vbp、ch72-3.frm为文件名保存

在D:\ch72文件夹下。

图3

参考代码：

PrivateSubCommandl_Click()

Label4.FontSize=Combol.Text

Label4.FontName=Combo2.Text

SelectCaseCombo3.Text

Case"常规"

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"常规"

Combo3.Addltem“粗体”

Combo3.Addltem"倾斜”

Combo3.Addltem"粗体倾斜”

EndSub

第7章补充实验3

1、组合框应用。窗体运行界面如图1所示，要求如下：（1）在窗体上创建3个组合

框，分别用于选择字号、字体与字形。字号至少包含8、12、16、20,字体至少包含仿

宋、楷体、黑体、隶书，字形至少包含常规、粗体、倾斜、粗体倾斜。（2）程序运行时,

选择字号、字体与字形后单击“确定”按钮，将控制标签中的文本格式。⑶设计界面

并编写代码，最后将工程文件、窗体文件分别以ch73-l.vbp、ch73-l.frm为文件名保存

在D:\ch73文件夹下。

图1

参考代码：

PrivateSubCommandl_Click()

Label4.FontSize=Combol.Text

Label4.FontName=Combo2.Text

SelectCaseCombo3.Text

Case”常规“

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"常规"

Combo3.Addltem”粗体”

Combo3.Addltem"倾斜"

Combo3.Addltem"粗体倾斜"

EndSub

2、计时器的应用。在窗体上创建1个标签控件、1个计时器。设计窗体界面与编

写代码，使标签能在窗体内向左循环滚动，如图2所示，其中，图3为运行后的界面。

最后将工程文件、窗体文件分别以ch73-2.vbp、ch73-2.frm为文件名保存在D:\ch73文

件夹下。

图2图3

参考代码：

PrivateSubForm_Load()'初始化计时器

Timerl.Enabled=True

Timerl.Interval=100

EndSub

PrivateSubTimerl_Timer()编写计时器的Timer事件'使标签向左移动

IfLabell.Left+Labell.Width>0Then

Labell.Left=Labell.Left-50

Else

Labell.Left=Forml.Width

EndIf

EndSub

3、修改题2中的程序代码，使标签能在窗体内向左向右来回循环滚动。最后将工

程文件、窗体文件分别以ch73・3.vbp、ch73・3.frm为文件名保存在D:\ch73文件夹下。

参考代码1:

PrivateSubForm_Load()'初始化计时器

Timerl.Enabled=True

Timerl.Interval=100

Timer2.Enabled=False

Timer2.Interval=100

EndSub

PrivateSubTime门_Timer(厂编写计时器的Timer事件使标签向左移动

IfLabell.Left>=0Then

Labell.Left=Labell.Left-50

Else

Timerl.Enabled=False

Timer2.Enabled=True

EndIf

EndSub

PrivateSubTimer2_Timer(厂编写计时器的Timer事件使标签向右移动

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

Labell.Left=Labell.Left+50

Else

Timerl.Enabled=True

Timer2.Enabled=False

EndIf

EndSub

参考代码2：

Dimt%

PrivateSubForm_Load()'初始化计时器

Timerl.Enabled=True

Timerl.Interval=100

t=50

EndSub

PrivateSubTimerl_Timer（），使标签向左向右来回移动

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章补充实验4

1、图片框的应用。在窗体上创建1个列表框、1个文本框、3个标签、2个命令按

钮，窗体运行界面如图1所示。要求如下：（1）文本框用于输入选课学生姓名，列表框用

于显示并选择课程，图片框用于输出选课信息。（2）单击“选课”按钮，将文本框中输

入及列表框中选定的信息在图片框中输出；单击“清空”按钮，将清除文本框及图片框

中的信息。⑶最后将工程文件、窗体文件分别以ch74；.vbp、ch74；.frm为文件名保存

在D:\ch74文件夹下。

图1

参考代码：

PrivateSubCommandl_Click()

Picturel.Print"学生姓名:"

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”电子商务”

Listl.Addltem”网页制作”

Listl.Addltem”计算机网络”

Listl.Addltem"多媒体技术”

Listl.Addltem"VB程序设计“

Listl.Addltem"C程序设计”

EndSub

2、图片框及图像框的应用。给出8个图像文件，创建图2的窗体，窗体运行时能

在图片框中循环，运行界面如图3所示。要求如下：⑴计时器控制每秒显示一张图像。

⑵单击“暂停”按钮，暂停浏览人物图像；单击“继续”按钮，继续浏览人物图像；

单击“结束”按钮，结束窗体运行。(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

实验二VB可视化语言编程基础

三、实验举例

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

【实例2.1】窗体的常用事件练习。

创建一个新的工程，窗体使用默认名称Form1。程序运行时，要求如下：

1）启动程序时，窗体的背景色变为红色。

2）当单击窗体时，窗体的背景色变为绿色。

3）当双击窗体时，窗体的背景色变为蓝色。

窗体文件保存为fl.frm,工程文件保存为Ll.vbp„

【实例2.2】新建工程,在窗体上创建4个命令按钮Commandl、Command2、Command3、

Command4,要求如下：

1）在属性窗口中设置4个命令按钮上的文字分别为“向上移动”、“向下移动”、“向左

移动”和“向右移动”。

2）编写事件过程，运行程序后，每次单击“向上移动”则窗体向上移动lOOtwip；每

次单击“向下移动”则窗体向下移动lOOtwip；每次单击向左移动”则窗体向左移动50twip；

每次单击“向右移动”则窗体向右移动50twip。

窗体文件保存为f2.frm,工程文件保存为L2.vbp。

【实例2.3】新建工程，在窗体上创建两个命令按钮Commandl、Command2,一个标签

Labell,要求如下：

1）在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为

“可以隐藏的控件

2）编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮,

标签重新可见。

3）编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”。

窗体文件保存为f3.frm,工程文件保存为L3.vbp。

【实例2.4】创建一个新工程，窗体名称为Forml；其Caption属性设置为“Move方法

练习”。单击窗体时，窗体向屏幕的右下角移动，同时窗体的长、宽也缩小为原来的一半。

窗体文件保存为f4.frm,工程文件保存为L4.vbp。

【实例2.5】设计一个如图2-3所示的窗体，单击确定按钮时，在窗体的标题栏显示用户

输入的各项数据。窗体文件保存为F5.frm,工程文件保存为L5.vbp。

四、实验题目

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

【题目2.1】练习在窗体上添加、删除多个控件对象，并调整控件的位置、大小，利用

“格式”菜单中的命令对齐控件。

【题目2.2】新建工程，在窗体上创建两个命令按钮Commandl、Command2,一个标签

Labell,界面如图2-5所示，程序运行要求如下：

1)单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变"，文字颜色改为红

色。

2)单击“改变字体”按钮，标签上的字体改为“黑体”。

图2-5程序运行界面

最后将工程文件、窗体文件分别以lx2-2.vbp、Ix2-2.frm为文件名保存在D:\EX2文件夹

下。

参考代码：

PrivateSubCommand1_C1ick()

Label1="颜色已经改变"

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

EndSub

PrivateSubCommand2_Click()

Labell.FontName="黑体"

EndSub

【题目2.4】设计一个留言薄。新建一个工程，在窗体上创建2个标签，2个文本框，

1个命令按钮，属性设置如图2-6所示,。要求单击“提交”按钮后，上面的文本框内容

复制到下面的文本框中，且下面文本框中的内容不能修改。单击“清除”按钮则清除两

个文本框中的内容。

图2-6程序界面

最后将工程文件、窗体文件分别以lx2・4.vbp、lx2-4.frm为文件名保存在D:\EX2文件夹

下。

参考代码：

PrivateSubCommand1_Click()

Text2=Textl

EndSub

PrivateSubCommand2_Click()

Textl=',H

Text2二””

EndSub

【题目2.5】设计一个程序，程序界面如图2-7所示。当单击“显示”按钮时，在文

本框中显示“欢迎使用VB!”；当单击“清除”按钮时，清除文本框内的文本；当单击

“退出”按钮时，结束程序运行。

图2-7程序运行界面

最后将工程文件、窗体文件分别以lx2-5.vbp、Ix2-5.frm为文件名保存在D:\EX2文件夹

下。

参考代码：

PrivateSubCommandl_Click()

Textl="欢迎使用VB!"

EndSub

PrivateSubCommand2_Click()

Textl=""

EndSub

PrivateSubCommand3_Click()

End

EndSub

【题目3.3】设计一个程序，实现简单计算的功能，运行界面如图3-7所示。最后

将工程文件、窗体文件分别以Ix3-3.vbp,Ix3-3.frm为文件名保存在D:\EX3文件夹下。

图3-7程序运行界面

参考代码：

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］设计一个程序(程序运行界面自定)，使