第9章 实验文档格式.docx
《第9章 实验文档格式.docx》由会员分享，可在线阅读，更多相关《第9章 实验文档格式.docx（58页珍藏版）》请在冰豆网上搜索。
Command1
结束
Command2
移动
Label1
VisualBasic
（3）参考代码如下：
PrivateSubCommand1_Click（）
End
EndSub
PrivateSubCommand2_Click（）
Label1.Left=Label1.Left+20
Label1.Top=Label1.Top+20
Print"
VisualBasic"
'
Print语句为打印方法
（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$（"
）
（７）Left$（"
ABCDEFGH"
3），Right$（"
3），Mid（"
3,3），String（"
3）
（８）Ltrim（"
VisualBasic的标准函数"
Rtrim（"
VisualBasic的标准函数"
Trim（"
（９）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<
c<
=100的关系表达式。
（８）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对象属性设置
对象名
属性名
属性值
设置对象属性
请输入密码
BorderStyle
FixedSingle
Text1
Text
空白
Multiline
True
PasswordChar
*
确定
3．利用标签和命令按钮设计一个简单的应用程序。
要求：
单击“确定”按钮时，显示“欢迎使用本系统！
”；
单击“退出”按钮时，显示“谢谢使用本系统！
”。
运行界面如图9-3-1所示。
图9-3-1运行界面
提示：
（1）在“确定”按钮的Click事件中编写程序代码如下：
Label1.Caption="
欢迎登录本系统！
"
Label1.FontSize=20
（2）在“退出”按钮的Click事件中编写程序代码如下：
谢谢使用本系统！
【实验问题】
1．Name属性与Caption属性有什么区别？
2．标签与文本框有什么区别？
实验四窗体基本控件
（二）
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
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所示。
c=Val（InputBox（"
请输入摄氏温度值：
"
摄氏转华氏"
0））
f=32+9*c/5
Label1.Caption="
摄氏"
&
c&
"
度=华氏"
Format（f,"
####.##"
）&
度"
f=Val（InputBox（"
请输入华氏温度值：
华氏转摄氏"
c=5*（f-32）/9
华氏"
f&
度=摄氏"
Format（c,"
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<
2．输入X、Y、Z三个数，然后进行大小比较（窗体运行界面如图9-6-1所示）。
DimX#,Y#,z#
X=InputBox（"
请输入第一个数：
Y=InputBox（"
请输入第二个数：
Z=InputBox（"
请输入第三个数：
X=VAL（X）:
Y=VAL（Y）:
Z=VAL（Z）
IfX<
YThen
A=X:
X=Y:
Y=A
EndIf
zThen
A=X:
X=Z:
Z=A
IfY<
ZThen
A=Y:
Y=Z:
Z=A
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对应“齐齐哈尔”）。
Cls
Form1.Caption="
黑龙江省城市"
Form1.FontSize=55
RandomizeTimer'
产生不同随机数
x=Int（Rnd（）*5）+1
SelectCasex
Case1
Print"
哈尔滨"
Case2
齐齐哈尔"
Case3
图9-7-1运行界面
牡丹江"
Case4
佳木斯"
Case5
大庆"
EndSelect
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所示。
DimiAsInteger,jAsInteger,sAsInteger
j=0
Fori=1To200
IfiMod7=0Then
j=j+1
Picture1.Printi;
IfjMod10=0ThenPicture1.Print
Else
s=s+i
Nexti
Picture1.Print
Picture1.Print"
1至200之间一共有"
j&
个数可以被7整除的数"
1至200之间不能7整除数的和是：
;
s
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数列的前几项为：
2．求两个数的最大公约数，窗体运行界面如图9-9-1所示。
求最大公约数最常用的方法是辗转相除法。
其设计思路是：
（1）假设m大于n；
（2）用n作除数除m，得余数r。
（3）若r≠0，则令m←n，n←r，继续相除得到新的r值，直到r=0为止。
（4）最后的n即为最大公约数。
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<
nThen
temp=m:
m=n:
n=temp
Do
r=mModn
m=n
n=r
LoopWhiler<
>
0
Label3.Caption=m
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设计界面
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
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。
a="
Forn=1001To1100Step2
s=0
Fori=2ToInt（Sqr（n））
IfnModi=0Then
s=1
ExitFor
Next
Ifs=0Thena=a&
Str（n）&
vbCrLf
Text1.Text=a
2．输出九九乘法表，窗体运行界面如图9-10-2、9-10-3、9-10-4所示。
图9-10-2参考代码如下：
Picture1.Cls
Fori=1To9
Forj=1To9
y=i&
×
="
i*j
Picture1.PrintTab（（j-1）*8+1）;
y;
Nextj
Picture1.Print
图9-10-2运行界面
图9-10-3运行界面
图9-10-4运行界面
3．在窗体中打印出如图9-9-5所示图型。
图9-10-5运行界面
4．在窗体中打印出如图9-10-6所示图型。
Pri
升级会员 