
2个回答
展开全部
应该定义为double或者single,string类好像不能进行运算。我简单说一下控制台的方法,你要一次性输入和差积商,首先声明两个变量用来储存两个数,然后用算法一次性输出结果就ok。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: " & ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: " & ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: " & ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: " & ResultNum)
Console.ReadLine()
End Sub
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: " & ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: " & ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: " & ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: " & ResultNum)
Console.ReadLine()
End Sub
展开全部
Module Module1
Sub Main()
Dim FN As Decimal
Dim SN As Decimal
Dim sum As Decimal
Dim dec1 As Decimal
Dim dec2 As Decimal
Dim dec3 As Decimal
Try
Console.WriteLine("请输入第一个数:")
FN = Decimal.Parse(Console.ReadLine)
Console.WriteLine("请输入第二个数:")
SN = Decimal.Parse(Console.ReadLine)
sum = FN + SN
dec1 = FN - SN
dec2 = FN * SN
dec3 = FN / SN
Console.WriteLine("和:{0},差:{1},积:{2},商:{3}", sum, dec1, dec2, dec3)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.WriteLine("按任意键退出")
Console.ReadKey()
End Sub
End Module
Sub Main()
Dim FN As Decimal
Dim SN As Decimal
Dim sum As Decimal
Dim dec1 As Decimal
Dim dec2 As Decimal
Dim dec3 As Decimal
Try
Console.WriteLine("请输入第一个数:")
FN = Decimal.Parse(Console.ReadLine)
Console.WriteLine("请输入第二个数:")
SN = Decimal.Parse(Console.ReadLine)
sum = FN + SN
dec1 = FN - SN
dec2 = FN * SN
dec3 = FN / SN
Console.WriteLine("和:{0},差:{1},积:{2},商:{3}", sum, dec1, dec2, dec3)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.WriteLine("按任意键退出")
Console.ReadKey()
End Sub
End Module
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询