求解如下语句的在vb2010中如何修改,下列语句是vb6.0的DimxAsSingle,yAsSinglex=Val(InputBox("请输入变量值")）Ifx>=0Theny=x^2+1EndIfIfx

Question

求解如下语句的在vb2010中如何修改,下列语句是vb6.0的
Dim x As Single,y As Single
x=Val(InputBox("请输入变量值")）
If x>=0 Then
y=x^2+1
End If
If x

Answer 1

OK,以VB2010的控制台程序为例
Sub Main()
Dim x As Single,y As Single
x = Val(InputBox("请输入变量值"))
If x >= 0 Then
y = x ^ 2 + 1
End If
If x < 0 Then
y = x ^ -1
End If
Console.Write("x=" & x & ",y=" & y)
Console.ReadKey()
End Sub