简单的vb作业求救！！！

来源：百度知道 编辑：UC知道 时间：2024/05/29 00:33:30
我是大一的，刚学VB觉得根本学不明白，有个问题希望能大家能帮帮我

输入除数、被除数，计算商值，余数及除数的平方根

感激不尽
打错..是被除数的平方根..

Sub Main()
Dim op1 As Single,op2 As Single,op3$
op1 = Int(Val(InputBox("被除数？")))
op2 = Int(Val(InputBox("除数？")))
If op2 = 0 Then MsgBox "除数为0？？？你脑子出问题了？？" : Exit Sub
If op1 >= 0 Then
op3$ = "(+/-)" Sqr(op1)
Else
op3$ = "(+/-)" Sqr(-op1) & "i"
End If
op3$ = op1 & " / " & op2 & " = " & ( op1 / op2 ) & vbCrLf & _
op1 & " mod " & op2 & " = " & ( op1 Mod op2 ) & vbCrLf & _
"sqrt(" & op1 & ") = " & op3$
MsgBox "结果：" & vbCrLf & op3$
End Sub