查看: 53  |  回复: 0
  VB6 两个框相加的简单检查
楼主
发表于 2025年5月27日 21:12
Private Sub cmdCalc_Click()
    If IsNumeric(txtValue1.Text) And IsNumeric(txtValue2.Text) Then
        txtResults.Text = CDbl(txtValue1.Text) + CDbl(txtValue2.Text)
    Else
        txtResults.Text = "非法数字"
    End If
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com