第04章 VB程序控制结构.ppt

Private Sub Form_Click() Dim X As Integer, Y As Integer Dim H As Integer, F As Integer H = 11: F = 34 X = (4 * H - F) / 2 Y = (F - 2 * H) / 2 Print “鸡的只数＝ ”; X, “兔的只数=; Y End Sub Private Sub Form_Click() Dim X As Integer, Y As Integer Dim H As Integer, F As Integer H = val(inputbox(“头数”)) F = val(inputbox(“脚数”)) X = (4 * H - F) / 2 Y = (F - 2 * H) / 2 Print “鸡的只数＝ ”; X, “兔的只数=; Y End Sub 【例4.9】 编写一个求解一元二次方程的程序。 程序代码如下： Private Sub Form_Click() Dim A!, B!, C!, X1!, X2! A = Val(InputBox(请输入第 1 个数：)) B = Val(In