实验指导三.docVIP

实验三：顺序结构程序设计 一．实验目的 （ 1 ）掌握顺序结构程序设计的特点 。 （ 2 ）掌握 Visual Basic 数据的输入 / 输出。 （ 3 ）掌握赋值语句、用户交互函数 InputBox 与 MsgBox 的使用。 二．知识要点 1.顺序结构： 2. 赋值语句形式： 变量名 = 表达式 对象 . 属性 = 表达式 3. 数据输入 （ 1 ）使用文本框控件输入数据： 变量名 = 文本框名。 Text (2)InputBox 函数 变量名 =InputBox[$]( 提示信息 [, 标题 ][, 默认值 ][,x 坐标 ][y 坐标 ]) 4. 数据输出 （ 1 ）使用文本框控件输出，通过给文本框赋值来显示数据。 如： Text.Text= 〝您好！〞 （ 2 ） Print 方法： [ 对象名 .] Print [ 表达式表 ] （ 3 ）使用 Label 控件显示文本 如： Label1.Caption= 〝您好！〞 (4)MsgBox 函数： 变量 [%]=MsgBox( 提示信息 [ ， 对话框样式 ][ ， 标题 ]) MsgBox 过程： MsgBox 提示信息 [ ， 对话框样式 ][ ， 标题 ] 5. 其他语句 （ 1 ）注释语句： Rem 注释内容 或 ′ 注释内容 （ 2 ） End 语句： End (3) 暂停语句： Stop (4)With … End With 语句 With 对象名 操作对象的语句组 End With 三。实验内容及步骤 基础实验 1. MsgBox 函数的使用。窗体界面及运行结果如下图所示。 ? （ 1 ）界面设计 在窗体上建立 1 个命令按钮 Command1 ， 在属性窗口中如下设置其属性： 对象名 属性 属性设置 Command1 Caption “ MsgBox 函数的使用 ” （ 2 ）过程设计 Private Sub Command1_Click() Dim r As Integer MsgBox 最简单的 MsgBox r = MsgBox( 复杂的 MsgBox, vbYesNo + vbCritical + vbDefaultButton2, 你看到了么 ?) Print 你按的值为 ; r End Sub 2.已知圆的半径R，求圆的周长和面积。执行结果下图： ? （ 1 ）界面设计 在窗体上建立 2 个标签控件 Label1 、 Label2 ， 在属性窗口中如下设置各控件的属性： 对象名 属性 属性设置 Label 1 Caption 清空 Label 2 Caption 清空 （ 2 ）过程设计 Private Sub Form_Click() Dim r As Integer, c As Single, s As Single r = InputBox( 圆的半径是 ： ) c = 2 * 3.14 * r s = 3.14 * r ^ 2 Label1.Caption = 圆的周长是 ： + Format(c) Label2.Caption = 圆的面积是 ： + Format(s) End Sub 3. InputBOx 函数的不同用法。 （ 1 ）过程设计 Private Sub Form_Click() Dim StrName As String, Title As String Dim Default As String, MyValue As String 设置提示信息 StrName = 请输入数据 设置标题 Title = InputBox 函数使用举例 设置缺省值 Default = 2 第一种：显示提示信息、标题及缺省值 MyValue = InputBox(StrName, Title, Default) 第二种：指定坐标：在 1000,1000 的位置显示对话框 MyValue = InputBox(StrName, Title, Default, 1000, 1000) 第三种：显示 帮助 按钮，使用帮助文件 MyValue = InputBox(StrName, Title, , , , DEMO.HLP, 10) End Sub （ 2 ） 单击窗体，如下图： ? 显示“帮助”按钮的 InputBox 提高实验 编一个华氏温度与摄氏温度之间的转换程序，转换公式如下： 摄氏温度转换为华氏温度， F 为华氏度 华氏温度转换为摄氏温度， C 为摄氏度 单击转换华氏按钮，则将摄氏