2024年4月29日发(作者：)

实验四 顺序结构

实验四 顺序结构

（设计型 4学时）

[实验目的]

1. 掌握赋值语句的使用方法

2. 掌握数据输入、输出函数和语句，尤其是InputBox函数

[实验内容]

程序1：编程输入圆的半径，计算并输出圆的周长和面积。

方法一：用Inputbox函数实现圆半径的输入，用Print方法输出周长和面

积。

实验步骤：

(1) 新建一个工程，在窗体中添加一个命令按钮（Command1）。

(2) 事件过程如下：

Private Sub Command1_Click()

Const pi = 3.14

Dim r As Single, l As Single, s As Single

r = Val(InputBox("请输入圆的半径："))

l = 2 * pi * r

s = pi * r * r

Print "圆的半径为："; r

Print "圆的周长为："; l

Print "圆的面积为："; s

End Sub

(3) 程序运行结果如图4-1所示。

图4-1 程序运行结果

方法二：用文本框控件实现半径的输入，用标签控件实际周长和面积的输

出。

实验步骤：

(1) 程序运行界面如图4-2所示，图中各控件属性如表4.1所示。

实验四 顺序结构

图4-2 程序运行界面

表4.1 对象属性设置

对象 属性 属性值

Caption

标签1 半径=

Caption

标签2 周长=

Caption

标签3 面积=

Caption

标签4

“”（空）

BorderStyle 1-Fixed Single

Caption

标签5

“”（空）

BorderStyle 1-Fixed Single

Text

文本框

“”（空）

Caption

命令按钮 计算

(2) 部分参考程序，请补充完整。

Private Sub Command1_Click()

Const pi = 3.14

Dim r As Single

n = 2 * pi * r

n = pi * r * r

End Sub

程序2：从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均

值。通过InputBox函数输入数据，在窗体上显示和及平均值。

程序3：InputBox函数的操作

实验步骤：

(1) 在窗体上画两个文本框和一个命令按钮，如图4-3所示。