例如 Private Sub Form1_Load Dim x, y As integer ⅹ=val( InputBox("请输入ⅹ的值","平方值计算",0)) Ifx>10 Then Console. WriteLine("输入的数据太大") Else If x>0 Then Console, writeline"(输入的数据平方值为:{0}";X*x) Else Console. WriteLine(输入的数据不能小于0") End if End if End sub例如： Private Sub Form1_Load() Dim x, y As Integer x = Val（InputBox（"请输入 x 的值", "平方值计算", 0）） If x > 10 Then Console.WriteLine ("输入的数据太大") Else If x > 0 Then Console.WriteLine "（输入的数据平方值为：{0}"; x * x） Else Console.WriteLine（输入的数据不能小于0"） End If End If End Sub