篇一：VB实验报告
太原理工大学现代科技学院
本科实验报告
课程名称： 人机界面程序设计基础
实验项目：二、 结构程序设计
实验地点： 多学科综合楼
专业班级： 自动化 学号：
学生姓名：
指导教师：
2014 年 11月29日
一、实验目的和要求
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时的结果，由此可见，此计算公式收敛如何？
②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型 或实数型。 2
三、主要仪器设备
计算机
四、实验结果与分析
实验界面：
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程序设计实验指导书
东北大学软件学院 2011年10月
目 录
实验1 VB.NET控件综合运用 ................................................................................. 1
一、目的与任务.............................................................................................. 1 二、考核方法及标准.................................................................................... 1 三、实验内容................................................................................................ 1 四、思考题.................................................................................................... 3
实验2 VB.NET文件操作 ............................................................................................ 4
一、目的与任务............................................................................................ 4 二、考核方法及标准.................................................................................... 4 三、实验内容................................................................................................ 4 四、思考题.................................................................................................... 5
附录：实验报告模板（一）........................................................................................ 6 附录：实验报告模板（二）........................................................................................ 7
实验1 VB.NET控件综合运用
一、目的与任务
本实验主要练习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
（1）基本要求：每次在列表框中点击相应的商品时，会显示商品的名称、数量、单价折扣，并把用户所采购的所有商品在文本框内进行汇总，当输入实付款后单击“收款”按钮后计算应找的零钱。
（2）进一步要求：添加菜单，使得对于特价商品的种类、品牌商品、价格和折扣进行编辑。
（3）创新提示：无。要求自行寻找可改进的地方和创新点。
四、思考题
1、什么情况下应该使用Label控件？
2、VB.NET中菜单控件有哪几种类型？是否可以为命令按钮添加上下文菜单？ 3、OpenFileDialog控件和SaveFileDialog控件能否自己打开并读写文件的内容？
4、定时器控件的Interval属性是以什么为单位的？是否只要设定了Interval属性，定时器就能自动启动？
3
篇三：VB 郭贤海 实验报告及答案
实验1.1 设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
图1-1 程序运行初始界面
图1-2 单击“显示”按钮后的程序界面
实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求：
（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；
（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；
（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。
图1-3 第1题的程序运行初始界面
图1-4 单击“改变文字”按钮后的程序界面
图1-5 单击“隐藏”按钮后的程序界面
四、实验原始记录
实验1.1
程序的界面设计。（可以是多张主要的图。下面的图要替换成你们自己设计的图。如何取图？设计好界面，按“Print Screen SysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“Ctrl + C”键，然后选中下面的实验样例图，按“Ctrl + V”键，替换掉）
程序代码。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub
Private Sub Command2_Click() Text1.Text = "" End Sub
Private Sub Command3_Click() End End Sub
实验1.2
程序的界面设计。（可以是多张主要的图。下面的图要替换成你们自己设计的图）
程序代码。
Private Sub Command1_Click() Label1.Visible = True
Command2.Enabled = True Command1.Enabled = False End Sub
Private Sub Command2_Click() Label1.Visible = False Command2.Enabled = False Command1.Enabled = True End Sub
Private Sub Command3_Click()
Label1.Caption = "你好，张三！" Command3.Enabled = False End Sub
五、实验结果及分析
实验1.1运行结果。（可以是多张主要的图。输入数据，显示结果。下面的图要替换成你们自己的图。如何取图？运行程序，按“Alt + Print Screen SysRq”键，选中下面这张图，按“Ctrl + V”键，替换掉）
实验1.2运行结果。（可以是多张主要的图。输入数据，显示结果。下面的图要替换成你们自己的图）
实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。
图2-1 程序运行时的界面
实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。
图2-2 程序运行时的界面
实验2.3 设计一个程序，实现简单计算的功能，运行界面如图2-3所示。
免费论文网友情提示：本网站所有内容为共享上传提供，不涉及任何商业利益，本站对此不承担任何保证责任！
Copyright © www.csmayi.cn Corporation, All Rights Reserved 共享时代 共享你我他 版权所有