缘分刚好 3星
共回答了387个问题采纳率:98.9% 评论
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、点击运行试试吧!
8小时前
猜你喜欢的问题
2天前1个回答
2天前1个回答
2天前1个回答
2天前2个回答
2天前1个回答
2天前2个回答
热门问题推荐
4个月前2个回答
4个月前1个回答
1个月前1个回答
2个月前2个回答
3个月前1个回答
1个月前2个回答
2个月前2个回答
3个月前1个回答
3个月前9个回答