计算器 - 如果声明错误

问题描述:

我想在VisualBasics控制台应用程序上做一个计算器,它将允许用户添加和减去。我已经想出了如何允许从用户输入的数字添加,但我给了一个选项,询问用户他们想要使用什么操作。但是,当用户使用 - 符号时,它不会输出对输入的两个数字的答案的结果。计算器 - 如果声明错误

我用了一个elseif语句,因为我认为当读取这行时,如果输入了“ - ”,那么程序将不会添加这两个数字,但现在将它们带走。请问有人可以向我解释为什么它不允许我选择第二个选项并将两个数字相互分开?

Module Module1 

    Sub Main() 

     Console.WriteLine("Please enter the first number:") 
     Dim num1 As Double = Console.ReadLine() 
     Console.WriteLine("First number:" & num1) 

     Console.WriteLine("Please enter the second number:") 
     Dim num2 As Double = Console.ReadLine() 
     Console.WriteLine("Second Number:" & num2) 

     Console.Write("what operand do you want to use: +,-,:") 
     If Console.ReadLine = "+" Then 
      Console.WriteLine("The numbers added is:" & num1 + num2) 
     ElseIf Console.ReadLine = "-" Then 
      Console.WriteLine("The numbers subtracted is:" & num1 - num2) 
     End If 
     Console.ReadLine() 

    End Sub 

End Module 
+0

试着编辑你的问题... – Reddy

+1

因为你只有一个可用的字符,因此你不能调用两次'Console.ReadLine'。考虑你正在编写的代码。很明显,您只需要调用一次'Console.ReadLine',将输入保存到一个变量中,然后根据该变量中的内容决定要执行什么操作。 –

+0

在文件顶部设置“Option Strict On”。删除编译器错误。 –

If Console.ReadLine = "+" Then 
    Console.WriteLine("The numbers added is:" & num1 + num2) 
ElseIf Console.ReadLine = "-" Then 
    Console.WriteLine("The numbers subtracted is:" & num1 - num2) 
End If 

大声朗读:

读取一行。如果它是'+',则打印结果。否则读一行。如果它是“ - ”,则打印结果。

您需要将第一个ReadLine的结果存储在变量中并在两次比较中使用它们。