UC知道VB 解决爸爸年龄 问题(函数)
来源：百度知道 编辑：UC知道 时间：2024/09/23 02:20:30
解决以下题目: '爸爸哥哥妹妹现在年龄和是64，当爸爸年龄是哥哥的3倍时，妹妹9岁;当哥哥年龄是妹妹2倍时，爸爸34岁，现在爸爸年龄是？
我写的,好像有点问题...
Private Sub Command1_Click()
s = a + b + c
o = a + x
p = b + x
q = c + x
If q = 3 * p Then o = 9
If p = 2 * o Then q = 34
For x = -10 To 20
If s = 64 Then Print c
Next
End Sub
Private Sub Form_Load()
Dim a, b, c, s, o, p, q, x As Integer
End Sub
谢谢qinchnwpu
但中间那部分判断的函数我看得不是很明白，能不能做个详细点的说明呢？
我写的,好像有点问题...
Private Sub Command1_Click()
s = a + b + c
o = a + x
p = b + x
q = c + x
If q = 3 * p Then o = 9
If p = 2 * o Then q = 34
For x = -10 To 20
If s = 64 Then Print c
Next
End Sub
Private Sub Form_Load()
Dim a, b, c, s, o, p, q, x As Integer
End Sub
谢谢qinchnwpu
但中间那部分判断的函数我看得不是很明白，能不能做个详细点的说明呢？
假定条件3成立的情况下，看条件2是否能成立，
1.若不成立则妹妹岁数加1进行下一次循环
2.成立时再判断条件1是否能够达到要求。
如，
妹妹岁数为mm时，成立
此时哥哥为2×mm， 爸爸34岁
那妹妹9岁时，哥哥为2×mm+（9-mm），爸爸为34 +（9-mm），且此时爸爸的岁数为哥哥的3倍，
这样就可以得到爸爸34岁时 妹妹的岁数mm
再判断条件1，算出结果
要是还是不明白，最好先用算术推算出来，再把vb基本语法也看一下。不然我也不知道怎么回答了，第一次回答这么详细
Private Sub Command1_Click()
Dim bb As Integer
Dim gg As Integer
Dim mm As Integer
For mm = 1 To 100 '妹妹从1岁算到100岁
gg = 2 * mm '此时哥哥的年龄
bb = 34 '假设爸爸34岁
'判断当妹妹9岁时，爸爸是否为哥哥岁数的3倍
If 3 * (gg + (9 - mm)) = bb + (9 - mm) Then
Dim n As Integer
n = 64 - bb - gg - mm
'如果3人随着年龄增减刚好可以到达总和64岁，就输出结果， 结束循环
If n Mod 3 = 0 Then
mm = mm + n / 3
gg = gg + n / 3
bb = bb + n / 3
Print bb; "bb"
Print gg; "gg&q