VB基本用法:
1、双击打开VB。
2、点击箭头所指处。
3、看左侧的控件工具箱,每一个都尝试一遍。
4、启动VB自动建立工程1,在合适的位置画出如下图所示3个Label框、2个Text框以及1个Command按钮。
5、双击“判断是否异号”按钮,进入代码编辑,编写如下代码:
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
s = x * y
If s < 0 Then
Label3.Caption = x & "与" & y & "异号"
Else
Label3.Caption = x & "与" & y & "同号"
End If
End Sub
6、点击运行试试吧!