注册
登录
当前位置:范文120>范文大全 > 辞职报告 > 大一vb实验报告(17篇)【完整版】

大一vb实验报告(17篇)【完整版】

时间:2023-04-27 02:11:48 辞职报告 来源:网友投稿

下面是小编为大家整理的大一vb实验报告(17篇)【完整版】,供大家参考。

大一vb实验报告(17篇)【完整版】

大一vb的实验报告(精选17篇)

大一vb的实验报告 篇1

  一、实验目的和要求

  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)

全文已隐藏

(想阅读全部图文内容,您需要先登陆!)

推荐访问:实验 报告 vb 大一vb实验报告(17篇) 大一vb的实验报告(精选17篇) 大一vb实验报告答案

版权所有:范文120 2010-2024 未经授权禁止复制或建立镜像[范文120]所有资源完全免费共享

Powered by 范文120 © All Rights Reserved.。备案号:湘ICP备2023005589号-2