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

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

2、②双击“判断是否异号”按钮，进入代码编辑，编写如下代码（复制注意分行）：Private Sub Command1_Cli艘早祓胂ck()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、③点击运行试试吧！