丁衍珍Visual Basic实验报告3Word文档格式.docx
《丁衍珍Visual Basic实验报告3Word文档格式.docx》由会员分享，可在线阅读，更多相关《丁衍珍Visual Basic实验报告3Word文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
实验报告填写说明
１、填写一律用钢笔或圆珠笔填写或打印，要求字迹工整，条理清晰。
２、“实验题目”可以填写章节名称或用文字表述。
３、“实验目的”要逐条列出，“实验内容”以简练的文字进行概括。
４、“附注”处填写实验注意事项或调试过程，以及实验中出现的异常情况和解决方法。
５、“教师批阅”处由课任老师填写评语，给出实验成绩，并作为平时成绩，参与期末成绩总评。
2011年10月16日
实验项目：
实验三顺序结构程序设计
实验目的：
1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握赋值语句和常用函数的正确使用方法。
3．掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法
实验仪器：
计算机一台（CPU：
AMDP320主频：
2.10GHz内存：
2.00GB软件：
VB6.0操作系统：
windowsXP专业版软件：
VB6.0）
实验步骤（或程序清单：
）
第1小题：
假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+b>
candd*a=e的值，将结果打印在窗体上。
程序设计代码如下：
PrivateSubForm_Click（）
a=2
b=5
c=4
d=3
e=6
Print"
结果为：
"
Printa+b>
cAndd*a=e
Print
EndSub
截图如下：
运行结果截图如下：
第2小题：
编写程序，界面如下图所示。
使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签1上，再求出该数的正弦值，将结果写在标签2上。
（提示:
为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化）。
界面设计截图如
下
代码设计如下：
PrivateSubCommand1_Click（）
Randomize
Label1.Caption=60+Int（（90-60+1）*Rnd）
Label2.Caption=Sin（Label1.Caption）
代码截图如下：
第3小题：
编写计算圆面积和球体积的程序，程序运行界面如下图所示。
要求输出结果只保留四位小数；
如果半径的输入不合法，例如含有非数值字符，应该用MsgBox报告输入错误。
判断输入值是否为数值类型可用函数IsNumber（））
界面设置截图如下
DimaAsInteger
a=Text1.Text
Ifa<
=0Then
r=MsgBox（"
错误!
48,"
错误提示"
Printr
Else
Label1.Caption=Format（3.1415926*a*a,"
0.0000"
Label2.Caption=Format（（4*3.1415926*a*a*a）/3,"
EndIf
代码设计截图如下：
运行结果截图
1：
2：
3：
第4小题:
小王有存款A元（用textbox输入），年利率P（用textbox输入），存储时间为T年（用INPUTBOX函数输入）。
试编程求本利合计最后的总金额S=A*（1+P）^T）。
界面设置截图如下：
DimtAsInteger
您的本利合计为：
PrintVal（（Val（Text1.Text）*Val（（1+Text2.Text））^t））
PrivateSubForm_load（）
t=Val（InputBox（"
请输入存储时间：
"
时间"
））
运行结果运行如下：
第5小题：
Print方法练习：
编写打印下面图案的程序。
提示：
1、若用户在Form_load（）事件中编写显示图形的过程，必须将form窗体的Autoredraw属性修改为True，否则没有办法显示。
2、★只需要切换到中文输入状态，然后鼠标指向软键盘按右键选择“特殊字符”，就可以输入★，Tab（n）的功能是在指定的位置显示输出信息。
Spc（n）的功能是在Print的输出中跳过N个空格。
界面设计截图如下
Cls
PrivateSubForm_click（）
PrintTab（8）;
"
★"
PrintTab（7）;
★★"
PrintTab（6）;
★★★"
PrintTab（5）;
★★★"
PrintTab（4）;
PrintTab（3）;
PrintTab
（2）;
_____________________________________"
;
Space
（1）;
PrintTab
（1）;
代码截图如下
附注
附注（续）
实验结果分析：
注意实验要求，按实验要求正确设计窗口，注意书写代码的格式，以及输入正确的代码。
教师批阅：
升级会员 