Question

VB的一系列问题```VB高手进

1.除法
除法计算
除数为0时要弹出对话框

2.更改背景颜色和字体颜色
分别按2个按钮更改背景和字体颜色

3.正负显示
在text1里输入正数或负数
按按钮 则在text2里出现正负提示

望高手解答``````

Answer 1

1
Dim i As Integer, j As Integer, z As Integer
If j = 0 Then
MsgBox "除数不可以为0！", , "提示"
Else
z = i / j
End If
2
Private Sub Command1_Click()
Label1.BackColor = vbRed
End Sub

Private Sub Command2_Click()
Label1.ForeColor = vbGreen
End Sub
3
If Left(Trim(Text1.Text), 1) = "-" Then
Text2.Text = "输入了负数"
Else
Text2.Text = "输入了正数"
End If