问题标题：
【编写一个程序用户键盘输入被除数和除数然后计算并输出商.如果用户输入的除数为0,且被除数为负数,则计算结果为负无穷；如果输入的除数为0且被除数为正数,则计算结果为正无穷.】
问题描述：
编写一个程序用户键盘输入被除数和除数然后计算并输出商.如果用户输入的除数为0,且被除数为负数,则计算
结果为负无穷；如果输入的除数为0且被除数为正数,则计算结果为正无穷.
马进回答：
'编写一个程序用户键盘输入被除数和除数然后计算并输出商.
'如果用户输入的除数为0,且被除数为负数,则计算结果为负无穷；
'如果输入的除数为0且被除数为正数,则计算结果为正无穷.
'用VB方法如下:
Subjissuan()
DimaAsSingle
DimbAsSingle
a=InputBox("请输入被除数","输入被除数")
b=InputBox("请输入除数","输入除数")
Ifb0Then
MsgBoxa&"/"&b&"="&a/b
ElseIfa0Andb=0Then
MsgBoxa&"/"&b&"="&"+∞"
Else
'MsgBox"
EndIf
EndSub
点击显示
其它推荐