我的第一个程序

上个星期写的,可以说是第一个比较完整的程序,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

自己的技术还很差,而且身边没有课本,自己摸索……下一次准备做多一个窗体。


Les sirènes du port d'Alexandrie, chantent encore la même mélodie. La lumière du phare d'Alexandrie, fait naufrager les papillons de ma jeunesse.
简体中文
自豪地基于 React.jsGatsby.js 驱动 | 托管于 Netlify | RSS 订阅可用
内容基于 CC-BY-SA 4.0 授权 | 评点或斧正可以 在此提交 issue
2013-2018 鏡 @ がんばらないプロジェクト / 夜ノ森工房