一道VB的题目

Private Sub Command1_Click()

a = InputBox("输入a的值", "输入a的值")
b = InputBox("输入b的值", "输入b的值")
c = InputBox("输入c的值", "输入c的值")
d = InputBox("输入d的值", "输入d的值")

If (a * c + d * b) > (b * c) Then
t = (b * c)
ElseIf (a * c + d * b) < (b * c) Then
t = (a * c + d * b)
ElseIf (a * c + d * b) = (b * c) Then
Label1.Caption = "答案为:1"
End If

For c = 1 To t
If (a * c + d * b) / c = Int((a * c + d * b) / c) And (b * c) / c = Int((b * c) / c) Then
Label1.Caption = "答案为:" & ((a * c + d * b) / c) & "/" & ((b * c) / c)
End If
Next

End Sub

此代码需要一个按钮,一个标签

有不懂发信息来

Private Sub Form_click()
Dim d%(4)
For i = 1 To 4
d(i) = InputBox("请输入第" & i & "个数")
Next
Print d(1) / d(2) + d(3) / d(4)
End Sub

dim A,B,C