四个数已知一个数，求另外三个数。四个数的比是3：10：25：62。

若已知的为第一个数，切值为N，那么第二个数即为N/3*10，第三个数为N/3*25，第四个数为N/3*62。若已知的数为第二个数，M，那么第一个数为M/10*3，第三个数为M/10*25，第四个数为M/10*62。已知数为第三，第四个数依次类推。手机做答的，敲字符好辛苦啊。

Private Sub Command1_Click()
If Val(Text1.Text)<>0 Then
Text2.Text = 10 * Val(Text1.Text) / 3
Text3.Text = 25 * Val(Text1.Text) / 3
Text4.Text = 62 * Val(Text1.Text) / 3
End If
End Sub
以上为修改后的代码

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(InputBox("请输入已知数", "输入数据"))
b = 10 * a / 3
c = 25 * a / 3
d = 62 * a / 3
Label1.Caption = "a=" & Str(a) & vbCrLf & "b=" & Str(b) & vbCrLf & "c=" & Str(c) & vbCrLf & "d=" & Str(d)
End Sub

把四个文本框做成控件数组
Dim changed As Boolean
Dim s(3) As Integer

Private Sub Form_Load()
s(0) = 3
s(1) = 10
s(2) = 25
s(3) = 62
changed = True
End Sub

Pr