VB编程入门：如何用VB判断两数是否异号

1、①启动VB自动建立工程1，在合适的位置画出如下图所示3个Label框、2个Text框以及1个Command按钮（为方便直观，将caption等属性都预先进行设置）。

2、②双击“判断是否异号”按钮，进入代码编辑，编写如下代码（复制注意分行）：

Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)s = x * yIf s < 0 Then  Label3.Caption = x & "与" & y & "异号"  Else  Label3.Caption = x & "与" & y & "同号"End IfEnd Sub

3、③点击运行试试吧！