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 SubPrivate Sub Command2_Click()Label2.Caption = "-"Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Label2.Caption = "*"Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Label2.Caption = "÷"Text3.Text = Val(Text1.Text) / Val(Text2.Text)End SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub4、设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：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.!Text3.Text = (pi * r * r) / 2Text4.Text = pi * (r + r) * hText5.Text = (pi * r * r) / 2 * hEnd Sub 提示：1） 圆柱的画法：椭圆用工具箱中的Shape控件，设置Shape属性值为2-Oval，线条用工具箱中的Line控件，自己调整其位置、大小及颜色。2）运算结果设为只读：设置文本框的Locked属性值为True。5、设计界面如图1-4所示，单击出题按钮，产生任意两个1,100之间的随机数，单击“计算”按钮，求这两个数的和。图1-4 设计界面Form1的caption属性为100以内的加法Text1的text属性为空，Text2的text属性为空，Text3的text属性为空Command1的caption属性为出题，Command2的caption属性为计算Label1的caption属性为+，Label1的caption属性为=程序代码：Private Sub Command1_Click() Randomize Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub