1、第 1 页 共 6 页1 题；设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：1）程序中将 定义成符号常量。2）将输入的底面半径和高分别存于单精度变量 r 和 h 中。 （窗体文件名 A1.FRM，工程文件名 A1.VBP） Const pi As Single = 3.1415926Private Sub Command1_Click()Dim h As SingleDim r As Singleh = Val(Text1.Text)r = Val(Text2.Text)Text3.Text = Format(pi * r 2, “0.000“)Text4.Text =
2、 Format(2 * pi * r * h, “0.000“)Text5.Text = Format(pi * r 2 * h, “0.000“)End Sub2 题；用块结构条件语句实现。要求用 InputBox 函数输入三个数，找出并输出三个数中的最大数及最小数。 （窗体文件名 A2.FRM，工程文件名 A2.VBP）Private Sub Form_Click()Dim Max As Integer, Min As Integer, a(1 To 3) As IntegerFor i = 1 To 3a(i) = Val(InputBox(“请输入数值 “, “找出最大和最小值“, “0“)Next iMax = a(1)Min = a(1)For i = 1 To 3If a(i) Max ThenMax = a(i)End IfIf a(i) Max ThenMax = D(i)End IfIf D(i) Min ThenMin = D(i)End IfNext iText4.Text = MaxText5.Text = MinEnd Sub
