新手学VB 我想问下 当我在Text中输入一个数字 怎样让它转到一个定义变量中。

VBtext里输入一段字母和数字如何将数字挑出并显示在text2中~

你可以通过将每个数据都设为同样长度来使数据对齐，并且每行放置相同个数的数据，这样既可保证长度一致。举个例子：比如1，12，123，可以写成001，012，123，可以用空格代替0。具体操作时你先确定一个最长数据长度，比如最长10位吧，然后长度短于10位的用空格补齐，对于每个数据n，先输出空格space(10-len(n))，再输出数据本身

s是变量，不该打引号。
下面是用选择语句来处理，可能比较清晰点。
Private Sub Command1_Click() Dim s As String s = Text1 If Len(s) = 1 Then Select Case s Case "a" To "z", "A" To "Z" MsgBox "字母" Case "0" To "9" MsgBox "数字" Case Else MsgBox "其它" End Select Else MsgBox "请只输入一个字" End IfEnd Sub

在Text控件 Text1 的消息响应函数Text1_Change()里写下
1)a =Text1

2)a =Text1.text
3)a= int(Text1.text)
4)a= CInt(Text1.text)

5)a= CLng(Text1.text)
6)a= CSng(Text1.text)
7)a= CDbl(Text1.text)

任选一个就可以了

在textbox改变 事件里面写，变量就可以跟着textbox内容变化了、
Private Sub Text1_Change()
a = Text1.Text
End Sub

你在 Text1.TextChanged 事件里声明 Public 变量，这样每当文本框被改变，就有一个新的 a 变量生成，且其他过程可以使用它的新值。或者在整个程序的起始处将 a 声明为 Private，只要在 Text1.TextChanged 中将其赋值也行。a = CDec(Text1.Text) 应该没问题了

双击CommandButton控件，先声明变量，在输入变量，最后输出变量。过程如下：Dim a As Integer
a = 1
Print "a"

a=text1.text 撒

a=txet1.text
这个好基础的说

---

新手学VB 我想问下 当我在Text中输入一个数字 怎样让它转到一个定义变量中。视频