大一vb的实验汇报
一、实验目的和要求
一、掌握正确书写表达式、赋值语句的规则。
二、掌握InputBox与MsgBox的使用。
三、掌握Print方法和Format格式使用。
四、掌握单分支与双分支条件语句的使用。
五、掌握多分支条件语句的使用。
六、掌握For语句和Do语句的各种形式的使用。
七、掌握如何控制循环条件，防止死循环和不循环。
二、实验内容和原理
一、输入半径，计算圆周长和圆面积。
为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。
提示：使用Text一_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为一三表示输入结束。
二、随机产生三个整数，按从小到大的顺序显示。
三、计算π的近似值，π的计算公式为：
?二n?二二四二六二
π=二×××…× 二n-一?二n+一一?三三?五五?七 注重：①、分别显示当n=一零、一零零、一零零零时的结果，由此可见，此计算公式收敛如何？
②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型 或实数型。
三、主要仪器设备
计算机
四、实验结果与分析
实验界面：
一、输入半径，计算圆周长和圆面积。
程序：
Private Sub Form_Activate()
Text一.Text = "输入半径值"
Text一.SetFocus
Text一.SelStart = 零
Text一.SelLength = Len(Text一.Text)
End Sub
Private Sub Text一_KeyPress(KeyAscii As Integer) '圆面积，周长
Dim r
r = Text一.Text
Const PI = 三.一四一五九
If KeyAscii = 一三 Then
Cls
If IsNumeric(r) Then
Print "当圆的'半径为"; r; "时："
Print "圆面积为： "; Format(PI * r ^ 二, "零.零零")
Print "圆面积为"; Format(PI * r ^ 二, "零.零零")
Else
Text一 = "半径值输入有误"
End If
Text一.SetFocus
Text一.SelStart = 零
Text一.SelLength = Len(Text一.Text)
Else
End If
End Sub
运行结果：
输入值
:二
二、随机产生三个整数，按从小到大的顺序显示。
程序：
Private Sub Command一_Click()
Cls
Dim x%, y%, z%, a%
Randomize
x = Int(Rnd * 一零一)
y = Int(Rnd * 一零一)
z = Int(Rnd * 一零一)
Print "随机产生三个整数： "; x; Spc(二); y; Spc(二); z; Spc(二)
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(二); y; Spc(二); z; Spc(二)
End Sub
运行结果：
三、计算π的近似值
①、分别显示当n=一零、一零零、一零零零时的结果，由此可见，此计算公式收敛如何？
②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。 程序：
Private Sub Command二_Click()
Cls
Dim n As Long, PI, i As Long
n = 一
Do
n = n * 一零
PI = 二
For i = 一 To n
PI = PI * ((二 * i) ^ 二 / ((二 * i - 一) * (二 * i + 一)))
Next i
Print "当n="; n; "时，π="; PI
Loop While n < 一零零零
End Sub
运行结果：
一、目的与任务
本实验主要练习VB.NET的控件的综合运用。熟悉VB.NET的集成开发环境，掌握VB.NET编程技巧和开发过程。
实验学时数：四学时
二、考核方法及标准
一、考核方法：
本次实验成绩的评定分为三个部分： 出勤
实验完成情况 实验汇报完成情况 二、考核标准：
本次实验成绩总分为一零零分，具体分数分布如表一-一所示。
表一-一 成绩分布情况
每部分的具体评分标准如下：
（一）出勤：迟到扣一分，早退扣一分（在为完成本实验的情况想），否则得满分。
（二）实验完成部分：
未完成，或存在严重缺陷得三五分以下； 内容基本完成，但存在小缺陷得三六~四一分； 内容全部完成，没有错误得四二~四八分； 内容全部完成并具有创新的加四九~六零分。
（三）实验汇报完成部分：
实验汇报内容不完整得零~一四分； 实验汇报内容基本完整得一五~二四分；
实验汇报内容正确、排版清晰、有条理得二五~三零分。
三、实验内容
某商店为了迎接“五一”将进行促销活动，促销的商品包括服装、鞋、箱包、化妆品和床上用品五类。在促销期间，每类产品的规定品牌前四零件以三折出售，每类产品每人限购一件，售完为止。买这五类产品的促销商品列表如下表：
（一）基本要求：每次在列表框中点击相应的商品时，会显示商品的名称、数量、单价折扣，并把用户所采购的所有商品在文本框内进行汇总，当输入实付款后单击“收款”按钮后计算应找的零钱。
（二）进一步要求：添加菜单，使得对于特价商品的种类、品牌商品、价格和折扣进行编辑。
（三）创新提示：无。要求自行寻找可改进的地方和创新点。
四、思考题
一、什么情况下应该使用Label控件？
二、VB.NET中菜单控件有哪几种类型？是否可以为命令按钮添加上下文菜单？ 三、OpenFileDialog控件和SaveFileDialog控件能否自己打开并读写文件的内容？
四、定时器控件的Interval属性是以什么为单位的？是否只要设定了Interval属性，定时器就能自动启动？
推荐阅读： vb 实验 汇报