背心王宗仁的阅读答案:vb小程序怎么运行不起,高手请指点一下!

来源：百度文库编辑：高考问答时间：2024/04/27 14:43:36

我想编一个检测字符串是数字还是文字!怎么运行不起啊,那有错,我是菜鸟!
Private Sub Command1_Click()
Dim a
Dim b, c As Integer
Text2.Text = ""
a = Text1.Text
b = Len(a)
For c = b To 1 Step -1
Text2.Text = Text2.Text & Mid(a, c, 1)
Next c
Call haoge
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Public Sub haoge()
Dim t As Integer
Dim x, k, m, y
For t = 1 To b
x = Mid(a, t, 1)
If UCase(x) >= "A" And UCase(x) <= "Z" Then
y = y & "3"
ElseIf x >= "0" And x <= "9" Then
y = y & "0"
End If
Next t
m = String(b, "3")
k = String(b, "0")
If y = m Then
Text3.Text = "wenzi"
ElseIf y = k Then
Text3.Text = "shuzi"
Else
Text3.Text = "douyou"
End If
End Sub

想判断text1中的是全为字母,全为数字或是混合的,你的问题是,a,b,c都是局部变量。把。dim a,b 放在command1_click()之外就可以了.

你用ASCII码编下试试吧。。。

恩没错 a,b,c 都是Command1_Click里的局部变量
在Call haoge的时候a,b,c的值都是空
所以y,m,k的值也都为空不管你在text1中输入什么结果都是wenzi

vb小程序怎么运行不起,高手请指点一下! 请高手帮写个vb小程序... vb小问题高手指点 vb中的程序,请高手详细解读一下下面程序请哪位指点一下小弟C语言中的带命令行参数的程序应该怎么运行？请VB高手给看一下这个程序是怎么回事请高手指点一下，winamp怎样才能自己运行？刚装完redhat9.0就不能运行！请高手指点一下！！！！！实况高手请指点一下怎么换人求VB高手指点一段程序