第9章 实验.docx

第9章 实验.docx

《第9章 实验.docx》由会员分享，可在线阅读，更多相关《第9章 实验.docx（58页珍藏版）》请在冰点文库上搜索。

第9章实验

第9章实验233

实验一VisualBasic集成开发环境233

实验二运算符和表达式235

实验三窗体与基本控件

（一）236

实验四窗体基本控件

（二）237

实验五顺序结构239

实验六If分支结构240

实验七SelectCase分支结构241

实验八For循环结构243

实验九条件循环结构244

实验十循环嵌套结构246

实验十一数组

（一）249

实验十二数组

（二）250

实验十三数组（三）252

实验十四控件数组254

实验十五函数过程的使用255

实验十六子过程的使用

（一）256

实验十七子过程的使用

（二）257

实验十八递归258

实验十九常用控件261

实验二十菜单263

实验二十一多重窗体和多文档界面264

实验二十二文件应用266

实验二十三文件综合应用270

实验二十四综合应用273

第9章实验

实验一VisualBasic集成开发环境

【预习内容】

1．VisualBasic的启动与退出方法。

2．VisualBasic创建工程的基本步骤。

3．VisualBasic集成开发环境窗口的隐藏和显示。

【实验目的】

1．熟悉VisualBasic集成开发环境。

2．掌握VisualBasic的启动、退出方法。

3．掌握VisualBasic创建工程的基本步骤。

4．掌握VisualBasic集成开发环境设置。

【实验内容】

1．编写一个程序，要求设置窗体的标题是“实验一”，且在程序执行后，单击“移动”按钮窗体显示文字“VisualBasic”中Caption属性值也向右下方移动，单击“结束”按钮，结束程序的运行，运行界面如图9-1-1所示。

图9-1-1实验一的运行界面

（1）在窗体上添加两个命令按钮（Command1和Command2）。

（2）设置窗体及命令按钮的属性，如表9-1-1所示。

表9-1-1控件属性

控件名称

属性

值

Form1

Caption

实验一

Command1

Caption

结束

Command2

Caption

移动

Label1

Caption

VisualBasic

（3）参考代码如下：

PrivateSubCommand1_Click（）

End

EndSub

PrivateSubCommand2_Click（）

Label1.Left=Label1.Left+20

Label1.Top=Label1.Top+20

Print"VisualBasic"'Print语句为打印方法

EndSub

（4）保存（保存在指定位置，文件名自定）、运行，最后退出VisualBasic环境。

2．打开上题中的工程文件，对窗体、命令按钮的属性（颜色、字体等）、事件（单击，双击事件代码）进行重新设置，然后保存。

自行设置各控件的属性、事件代码。

【问题】

1．根据VisualBasic中设置控件属性的方法，请分别指出程序中哪些是控件的属性、事件和方法。

2．在VisualBasic环境中如何设置属性窗口、代码窗口、工具箱的隐藏和显示？

3．保存VisualBasic工程文件时保存几种文件，文件扩展名分别是什么？

4．写出VisualBasic工程中常用三种工作模式。

实验二运算符和表达式

【预习内容】

1．运算符的分类及其优先级。

2．函数的分类及其参数的意义。

3．表达式的转换方法。

【实验目的】

1．掌握运算符的功能及其优先级。

2．掌握常用函数的使用方法。

3．掌握表达式书写方法。

【实验内容】

1．在立即窗口中通过“?

”和Print命令验证以下几组函数，并分析运行的结果。

（１）Chr（122），Asc（C）

（２）Log（10），Exp（2.3）

（３）Sin（30*3.14/180）

（４）Val（"123.45er6789"），"abc"+Str（123.45）

（５）Fix（-6.5），Fix（6.5），Int（6.5），Round（6.5），Round（-6.5）

（６）Lcase$（"ABC"），Ucase$（"abc"）

（７）Left$（"ABCDEFGH",3），Right$（"ABCDEFGH",3），Mid（"ABCDEFGH",3,3），String（"ABCDEFGH",3）

（８）Ltrim（"VisualBasic的标准函数"）

Rtrim（"VisualBasic的标准函数"）

Trim（"VisualBasic的标准函数"）

（９）Now（），Date（），Time（），Date（"d",2,#2/27/2008#）

（１０）Instr（2,"ABCDEDCBABCDE","CD"）

２．根据条件写一个正确的VisualBasic表达式,并上机验证表达式的正确性。

（１）随机产生一个"A"~"Z"范围内的字符。

（２）随机产生一个0~100（包括0和100）范围内的下整数。

（３）表示a是3或7的倍数。

（４）取字符变量S中第3个字符起的4个字符。

（５）计算一下还有多少天你大学毕业。

（６）表示字符变量b是字符（大小写不区分）。

（７）表示10

（８）x，y中有一个小于z。

（９）x，y都大于z。

（１０）将任意一个两位数x的个位数字与十位数字对换。

例如：

x=23，则表达式的值应为32。

３．思考并上机验证下列各个表达式的值。

（１）123+23Mod10\7+Asc（"B"）

（２）200+"200"&200

（３）Int（78.555*100+0.5）/100

（４）已知A$="123456789",求表达式Val（left$（A$,5）+Mid$（A$,5,2））的值

【问题】

1．在VisualBasic的库函数中找出几对有互逆性质的函数？

２．判断是否是数字字符串，用什么函数？

取字符串中的某几个字符，用什么函数？

实验三窗体与基本控件

（一）

【预习内容】

1．窗体与常用控件的属性、事件和方法。

【实验目的】

1．掌握窗体与常用控件的属性、事件和方法。

【实验内容】

1.在属性窗口中，对窗体和标签、文本框、命令按钮等基本控件的常用属性进行设置，观察不同的属性值所对应的不同功能。

2．在窗体上添加常用控件，并设置各对象的属性，如表9-3-1所示。

表9-3-1对象属性设置

对象名

属性名

属性值

Form1

Caption

设置对象属性

Label1

Caption

请输入密码

Label1

BorderStyle

FixedSingle

Text1

Text

空白

Text1

Multiline

True

Text1

PasswordChar

*

Command1

Caption

确定

3．利用标签和命令按钮设计一个简单的应用程序。

要求：

单击“确定”按钮时，显示“欢迎使用本系统！

”；单击“退出”按钮时，显示“谢谢使用本系统！

”。

运行界面如图9-3-1所示。

图9-3-1运行界面

提示：

（1）在“确定”按钮的Click事件中编写程序代码如下：

Label1.Caption="欢迎登录本系统！

"

Label1.FontSize=20

（2）在“退出”按钮的Click事件中编写程序代码如下：

Label1.Caption="谢谢使用本系统！

"

Label1.FontSize=20

【实验问题】

1．Name属性与Caption属性有什么区别？

2．标签与文本框有什么区别？

实验四窗体基本控件

（二）

【预习内容】

1．窗体与常用控件的属性、事件和方法。

【实验目的】

1．综合运用窗体与常用控件的属性、事件和方法。

【实验内容】

1．当单击窗体时，在图形框控件上输出图形，如图9-4-1所示。

图9-4-1实验4-1运行界面

参考代码如下：

PrivateSubForm_Click（）

Fori=1To5

Picture1.PrintTab（i）;String（6-i,"★"）;Spc（6）;String（i,"☆"）

Nexti

EndSub

2．设计一个简单的应用程序，运行界面如图9-4-2所示。

要求：

单击“复制”按钮时，将“源文本”文本框中选定的内容复制到“目标文本”文本框中。

图9-4-2实验4-2运行界面

提示：

（1）将两个文本框的Multiline属性设置为True，ScrollBars属性设置为2-Vertical。

（2）在“复制”按钮的Click事件中编写程序代码如下：

Text2.Text=Text1.SelText

【实验问题】

1．在Form_Load事件中，若要使Print方法有效，需要设置窗体的什么属性？

2．文本框的GotFous事件与LostFous事件有何区别？

实验五顺序结构

【预习内容】

1．VisualBasic赋值语句“=”的使用方法。

2．用户交互函数InputBox与MsgBox的使用方法。

3．Print方法与Print方法有关的函数（Tab、Spc、Space$）的使用方法。

【实验目的】

1．掌握顺序结构程序设计方法。

2．掌握赋值语句“=”的使用方法。

3．掌握用户交互函数InputBox与MsgBox的使用方法。

4．掌握Print方法及其关的函数（Tab、Spc、Space$）的使用。

【实验内容】

1．设计一个计算学生成绩和的程序。

程序功能为：

用户在3个文本框中分别输入英语、计算机、数学成绩，单击命令按钮后，平均成绩输出到窗体上，运行界面如图9-5-1所示。

2．编写一个华氏与摄氏温度之间转换的程序，使用的转换公式是：

F=9/5*C+32。

其中F为华氏温度，C为摄氏温度。

程序运行界面如图9-5-2所示。

参考代码如下：

PrivateSubCommand1_Click（）

c=Val（InputBox（"请输入摄氏温度值：

","摄氏转华氏",0））

f=32+9*c/5

Label1.Caption="摄氏"&c&"度=华氏"&Format（f,"####.##"）&"度"

EndSub

PrivateSubCommand2_Click（）

f=Val（InputBox（"请输入华氏温度值：

","华氏转摄氏",0））

c=5*（f-32）/9

Label1.Caption="华氏"&f&"度=摄氏"&Format（c,"####.##"）&"度"

EndSub

3．已知圆半径为r，求圆面积、球表面积和球体积。

窗体运行界面如图9-5-3所示。

提示：

圆面积=π*r^2球表面积=4*π*r^2球体积=4/3*（π*r^3）

4．使用InputBox$（）函数输入a、b、c三个正整数，计算a、b、c的和d，并将字符串a、b、c连接为e的操作。

例如：

a=1，b=2，c=3时，则d=6，e=123。

【思考题】

1．赋值运算符“=”与逻辑运算符“=”的使用方法有何区别？

2．函数Tab、Spc、Space$在使用功能上的异同？

3．InputBox函数值的类型是什么？

实验六If分支结构

【预习内容】1．分支结构中If语句格式及使用方法。

【实验目的】

1．掌握分支语句（If…Then，If…Then…Else…Endif）的使用方法。

2．掌握多分支语句（If…Then…Elseif…Endif）的使用方法

3．掌握IIf（）函数的使用方法。

4．掌握条件语句的嵌套方法。

【实验内容】

1．分别用单行If语句、块If语句和IIf（）函数编写如下分段函数的程序：

1（x>0）

Y=0（x=0）

-1（x<0）

2．输入X、Y、Z三个数，然后进行大小比较（窗体运行界面如图9-6-1所示）。

参考代码如下：

PrivateSubCommand1_Click（）

DimX#,Y#,z#

X=InputBox（"请输入第一个数：

"）

Y=InputBox（"请输入第二个数：

"）

Z=InputBox（"请输入第三个数：

"）

X=VAL（X）:

Y=VAL（Y）:

Z=VAL（Z）

IfX

A=X:

X=Y:

Y=A

EndIf

IfX

A=X:

X=Z:

Z=A

EndIf

IfY

A=Y:

Y=Z:

Z=A

EndIf

PrintX,Y,Z

EndSub

3．某市公用电话收费标准如下：

通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元。

试计算某人在T时间通话S分钟，应缴多少电话费。

4．任意输入一个整数，判定该整数的奇偶性。

5．分别在文本框中输入数值a、b、c，求解一元二次方程aX2+bX+C=0的实根。

窗体运行界面如图9-6-2所示。

【思考题】

1．单行If语句、块If语句及IIf函数格式及其使用特点各是什么？

2．条件语句的嵌套注意事项？

实验七SelectCase分支结构

【预习内容】

1．分支结构中SelectCase语句格式及使用方法。

2．Choose（）函数格式及其使用方法。

【实验目的】

1．掌握情况分支语句（SelectCase）的使用方法。

2．掌握Choose（）函数使用方法

【实验内容】

1．编制程序，在文本框Text1中输入学生成绩（0至100），将百分制的学生成绩转换成5分制，并显示到窗体中。

2．从键盘输入数字1~7，分别用情况分支语句（SelectCase）和Choose（）函数编写程序，对输入的每个数字分别显示中文“星期X”（例如：

从键盘输入数字1，则显示“星期一”）。

3．使用随机函数Rnd（）产生整数1~5，通过单击命令按钮“开始”，然后在窗体中分别对应显示“哈尔滨”、“齐齐哈尔”、“牡丹江”、“佳木斯”、“大庆”5个字符串中的一个，窗体运行界面如图9-7-1所示（注：

数字2对应“齐齐哈尔”）。

参考代码如下：

PrivateSubCommand1_Click（）

Cls

Form1.Caption="黑龙江省城市"

Form1.FontSize=55

RandomizeTimer'产生不同随机数

x=Int（Rnd（）*5）+1

SelectCasex

Case1

Print"哈尔滨"

Case2

Print"齐齐哈尔"

Case3

图9-7-1运行界面

Print"牡丹江"

Case4

Print"佳木斯"

Case5

Print"大庆"

EndSelect

EndSub

4．从键盘上输入字母或数字0~9，编写程序对其进行分类并显示为：

“大写字母”、“小写字母”、“偶数”、“奇数”、“0”和“超范围”。

5．用SelectCase结构编程序，计算分段函数y（x）值。

分段函数定义如下：

【思考题】

1．SelectCase语句中的测试表达式常用类型的种类及使用特点？

2．SelectCase与If语句的区别是什么？

实验八For循环结构

【预习内容】

1．For…Next循环结构语句格式及使用功能。

【实验目的】

1．掌握For…Next语句的使用。

2．掌握For…Next语句中循环变量初值、终值及步长之间的关系应用方法。

【实验内容】

1．编一程序，显示出1000之内的水仙花数。

所谓水仙花数，是指一个三位数的各数码的立方和等于该数字本身。

例如，153是水仙花数，因为：

153=13+53+33。

2．计算N！

（N为自然数）。

3．求Fibonacci数列的前20项（Fibonacci数列的前几项为：

1，1，2，3，5，8…）。

提示：

Fibonacci数列的前n项:

n=（n-1）+（n-2）其中n>2

4．在窗体的Picture控件中，按每行10个数输出1～200之间能被7整除的数以及个数，并计算其余数之和。

窗体运行界面如图9-8-1所示。

参考代码如下：

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger,sAsInteger

j=0

Fori=1To200

IfiMod7=0Then

j=j+1

Picture1.Printi;

IfjMod10=0ThenPicture1.Print

Else

s=s+i

EndIf

Nexti

Picture1.Print

Picture1.Print"1至200之间一共有"&j&"个数可以被7整除的数"

Picture1.Print"1至200之间不能7整除数的和是：

";s

EndSub

5．显示100到0之间的所有5的倍数之数，要求每行输出5个数字。

四、【思考题】

1．循环语句For的应用特点是什么？

2．For语句的循环次数如何计算？

3．在For语句中，循环变量与循环变量初值、终值及步长之间的关系？

实验九条件循环结构

【预习内容】

1．Do…Loop条件循环结构语句格式及使用功能。

2．While…Wend条件循环结构语句格式及使用功能。

【实验目的】

1．掌握条件循环结构Do...Loop语句的应用方法。

2．掌握条件循环结构While…Wend语句的使用方法。

3．掌握如何控制循环条件，防止死循环或不循环。

【实验内容】

1．求Fibonacci数列的前20项（Fibonacci数列的前几项为：

1，1，2，3，5，8…）。

提示：

Fibonacci数列的前n项:

n=（n-1）+（n-2）其中n>2

2．求两个数的最大公约数，窗体运行界面如图9-9-1所示。

求最大公约数最常用的方法是辗转相除法。

其设计思路是：

（1）假设m大于n；

（2）用n作除数除m，得余数r。

（3）若r≠0，则令m←n，n←r，继续相除得到新的r值，直到r=0为止。

（4）最后的n即为最大公约数。

参考代码如下：

PrivateSubCommand1_Click（）

DimmAsLong,nAsLong,tempAsLong

If（Val（Text1.Text）=0OrVal（Text2.Text）=0）OrVal（Text1.Text）>2147483647Or_

Val（Text2.Text）>2147483647Then

MsgBox"输入的数0或溢出，请重新输入!

",vbInformation+vbOKOnly,"数据错误"

Text1.Text=""

Text2.Text=""

Text1.SetFocus

Else

m=Val（Text1.Text）

图9-9-1运行界面

n=Val（Text2.Text）

Ifm

temp=m:

m=n:

n=temp

EndIf

Do

r=mModn

m=n

n=r

LoopWhiler<>0

Label3.Caption=m

EndIf

EndSub

3．使用条件循环结构While…Wend计算如下表达式的值：

sinx≈x-

+

-

+

-……+（-1）

提示：

窗体设计状态和运行界面如图9-8-2和9-8-3所示，窗体运行时，在文本框中输入90，单击计算按钮后，标签Label2中值约等于1.00（即Sin90°=1），还可以检测X为0、45、180、270……时的值。

图9-9-3运行界面

图9-9-2设计界面

参考代码如下：

PrivateSubCommand1_Click（）

x=Val（Text1）*3.14/180

t=1:

n=1:

i=1:

sin1=0

Whilei<=10

n=n*i

t=t*x

IfiMod2<>0Then

sin1=sin1+t/n

t=t*（-1）

EndIf

i=i+1

Wend

Label2.Caption=sin1

EndSub

4．分别用条件循环结构DoWhile...Loop与DoUntil...Loop计算自然数1到100的和。

注：

分别用当型循环结构和直到型循环结构完成此题设计。

【思考题】

1．For循环结构与DoWhile…Loop循环结构的应用特点？

2．当型循环结构Do…LoopWhile语句与Do…LoopUntil语句的异同是什么？

3．如何控制程序的循环条件，防止死循环或不循环？

实验十循环嵌套结构

【预习内容】

1．预习分支结构与循环结构、循环嵌套的使用方法。

【实验目的】

1．掌握循环嵌套的使用方法。

2．熟悉分支结构与循环结构的综合运用。

【实验内容】

1．求从1000到1100之间的所有素数（窗体运行界面如图9-10-1所示）。

提示：

①将文本框Text1的MultiLine属性设置为True。

②将文本框Text1的ScrollBars属性设置2-Vertical。

参考代码如下：

PrivateSubCommand1_Click（）

a=""

Forn=1001To1100Step2

s=0

Fori=2ToInt（Sqr（n））

IfnModi=0Then

s=1

ExitFor

EndIf

Next

Ifs=0Thena=a&Str（n）&vbCrLf

Next

Text1.Text=a

EndSub

2．输出九九乘法表，窗体运行界面如图9-10-2、9-10-3、9-10-4所示。

图9-10-2参考代码如下：

PrivateSubCommand1_Click（）

Picture1.Cls

Fori=1To9

Forj=1To9

y=i&"×"&j&"="&i*j

Picture1.PrintTab（（j-1）*8+1）;y;

Nextj

Picture1.Print

Nexti

EndSub

图9-10-2运行界面

图9-10-3运行界面

图9-10-4运行界面

3．在窗体中打印出如图9-9-5所示图型。

图9-10-5运行界面

4．在窗体中打印出如图9-10-6所示图型。

参考代码如下：

Pri