VisualBasic程序设计教程讲义.ppt

编写“华氏转摄氏”命令按钮Command2的Click事件代码： Private Sub Command2_Click() f = Val(InputBox(请输入华氏温度值：, 华氏转摄氏, 0)) c = 5 * (f – 32) / 9 Label1.Caption = 华氏 f 度 = 摄氏 Format(c, ####.##) 度 End Sub 【例3-16】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？如图3-27所示。 图3-27 “鸡兔同笼”问题 分析：设笼中有鸡x只，兔y只，由条件可得方程组{x+y=h 解方程组得 设计步骤如下： (1) 建立程序界面与设置对象属性。 选择“新建”工程，进入窗体设计器，首先增加3个标签Label1～label3和一个命令按钮Command1。其属性设置参见图3-27。 (2) 编写程序代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Dim h As Integer, f As Integer h = Val(InputBox(鸡和兔的总头数, 请输入, 0)) f = Val(InputBox(鸡和兔的总脚数（偶数）