Dim a1, aw, result As Single
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Paint()
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
a1 = CDb1(Text1.Text) ；这一行的CDb1出现错误
a2 = CDb1(Text2.Text)
result = a1 + a2
Text3.Text = CStr(result)
End If
End Sub

错误提示：子程序或函数未定义
请问哪里出问题，我是照着书本敲代码的
刚接触VB，什么都不懂，请多多指教

[此贴子已经被作者于2007-4-4 13:02:12编辑过]

CDb1 未定义`

把CDb1那两句的Cdb1改成val
你没有定义Cdb1函数，所以出错
从例子里看，Cdb1匙个转换函数
把字符串转换成数字
Val函数就能实现这种功能
另外，还有如果你在text中控只输入数字的话
在vb6中，这种转换是隐含的
比如，你直接用:a1=text1.text就行了
甚至用a1=text1就行了
不过，明确转换是个好习惯
并且让程序易于阅读

谢谢，解决问题了。
请问Cdb1函数该怎样定义呢？

如果你想把含有数字和字母的字串中的数字挑出来
可以自己定义转换函数
没有什么好方法，只能遍历字符串里的每个字符，把数字字符找出来

直接用VAL函数

a1 = val(Text1.Text)
a2 = val(Text2.Text)