Private Sub cmdJieGuo_Click()
    Dim a As Long
    Dim b As Long
   
    a = txtBjia.Text
    b = txtJia.Text
   
    txtHe = a + b
End Sub
 

Private Sub cmdQ_Click()
    txtBjia.Text = ""
    txtJia.Text = ""
    txtHe.Text = ""
End Sub

Private Sub Form_Load()
    txtBjia.Text = ""
    txtJia.Text = ""
    txtHe.Text = ""
End Sub
txtBjia.Text  txtJia.Text 它们的Maxength属性是6,然后在生成EXE的时候提示内存溢出.没有超出long的范围呀?Intteger也是同样的问题.还是没有保存好?也不知道是哪里错了,刚学VB,也看不出来,也搜索不到..高手帮帮忙

a = txtBjia.Text
    b = txtJia.Text
   
    txtHe = a + b
这个地方写标准一点吧
    a = clng(txtBjia.Text)
    b = clng(txtJia.Text)
   
    txtHe.text = a + b

可以给我讲讲原因么?这个例子是我看着视频教程做的,我自己把integer换成了long,他的视频没有生成EXE,自己生成exe的时候就出错了

为空的时候会不会出错？

Dim a As Long
    Dim b As Long
    將它改為int型
再給祂們賦值為0或1

'用下面的代码试,还会出错么?
Private Sub cmdJieGuo_Click()
    Dim a As Long'用integer也是可以的,两者区别不用说了吧?
    Dim b As Long
    'txtBjia.Text是字符串表达式,用VAL函数将它转换为数值类型才可以加减,否则到下一句时会出错,提示类型不匹配
    a = Val(txtBjia.Text)
    b = Val(txtJia.Text)
   '上面用clng函数转换也行,但是在txtBjia.Text和txtJia.Text为空时会出错
    TxtHe.Text = a + b
End Sub

[[it] 本帖最后由 不说也罢 于 2008-9-8 12:26 编辑 [/it]]

呵呵..明白了.

既然你知道为空的时候出错
那你就应该处理一下
不是数字或空的时候提示请输入数字