大一vb的实验报告
时间:2021-12-19 13:39:24 admin
篇一:VB实验报告
一、实验目的和要求
1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件,防止死循环和不循环。
二、实验内容和原理
1、输入半径,计算圆周长和圆面积。
为了保证程序运行的正确,对输入半径要进行合法性检查,数据检查调用IsNumeric函数;若有错,利用MsgBox显示错误信息,通过SetFocus方法定位于出错的文本框处,重新输入;计算结果保留两位小数。
提示:使用Text1_KeyPress事件,按Enter键,返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数,按从小到大的顺序显示。
3、计算π的近似值,π的计算公式为:
?2n?224262
π=2…× 2n-1?2n+11?33?55?7 注意:①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何?
②、要防止大数相乘时结果溢出的问题,将变量类型改为长整型 或实数型。
三、主要仪器设备
计算机
四、实验结果与分析
实验界面:
1、输入半径,计算圆周长和圆面积。
程序:
Private Sub Form_Activate
Text1.Text = "输入半径值"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '圆面积,周长
Dim r
r = Text1.Text
Const PI = 3.14159
If KeyAscii = 13 Then
Cls
If IsNumeric(r) Then
Print "当圆的半径为"; r; "时:"
Print "圆面积为: "; Format(PI * r ^ 2, "0.00")
Print "圆面积为"; Format(PI * r ^ 2, "0.00")
Else
Text1 = "半径值输入有误"
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
End If
End Sub
运行结果:
输入值
:2
2、随机产生三个整数,按从小到大的顺序显示。
程序:
Private Sub Command1_Click
Cls
Dim x%, y%, z%, a%
Randomize
x = Int(Rnd * 101)
y = Int(Rnd * 101)
z = Int(Rnd * 101)
Print "随机产生三个整数: "; x; Spc(2); y; Spc(2); z; Spc(2)
If x > y Then
a = x: x = y: y = a
End If
If y > z Then
a = y: y = z: z = a
If x > y Then
a = x: x = y: y = a
End If
End If
Print "从小到大排序: "; x; Spc(2); y; Spc(2); z; Spc(2)
End Sub
运行结果:
3、计算π的近似值
①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何?
②、要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型。 程序:
Private Sub Command2_Click
Cls
Dim n As Long, PI, i As Long
n = 1
Do
n = n * 10
PI = 2
For i = 1 To n
PI = PI * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))
Next i
Print "当n="; n; "时,π="; PI
Loop While n < 1000
End Sub
运行结果:
篇二:vb实验报告
一、目的与任务
本实验主要练习VB.NET的控件的综合运用。熟悉VB.NET的集成开发环境,掌握VB.NET编程技巧和开发过程。
实验学时数:4学时
二、考核方法及标准
1、考核方法:
本次实验成绩的评定分为三个部分: 出勤
实验完成情况 实验报告完成情况 2、考核标准:
本次实验成绩总分为100分,具体分数分布如表1-1所示。
表1-1 成绩分布情况
每部分的具体评分标准如下:
(1)出勤:迟到扣1分,早退扣1分(在为完成本实验的情况想),否则得满分。
(2)实验完成部分:
未完成,或存在严重缺陷得35分以下; 内容基本完成,但存在小缺陷得36~41分; 内容全部完成,没有错误得42~48分; 内容全部完成并具有创新的加49~60分。
(3)实验报告完成部分:
实验报告内容不完整得0~14分; 实验报告内容基本完整得15~24分;
实验报告内容正确、排版清晰、有条理得25~30分。
三、实验内容
某商店为了迎接“五一”将进行促销活动,促销的商品包括服装、鞋、箱包、化妆品和床上用品五类。在促销期间,每类产品的规定品牌前40件以3折出售,每类产品每人限购1件,售完为止。买这五类产品的促销商品列表如下表:
(1)基本要求:每次在列表框中点击相应的商品时,会显示商品的名称、数量、单价折扣,并把用户所采购的所有商品在文本框内进行汇总,当输入实付款后单击“收款”按钮后计算应找的零钱。
(2)进一步要求:添加菜单,使得对于特价商品的种类、品牌商品、价格和折扣进行编辑。
(3)创新提示:无。要求自行寻找可改进的地方和创新点。
四、思考题
1、什么情况下应该使用Label控件?
2、VB.NET中菜单控件有哪几种类型?是否可以为命令按钮添加上下文菜单? 3、OpenFileDialog控件和SaveFileDialog控件能否自己打开并读写文件的内容?
4、定时器控件的Interval属性是以什么为单位的?是否只要设定了Interval属性,定时器就能自动启动?
结尾:非常感谢大家阅读《大一vb的实验报告》,更多精彩内容等着大家,欢迎持续关注学习大全网「Xuexidaquan.Com」,一起成长!
大一vb的实验报告相关文章:
★ 羊解剖实验报告
★ 小学科学实验报告
★ 实验报告
【实验报告】推荐文章
1 平放式直流电铃的物理实验报告
2 工业酒精的蒸馏实验报告范文
3 《示波器的的原理和使用》物理实验报告
4 高中化学固态究竟的制取和碘水中碘的萃取实验
5 大物实验报告
6 霉菌实验报告范文
7 关于网络商务信息检索与利用的实验报告范文
8 化学实验报告范例
9 化工原理干燥实验报告
10 板桥镇中心小学科学实验报告
11 大学普通物理实验报告模板
12 兔子心脏采血的实验报告范文
【实验报告】图文精华
-
平面设计实验报告3000字
摘要:实践是检验真理的标准,作为一名即将毕业的学生,在经历了大学三年的理论学习之后,必须接受一段时期的实践。因...
-
销售管理的综合模拟实验报告
实验剧本: 张老板如何与ka打交道实验周期: 4 季度 实验时间:第11周至 第13周 小组名称: 第六小组 练习: 004 小组成员、...
-
高一化学的实验报告范文
实验1 用玻璃杯取高度为h1的常温自来水,然后放在盛有水的平底锅内加热,使杯内水温升高并达到沸点,待冷却至常温后,...
-
水污染综合实验报告
一、实验目的与要求 1. 掌握测试不同废水的色度、浊度、COD、电导、pH等水质指标的分析方法。 2. 增强对污染物综合分析...
-
化工原理干燥实验报告
一、摘要 本实验在了解沸腾流化床干燥器的基本流程及操作方法的基础上,通过沸腾流化床干燥器的实验装置测定干燥速率...
-
初中物理用铅笔做实验报告范文
惯性实验 只用铅笔即可,将铅笔扔出,铅笔离开手之后仍向前运动,说明物体具有惯性。 力可以改变物体的运动状态 只用铅...
-
提高学生英语言语技能的实验报告
一、课题研究的背景和目标 1、问题的提出现在中学英语教学最大的弊病就是学生缺少言语技能。为了改善学生的交际能力,...
-
VFP实验报告
VFP实验报告 学院: 专业: 年级: 姓名: 学号: 实验室号: 计算机号: 实验日期: 年 月 日 指导教师签字: 成绩: 实验...
- 上一篇:精馏实验报告
- 下一篇:大学物理《弦振动》实验报告