丁衍珍Visual Basic实验报告3.docx
《丁衍珍Visual Basic实验报告3.docx》由会员分享，可在线阅读，更多相关《丁衍珍Visual Basic实验报告3.docx（15页珍藏版）》请在冰豆网上搜索。
丁衍珍VisualBasic实验报告3
琼州学院
课程实验报告
（2011~2012年度第1学期）
专业 计算机网络
课程 VB程序设计
班级 10网络技术班
姓名 丁衍珍
学号 10139010
教师 陈作聪
琼州学院电子信息工程学院制
实验报告填写说明
１、填写一律用钢笔或圆珠笔填写或打印，要求字迹工整，条理清晰。
２、“实验题目”可以填写章节名称或用文字表述。
３、“实验目的”要逐条列出，“实验内容”以简练的文字进行概括。
４、“附注”处填写实验注意事项或调试过程，以及实验中出现的异常情况和解决方法。
５、“教师批阅”处由课任老师填写评语，给出实验成绩，并作为平时成绩，参与期末成绩总评。
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）
EndSub
代码截图如下：
运行结果截图如下：
第3小题：
编写计算圆面积和球体积的程序，程序运行界面如下图所示。
要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数值字符，应该用MsgBox报告输入错误。
（提示:
判断输入值是否为数值类型可用函数IsNumber（））
界面设置截图如下
代码设计如下：
PrivateSubCommand1_Click（）
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,"0.0000"）
EndIf
EndSub
代码设计截图如下：
运行结果截图
1：
2：
3：
第4小题:
小王有存款A元（用textbox输入），年利率P（用textbox输入），存储时间为T年（用INPUTBOX函数输入）。
试编程求本利合计最后的总金额S=A*（1+P）^T）。
界面设置截图如下：
代码设计如下：
DimtAsInteger
PrivateSubCommand1_Click（）
Print"您的本利合计为：
"
Print
PrintVal（（Val（Text1.Text）*Val（（1+Text2.Text））^t））
Print
EndSub
PrivateSubForm_load（）
t=Val（InputBox（"请输入存储时间：
","时间"））
EndSub
代码设计截图如下：
运行结果运行如下：
第5小题：
Print方法练习：
编写打印下面图案的程序。
提示：
1、若用户在Form_load（）事件中编写显示图形的过程，必须将form窗体的Autoredraw属性修改为True，否则没有办法显示。
2、★只需要切换到中文输入状态，然后鼠标指向软键盘按右键选择“特殊字符”，就可以输入★，Tab（n）的功能是在指定的位置显示输出信息。
Spc（n）的功能是在Print的输出中跳过N个空格。
界面设计截图如下
代码设计如下：
PrivateSubCommand1_Click（）
Cls
EndSub
PrivateSubForm_click（）
PrintTab（8）;"★"
PrintTab（7）;"★★"
PrintTab（6）;"★★★"
PrintTab（5）;"★★★"
PrintTab（4）;"★★★"
PrintTab（3）;"★★★"
PrintTab
（2）;"★★★"
Print
Print"_____________________________________"
Print
PrintTab（8）;"★"
PrintTab（7）;"★★"
PrintTab（6）;"★★★"
PrintTab（5）;"★";Space
（1）;"★";Space
（1）;"★"
PrintTab（4）;"★★★"
PrintTab（3）;"★★★"
PrintTab
（2）;"★★★"
PrintTab
（1）;"★★★"
PrintTab
（1）;"★★★"
PrintTab
（2）;"★★★"
PrintTab（3）;"★★★"
PrintTab（4）;"★★★"
PrintTab（5）;"★★★"
PrintTab（6）;"★★★"
PrintTab（8）;"★"
Print
Print
Print
EndSub
代码截图如下
运行结果截图如下：
附注
附注（续）
附注（续）
附注（续）
附注（续）
附注（续）
附注（续）
实验结果分析：
注意实验要求，按实验要求正确设计窗口，注意书写代码的格式，以及输入正确的代码。
教师批阅：
升级会员 