vb中把文本框的值赋给一个变量的困惑

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:53:30
各位大侠看看我这是什么问题？为什么我不能把文本框的值赋给一个变量啊？？？
dim a as integer
dim b as integer
a = cint(text1.text)
b = 2*cint(text2.text)
***************************
我在text1中添的是2
在text2中添的是10

为什么无法赋值
调试的时候显示a=0 b=0啊
请各位大侠帮帮忙吧。急啊！

泥的代码运行结果无错，如果是在它处引用a,b的值，则需申明为全局变量或窗体变量：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = CInt(Text1.Text)
b = 2 * CInt(Text2.Text)
Print a
Print b
End Sub

Dim是过程级的声明
如果你是在别的过程里调用这个过程中声明的变量，就会出错的

public a as integer
public b as integer
a = cint(text1.text)
b = 2*cint(text2.text)

TEXE里的是字符，要用VAL函数转换一下，写成a = cint(val(text1.text))
应该就没问题了

如果只有这点代码，那肯定是对的（我已运行过）
是不是有其它 的代码？你在其他的过程中调用ab就必然被系统重新给ab赋值默认的0