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

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

②双击“判断是否异号”按钮，进入代码编辑，编写如下代码（复制注意分行）： 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

③点击运行试试吧！