大一vb的实验报告

篇一: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属性,定时器就能自动启动?

原创文章,作者:fanwen,如若转载,请注明出处:https://fanwen.hongwu.com/27629.html

(0)
上一篇 2022年8月15日 下午5:56
下一篇 2022年8月15日 下午5:59

相关推荐

  • 生产运作管理实验报告范文

      篇一:生产与运作管理实训报告   前言:   教学实习促进人才计划的完善和课程的设置的调整,教学实习促进了学生自身的发展,实习活动使学生初步接触社会,培养他们的环境适应能力及发…

    实验报告 2022年9月18日
  • 生理解剖实验的实验报告

     生理解剖实验实验报告   实验目的   麻醉小白鼠   实验方法以及操作   1.小白鼠取拿方法 提尾   2.麻醉剂 1%戊巴比妥那 (0.5ml/100g体重+0….

    实验报告 2022年10月20日
  • 照明灯安装实验报告范文

      为了认真学习实践科学发展观,积极推进节能生产,有效控制生产成本,努力提高经济效益,经采油厂生产运行科安排,在采油大队开展陕西省中生科技有限公司节能照明灯实际节能实验,现将安装实…

    实验报告 2022年9月1日
  • 平放式直流电铃的物理实验报告

      【制作方法】   1.电磁铁:用两个木线轴作绕线架,在一个木线轴上以直径0.35毫米的漆包线顺次绕三层,再在另一个木线轴上同样绕三层。取一根铁棒弯成“U”形,插入两个木线轴的圆…

    实验报告 2023年1月14日
  • 微生物学实验报告格式

      专业学号   姓名   实验一、···培养基的配制和高压蒸汽灭菌   一、 实验目的   二、 实验原理   三、 实验材料(实际用到哪些试剂、材料、玻璃器皿等都要写出,包括数…

    实验报告 2022年8月5日
  • 初中化学实验报告总单

      1.常用仪器的名称、形状和主要用途。   2.化学实验的基本操作   (1)药品的取用和称量   (2)给物质加热   (3)溶解、过滤、蒸发等基本操作   (4)仪器连接及装…

    实验报告 2022年8月23日
  • 最新大学物理实验课程设计实验报告

      大学物理实验(设计性实验)   实验报告   指导老师:王建明   姓 名:张国生   学 号:XX0233   学 院:信息与计算科学学院   班 级:05信计2班   重力…

    实验报告 2022年9月19日
  • 考研初复试高分规律实验报告书

      一、实验目的:   如今关于考研的话题还在继续,考研如何顺利通过复试?考研er面对众多选择和重重困难又何去何从呢?我们针对这些问题进行了调查。   二、实验原理:人生在世,俯仰…

    实验报告 2022年7月9日
  • 口腔检查实验报告范文

      篇一:口腔检查实验报告   [目的要求]   初步掌握口腔、颌面部、颈部、颞下颌关节及涎腺的检查方法和正确的描述方法,初步掌握病史书写基本格式。   [实验内容]   1. 口…

    实验报告 2022年7月13日
  • 高一化学的实验报告范文

      实验1   用玻璃杯取高度为h1的常温自来水,然后放在盛有水的平底锅内加热,使杯内水温升高并达到沸点,待冷却至常温后,加入适量生石灰,蒸馏水变成由大量白色颗粒组成的混浊液体,此…

    实验报告 2022年7月7日

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注