实验一VisualBasic环境和简单程序设计.doc

实验一 Visual Basic环境和简单程序设计 一、实验目的 1．熟悉Visual Basic的集成开发环境。 2．掌握Visual Basic程序设计的基本步骤。 3．掌握基本控件（标签、命令按钮和文本框）的基本使用方法。 4. 掌握常量和变量、表达式的基本概念和正确书写格式。 5．掌握赋值语句和常用函数的正确使用方法。 二、实验内容 1. 通过编程修改控件的属性。 【要求】 （1）进入程序设计的界面如图1-1（a）。 （2）点击“单击此处”按钮后程序运行的界面如图1-1(b)。 【步骤】 （1）在窗体中创建一个标签Label1、一个命令按钮Command1。 （2）在属性窗口中设置对象的属性： 对象名称 属性名称 属性值 Form1 Caption 设计界面 Label1 Caption 请留意此处 Command1 Caption 单击此处 （3）在Command1的Click事件中编写程序代码： Private Sub Command1_Click() ? Form1.Caption = 编程后界面 ? Label1.Caption = 欢迎您使用VB 6.0 ? Command1.Caption = 运行结果 End Sub 【提示】 ?可以通过两种方法设置对象的属性： （1）在程序设计状态，通过属性窗口对该属性进行修改或设置。 （2）在程序运行状态，通过程序中的语句动态地更改对象的属性。修改对象属性的语句格式： ???? ??????????对象名.属性名称=新设置属性值 2. 编写程序，界面如图2-1所示。使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签Label1上，再求出该数的正弦值，将结果写在标签Label2上。 【步骤】 （1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。 （2）设置对象的属性 对象名称 属性名称 属性值 Form1 Caption 随机数的正弦值 Command1 Caption 下一个随机数 Label1 Caption ? Label2 Caption ? （3）编写事件代码： Private Sub Command1_Click() ? Dim x as Single, y as Single ? Randomize ? x = Rnd * 31 + 60 ? y = Sin(x) ? Label1.Caption = 随机数（60-90）： Str(x) ? Label2.Caption = 正弦值???????? ： Str(y) End Sub （4）程序的运行及保存。 【提示】 （1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。 （2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。 （3）求正弦值函数为：sin()。 3. 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。其中F与C之间的关系为： 【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。 （2）设置对象的属性 对象名称 属性名称 属性值 Form1 Caption 温度转换 Command1 Caption ? Command2 Caption ? Label1 Caption 华氏温度 Label2 Caption 摄氏温度 Text1 Text ? Text2 Text ? （3）编写事件代码： Private Sub Command1_Click() ? Dim f as Single, c as Single ? f = Val(Text1.Text) ? c = (f - 32) * 5 / 9 ? Text2 = Str(c) End Sub ? Private Sub Command2_Click() ? Dim f as Single, c as Single ? c = Val(Text2.Text) ? f = 9 / 5 * c + 32 ? Text1 = Str(f) End Sub （4）程序的运行及保存。 4. 求圆的面积及圆柱体的体积，界面如图2-3所示。 【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。 （2）设置对象的属性 对象名称 属性名称 属性