vb求解答！！！！！！！！！ 急！！急！！急！！急！！急！！急！！急！！急！！急！！急！！急！！

'给你回答第一个问题，后面的2个问题相对来说简单多了 :
Private Sub Command1_Click()
Dim arr(1 To 4) As Long, a As Long, b As Long, i As Long, j As Long
arr(1) = InputBox("输入第一个数分子：")
arr(2) = InputBox("输入第一个数分母：")
arr(3) = InputBox("输入第二个数分子：")
arr(4) = InputBox("输入第二个数分母：")
a = arr(1) * arr(4) + arr(3) * arr(2)
b = arr(2) * arr(4)
For i = 2 To a / 2
If a Mod i = 0 Then
If b Mod i = 0 Then
a = a / i
b = b / i
i = i - 1
End If
End If
Next
If a >= b Then
If a = b Then
Print a / b
Else
Print a \ b & "(" & a Mod b & "/" & b&; ")"
End If
Else
Print a & "/" & b
End If
End Sub