UC知道初级VB代码错误
来源：百度知道 编辑：UC知道 时间：2024/05/21 15:07:54
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim n As Integer
a = InputBox("请输入父亲的年龄：")
b = InputBox("请输入女儿的年龄：")
Do
n = n + 1
i = n + a
j = n + b
Loop While i = j * 2
Print n; "年后父亲的年龄是女儿的两倍"
End Sub
算父亲和女儿多少年后，年龄是2倍！
我的代码不知道哪里错了……
Dim a As Integer
Dim b As Integer
Dim n As Integer
a = InputBox("请输入父亲的年龄：")
b = InputBox("请输入女儿的年龄：")
Do
n = n + 1
i = n + a
j = n + b
Loop While i = j * 2
Print n; "年后父亲的年龄是女儿的两倍"
End Sub
算父亲和女儿多少年后，年龄是2倍！
我的代码不知道哪里错了……
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim n As Integer
a = InputBox("请输入父亲的年龄：")
b = InputBox("请输入女儿的年龄：")
Do While Not a = b * 2
n = n + 1
a = a + 1
b = b + 1
Loop
Print n & "年后父亲的年龄是女儿的两倍"
End Sub
Print n; "年后父亲的年龄是女儿的两倍"
改为 Print n & "年后父亲的年龄是女儿的两倍"
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim n As Integer
a = InputBox("请输入父亲的年龄：")
b = InputBox("请输入女儿的年龄：")
Do
n = n + 1
i = n + a
j = n + b
Loop Until i = j * 2 '原来的While改为Until
Print n; "年后父亲的年龄是女儿的两倍"
End Sub