VB程序设计A实验报告(含答案).doc
文本预览下载声明
《Visual Basic程序设计A》
实 验 指 导 书
院 （部）：
专 业：
班 级：
姓 名：
学 号：
实验一 Visual Basic简单的程序设计（6学时）
实验目的：
1、熟悉Visual Basic 6.0的集成环境及其基本操作。
2、掌握窗体、命令按钮、标签和文体框等基本控件的使用。
3、掌握一个Visual Basic应用程序的组成及创建方法。
4、理解变量与常量的概念、掌握其定义和使用；
5、掌握各种常用数据类型的数据在内存中的存放形式；
6、掌握各种运算符、表达式及内部函数的使用方法；
实验内容：
1、熟悉VB6.0集成开发环境的应用，调试课本例题1.1。
2、设计一个学生学籍管理信息系统的欢迎界面，如图1-1所示。要求：在标签中显示“欢迎使用学生学籍管理信息系统！”，字号：小三，字体：华文行楷。
图1-1 欢迎界面
Form1的caption属性为“欢迎窗口”
Label1的caption属性为“欢迎使用学生学籍管理信息系统！” font属性为华文行楷，字号小三。（Clear）
3、编一模拟简易计算器的程序，运行界面如图1-2所示。
图1-2 简易计算器的运行结果
Text1的text属性为空，Text2的text属性为空，Text3的text属性为空
Label1的caption属性为=，Label2的caption默认属性为空
Command1的caption属性为+， Command2的caption属性为-，Command3的caption属性为*，Command4的caption属性为÷
Command5的caption属性为“清除（Clear）”
程序代码：
Private Sub Command1_Click()
Label2.Caption = +
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Label2.Caption = -
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Label2.Caption = *
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Label2.Caption = ÷
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Text1.Text =
Text2.Text =
Text3.Text =
End Sub
4、设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：
1）界面如图1-3所示。
2）程序中将圆周率定义为符号常量（pi）。
3）将输入的底面半径和高先分别存于变量r和h中（单精度型）。再利用pi、r、h计算圆柱体的底面积、侧面积和体积。运算结果设为只读。
Form1的caption属性为计算底面积、侧面积、体积
Text1的text属性为空，Text2的text属性为空，Text3的text属性为空，Text4的text属性为空，Text5的text属性为空
Command1的caption属性为计算
Label1的caption属性为底面积，Label2的caption属性为侧面积，Label3的caption属性为体积，
程序代码：
Private Sub Command1_Click()
Dim r!
Dim h!
r = Val(Text1.Text)
h = Val(Text2.Text)
pi = 3.141593!
Text3.Text = (pi * r * r) / 2
Text4.Text = pi * (r + r) * h
Text5.Text = (pi * r * r) / 2 * h
End Sub
提示：
1） 圆柱的画法：椭圆用工具箱中的Shape控件，设置Shape属性值为2-Oval，线条用工具箱中的Line控件，自己调整其位置、大小及颜色。
2）运算结果设为只读：设置文本框的Locked属性值为True。
5、设计界面如图1-4所示，单击出题按钮，产生任意两个[1,100]之间的随机数，单击“计算”按钮，求这两个数的和。
图1-4 设计界面
Form1的caption属性为100以内的加法
Text1的text属性为空，
显示全部