①问题分析,建立数学模型 ②确定算法 ③编写程序 ④调试程序
Private Sub Command1_Click()
Dim a As Single, b As Single
a = Val(Text1.Text)
b = 10
If a >= b
b = a * a + 2 * b
End If
Label1.Caption = Str(b)
End Sub
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
Loop
…
For i=0 to 100
s=s+i
Next i
⑴ ⑵ ⑶ ⑷ ⑸
Dim age As Integer, tree As Integer
age = 15
tree = 1
Do While tree
age =
Tree = tree + (age - 14)
Text1.Text = Str(age)