编写一个程序用户键盘输入被除数和除数然后计算并输出商.如果用户输入的除数为0,且被除数为负数,则计算结果为负无穷；如果输入的除数为0且被除数为正数,则计算结果为正无穷.

Question

编写一个程序用户键盘输入被除数和除数然后计算并输出商.如果用户输入的除数为0,且被除数为负数,则计算
结果为负无穷；如果输入的除数为0且被除数为正数,则计算结果为正无穷.

Answer 1

'编写一个程序用户键盘输入被除数和除数然后计算并输出商.
'如果用户输入的除数为0,且被除数为负数,则计算结果为负无穷；
'如果输入的除数为0且被除数为正数,则计算结果为正无穷.
'用VB方法如下:
Sub jissuan()
Dim a As Single
Dim b As Single
a = InputBox("请输入被除数","输入被除数")
b = InputBox("请输入除数","输入除数")
If b 0 Then
MsgBox a & "/" & b & " = " & a / b
ElseIf a < 0 And b = 0 Then
MsgBox a & "/" & b & " = " & "-∞"
ElseIf a > 0 And b = 0 Then
MsgBox a & "/" & b & " = " & "+∞"
Else
'MsgBox "
End If
End Sub