丁衍珍Visual Basic实验报告3Word文档格式.docx
《丁衍珍Visual Basic实验报告3Word文档格式.docx》由会员分享,可在线阅读,更多相关《丁衍珍Visual Basic实验报告3Word文档格式.docx(15页珍藏版)》请在冰豆网上搜索。
![丁衍珍Visual Basic实验报告3Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-12/12/f091261a-e596-4cc6-b915-ff07c9e15db9/f091261a-e596-4cc6-b915-ff07c9e15db91.gif)
实验报告填写说明
1、填写一律用钢笔或圆珠笔填写或打印,要求字迹工整,条理清晰。
2、“实验题目”可以填写章节名称或用文字表述。
3、“实验目的”要逐条列出,“实验内容”以简练的文字进行概括。
4、“附注”处填写实验注意事项或调试过程,以及实验中出现的异常情况和解决方法。
5、“教师批阅”处由课任老师填写评语,给出实验成绩,并作为平时成绩,参与期末成绩总评。
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);
代码截图如下
附注
附注(续)
实验结果分析:
注意实验要求,按实验要求正确设计窗口,注意书写代码的格式,以及输入正确的代码。
教师批阅: