神马品牌网大便出血怎样检查:新手提问关于一些简单的VB问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 20:18:10
还有个问题就是设计个简单的计算器，要求text1 text2 text3=text4 （text1跟text2是输入数字筐，text3的符号+-*/筐，text4是结果）下面有两个按钮分别是“计算”（点击出来text4结果）跟“结束”（点击退出程序）请帮忙遍写下代码！
谢谢shelking朋友的回答，尽管有点小错误但是稍微修改下就通过了，谢谢！
至于哪个放大字体题目 谁能帮我完成一下吗？我写的代码如下，请帮忙补充完整！
Dim size%
Private Sub Form_Load()
size = Text1.FontSize
End Sub
Private Sub Command1_Click()
Text1.FontSize = ？？？？这里如何放大字体，要随机1~3`倍！
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text1.FontSize = Int(Rnd * 3 + 1)
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Text1.FontSize = size
Command1.Enabled = True
Command2.Enabled = True
End Sub
Private Sub Text1_Change()
End Sub
放大缩小要有个参照, 另做个TEXT2:
可大可小的代码:
Text1.FontSize = Text2.FontSize * Int(Rnd * 3 + 1)
计算器完整代码：（仅按你的具体要求，否则这个代码有改进余地）
Private Sub Command1_Click()
'当发生错误时跳转到line
On Error GoTo line
'判断数据是否为空
If Text1.Text <> "" And Text2.Text <> "" Then
If Text3.Text = "+" Then
'CDbl()可以将一个数据转换为双精度浮点数
Text4.Text = CDbl(Text1.Text) + CDbl(Text2.Text)
End If
If Text3.Text = "-" Then
Text4.Text = CDbl(Text1.Text) - CDbl(Text2.Text)
End If
If Text3.Text = "*" Then
Text4.Text = CDbl(Text1.Text) * CDbl(Text2.Text)
End If
If Text3.Text = "/" Then
If Text2.Text <> 0 Then
Text4.Text = CDbl(Text1.Text) / CDbl(Text2.Text)
Else
MsgBox " 除数不能为0", , "警 告"
End If
End If
End If
'错误处理:弹出提示框
line: MsgBox "发生错误，请正确输入数据", , "提示"
End Sub
'command2为"退出"按纽
Private Sub Command2_Click()
Unload Form1
End
End Sub
Private Sub Form_Load()
Text1.Text = 0
Text2.Text = 0
Text4.Text = 0
Text3.Text = "+"
Command1.Caption = "计 算"
Command2.Caption = "退 出"
End Sub