我的第一个程序

发布于 2004-10-23

上个星期写的，可以说是第一个比较完整的程序，VB 的。

其实也是很简单的加法运算，不过总算解决了溢出问题，不过输入的校验还是没有做好。

VB 代码：

Private Sub exit_Click()
  End
End Sub

Private Sub pluscom_Click()
  res.Caption = ""
  Dim a, b
  a = Val(plus1.Text)
  b = Val(plus2.Text)
  If plus2.Text = "" Or plus1.Text = "" Then
    result.Caption = "不能输入空值，请重输。"

  Else
    Dim re
    re = a + b
    res.Caption = re
    result.Caption = "代数表达式为：" & a & "+" & b & "=" & re
  End If
End Sub