VB上机题2
Einstein兄的程序存在如下问题:
+,-,*,\,回车,换行符,删除符等大量字符均无法识别,您可自行在您的程序中输入如上字符,以验证小的所说。
另对您的程序不做任何评价。
正如Einstein兄所说,应该自己先试着做一下，碰到具体的问题再提出来，更有利于进步。
以下为小的修改之程式,能够完整识别出任意字符,当中统计字符个数请当当姐姐自行完成,这样才有利于您的进步(这个程序正是小的开学时所写的程式,是入门级的)
'在窗体中添加一个Text1
'执行结果会在立即窗口中显示,代码已经为最优化
Private Sub Text1_Change()
Dim strText As Strin...全部
Einstein兄的程序存在如下问题:
+,-,*,\,回车,换行符,删除符等大量字符均无法识别,您可自行在您的程序中输入如上字符,以验证小的所说。
另对您的程序不做任何评价。
正如Einstein兄所说,应该自己先试着做一下，碰到具体的问题再提出来，更有利于进步。
以下为小的修改之程式,能够完整识别出任意字符,当中统计字符个数请当当姐姐自行完成,这样才有利于您的进步(这个程序正是小的开学时所写的程式,是入门级的)
'在窗体中添加一个Text1
'执行结果会在立即窗口中显示,代码已经为最优化
Private Sub Text1_Change()
Dim strText As String
nlen = Len(Text1)
For i = 1 To nlen
strText = Mid(Text1, i, 1)
If Asc(strText) >= 97 And Asc(strText) = 65 And Asc(strText) = 48 And Asc(strText) <= 57 Then
'对输入的数字进行判断
Debug。
Print " the type is fig "
Else
'对输入的其他字符进行判断
Debug。Print " the type is character "
End If
Next
End Sub
以上程式我只是修正Einstein兄的BUG以及对大量无用复杂代码进行优化。
并不能解决问题,剩下的程式还得当当姐姐自行完成。这样有利于您的提高。
望勿见怪
若您实在想不出解决问题的办法,我的符件里是完整的程式源代码。请您经过考虑以后再打开。
。收起
