（2）设置对象的属性 对象名称 Form1 属性名称 Caption 属性值 随机数的正弦值 Command1 Label1 Label2 Caption Caption Caption 下一个随机数 （3）编写事件代码： Private Sub Command1_Click() Dim x!, y! Randomize x = Rnd * 31 + 60 y = Sin(x) Label1.Caption = \随机数（60-90）：\ Label2.Caption = \正弦值 ：\Str(y) End Sub （4）程序的运行及保存。 【提示】 （1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初
始化。 （2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。 （3）求正弦值函数为：sin()。 【思考】怎样产生一个[60,90]之间的随机数？ 3 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。其中F与C9F?C?325之间的关系为：。 【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。 （2）设置对象的属性 对象名称 Form1 属性名称 Caption 属性值 温度转换
Command1 Command2 Label1 Label2 Text1 Text2 Caption Caption Caption Caption Text Text > < 华氏温度 摄氏温度 （3）编写事件代码： Private Sub Command1_Click() Dim f!, c! f = Val(Text1.Text) c = (f - 32) * 5 / 9 Text2 = Str(c) End Sub Private Sub Command2_Click() Dim f!, c! 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）设置对象的属性 对象名称 Command1 Command2 Label1 Label2 Label3 Label4 属性名称 Caption Caption Caption Caption Caption Caption 属性值 求圆的面积 求圆柱的体积 圆的半径 圆柱的高 圆的面积 圆柱的体积 Text1、Text2、Text Text3、Text4
（3）编写事件代码： Private Sub Command1_Click() Dim r As Single, s As Single r = Val(Text1.Text) s = 3.14159 * r * r Text3.Text = Str(s) End Sub Private Sub Command2_Click() Dim r!, h!, v! r = Val(Text1.Text) h = Val(Text2) v = 3.14159 * r * r * h Text4 = v End Sub （4）程序的运行及保存。 实验三 选择结构程序设计 一、实验目的