Question

求助vb程序题。。。。。。

利用文本框输入一个字符串，统计这个字符串中的字母个数、符号、个数数字个数，分别为多少并输出。求vb程序代码，本人完全不知道怎么做……

Answer 1

同学给你个大致思路
首先是在文本框中取出字符
使用
for i= 1 to len(text1.text)
s=mid(i,1,text1.text)
next i
再进行判断是可以选择if或者select case
if s>="0" to "9"
if s>="a" to "z"
if s>="A" to "B"
这三条语句对应的就是求数字,小写字母,大写字母.
还有什么不懂的可追问.

追问

表示差不多完全不懂……

追答

给你源码再领悟领悟
private sub command1_click()
a=text1.text
for i= 1 to len(a)' 取出文本框中的字符
t= asc(mid(a,i,1)) ' asc是得到字符串的ASCII码值,比如A的ASCII值为65,Z为90
select case t
case 65 to 90 '统计A-Z
j=j+1
case 97 to 122' 统计a - z
k=k+1
case 48 to 57 ;统计 0 - 1
m= m+1
case else
n= n+1
end select
next i
text2.text=j
text3.text=k
text4.text=m
text5.text=n
end sub

追问

len和asc……没学过，能用别的代码替换掉吗？

Answer 2

'窗体form1什么控件都不加，添加如下代码：
Option Explicit

Private WithEvents Text1 As TextBox
Private WithEvents Label1 As Label
Private WithEvents Command1 As CommandButton

Dim Str As String, i%, j%, k%, l%

Private Sub Form_Load()

  With Form1
    .Caption = "统计字符串中的字母个数、符号个数、数字个数"
    .Width = 5600
    .Height = 3900
    .Top = 900
    .Left = 1200
  End With
  
  Set Text1 = Form1.Controls.Add("VB.TextBox", "One")
  With Text1
    .Visible = True
    .Text = ""
    .Left = 100
    .Top = 200
    .Width = 5300
    .Height = 300
  End With
  
  Set Label1 = Form1.Controls.Add("VB.Label", "Two")
  With Label1
    .Visible = True
    .Caption = "字母个数:" & vbCrLf & "符号个数:" & vbCrLf & "数字个数:"
    .Left = 100
    .Top = 800
    .Width = 5500
    .Height = 900
  End With

  Set Command1 = Form1.Controls.Add("VB.CommandButton", "three")
  With Command1
    .Visible = True
    .Caption = "统计"
    .Left = 1900
    .Top = 1800
    .Width = 1600
    .Height = 600
  End With
  
End Sub

Private Sub Command1_Click()
  j = 0: k = 0: l = 0
  For i = 1 To Len(Text1) Step 1
    Str = Mid(Text1, i, 1)
    If Asc(LCase(Str)) >= 97 And Asc(LCase(Str)) <= 122 Then
      j = j + 1
    ElseIf Asc(LCase(Str)) >= 48 And Asc(LCase(Str)) <= 57 Then
      l = l + 1
    ElseIf Str = " " Then
    Else
      k = k + 1
    End If
  Next i
  Label1.Caption = "字母个数:" & j & vbCrLf & "符号个数:" & k & vbCrLf & "数字个数:" & l
End Sub

追问

好多……

追答

我调试了，没有问题，你试试。