大一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

相关推荐

  • 电焊焊接实验报告

      篇一:电焊实验报告   实习目的:   1、简单了解焊工的工作原理及其工作方式;   2、学会正确的焊接,并能正确使用一种焊接工件方式。   原理:   1、简介:焊接,就是用…

    实验报告 2022年11月8日
  • 新人教版九年级物理实验报告册

      一、 比较不同物质吸热的情况   时间:年月日   探究预备:   1. 不一样, 质量大的水时间长   2. 不相同, 物质种类不同   探究目的:探究不同物质吸热能力的不同…

    实验报告 2022年7月16日
  • 科学自主探索实验报告:“给枯叶刷牙”

      编者按:《给枯叶刷牙》一文是一份完整的实验报告,下面我们来看看小作者有什么实验成果吧!   时间:20xx年1月7日   科学自主探索实验   我提出的问题一:能给枯叶&ldq…

    实验报告 2022年8月23日
  • 物理演示实验报告范本

      偏振光通过某种物质之后,其振动面将以光的传播方向为轴线转过一定的角度,叫做旋光现象。很多物质都可以产生旋光现象。   实验表明:   (1)旋光度与偏振光通过的旋光物质的厚度成…

    实验报告 2022年9月2日
  • opnet实验报告范例

      OPNet仿真实验报告   第一章 实验任务   1.1 实验一   – 设置一个仿真场景,假设PC有N台,服务器有M台,交换机和路由器根据N值进行配置   – 当N=30,6…

    实验报告 2022年11月15日
  • 休息与成功的实验报告

      实验名称:关于休息对成功影响的化学实验   实验目的:   在生活中,成功的因素有很多,例如勤奋、天资、机遇、创新等等,其中最基本的是天资与勤奋。也许你曾品尝过通过勤奋获取成功…

    实验报告 2022年11月7日
  • 女西装的实验报告

      一、款式图   二、成品规格 单位:cm   三、裁剪要点:   1、制作前准备:面料,里料分别用水浸泡(缩水处理),晾干,整烫。   2、排料前:点清样板块数,区分面料,里料…

    实验报告 2023年1月13日
  • 家兔血压调节实验报告范文

      (一)实验项目:家兔动脉血压调节   (二)实验目的:   1、掌握神经体液因素及受体阻断或兴奋药物对家兔心血管活动的影响机制。   2、掌握动脉血压作为心血管功能活动的综合指…

    实验报告 2022年7月16日
  • 摩擦力大小和什么因素有关的实验报告

      一、问题的提出   关闭发动机的列车会停下来,自由摆动的秋千会停下来,踢出去的足球会停下来,运动的物体之所以会停下来,是因为受到了摩擦力。   物理学告诉我们:   运动物体产…

    实验报告 2022年10月17日
  • 关于《人体组织解剖学》课程实验报告的格式

      实验报告本封面课程名称:《人体组织解剖学》。   每次实验报告的格式:   实验题目:实验二 骨骼和骨骼肌的大体解剖结构观察。   实验日期:201X年3月12日。   一、实…

    实验报告 2022年8月18日

发表回复

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