十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Private Sub Form_Load()
网站的建设成都创新互联公司专注网站定制,经验丰富,不做模板,主营网站定制开发.小程序定制开发,H5页面制作!给你焕然一新的设计体验!已为成都玻璃贴膜等企业提供专业服务。
Command1.Enabled = False '使Command1不可用
Label2.Visible = False '使Label2、...、Label7不可见
Label3.Visible = False
Label4.Visible = False: Label5.Visible = False
Label6.Visible = False: Label7.Visible = False
Label8.Visible = False: Label9.Visible = False
'Text1.TabIndex = 0 '使文本框获得输入焦点
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1.Enabled = True '输入结束,使Command1可用
End Sub
Private Sub Command1_Click() '单击Command1完成统计
Dim s As String, length As Integer, s1 As String
Dim n1 As Integer, n2 As Integer, n3 As Integer, wt As Boolean, n4 As Integer
s = Text1.Text
length = Len(s)
n1 = 0: n2 = 0: n3 = 0
For i% = 1 To length
s1 = Mid(s, i%, 1)
If s1 = "a" And s1 = "z" Or s1 = "A" And s1 = "Z" Then
n1 = n1 + 1 '字母字符
ElseIf s1 = "0" And s1 = "9" Then
n2 = n2 + 1 '数字字符
Else
n3 = n3 + 1 '其它字符
End If
Next i%
Label5.Caption = n1: Label6.Caption = n2
Label7.Caption = n3: Label2.Visible = True '显示标签
Label3.Visible = True: Label4.Visible = True
Label5.Visible = True: Label6.Visible = True
Label7.Visible = True
For i% = 1 To length '这个循环找到第一个单词的字母
s1 = Mid(s, i%, 1)
If s1 = "a" And s1 = "z" Or s1 = "A" And s1 = "Z" Then Exit For
Next i%
wt = False
For j% = i To length '从第一个单词的字母开始统计
s1 = Mid(s, j%, 1)
If s1 = "a" And s1 = "z" Or s1 = "A" And s1 = "Z" Then
If wt = False Then
n4 = n4 + 1
wt = True
End If
Else
wt = False
End If
Next j%
Label8.Visible = True: Label9.Visible = True
Label9.Caption = n4
End Sub
要改成这样;
for i = 1 to Len(s)
j = Mid(s,i,1)
select case j
case "a" to "z","A" to "Z"
C = C + 1
CASE "0" TO "9"
D = D + 1
CASE ELSE
M= M+1
END SELECT
NEXT
统计某个字符的代码如下:
private
sub
command1_click()
dim
i
as
integer,
ccount
as
integer
for
i
=
1
to
len(text1)
if
mid(text1,
i,
1)
=
"你所需要统计的字符"
then
ccount
=
ccount
+
1
next
i
msgbox
"共有"
count
"个e"
end
sub
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim one As Integer
n = 0
For i = 1 To Len(Text1.Text)
one = Asc(Mid(Text1.Text, i, 1))
If (one = 65 And one = 90) Or (one = 97 And one = 122) Then n = n + 1
Next i
MsgBox "共有" n "个字母。"
End Sub
在“通用声明”代码区声明(窗体)模块级变量
Option Explicit
Dim letters As Integer '声明模块级变量,此变量计算字母个数
Dim space As Integer '空格个数
Dim digit As Integer '数字个数
Dim others As Integer '其他字符个数
输入cmdStat_Click()事件过程代码
Private Sub cmdStat_Click()
Dim InputStr As String '局部变量,此变量存储输入的字符串
Dim i As Integer '循环控制变量,整型
Dim CaseStr As String '此变量保存储所截取的字符
letters = 0 '初始化为0
space = 0
digit = 0
others = 0
InputStr = txtInput.Text '取得输入的字符串
For i = 1 To Len(InputStr) '开始分别统计个数
CaseStr = Mid(InputStr, i, 1) '取得某个字符
Select Case CaseStr
Case "a" To "z", "A" To "Z" '如果字符是英文字母
letters = letters + 1
Case " " '如果字符是空格
space = space + 1
Case 0 To 9 '如果字符是数字
digit = digit + 1
Case Else '如果字符是其他字母
others = others + 1
End Select
Next
'以下代码用来显示统计出的结果值
txtResult1.Text = letters
txtResult2.Text = space
txtResult3.Text = digit
txtResult4.Text = others
txtResult5.Text = Len(InputStr)
End Sub
两个文本框,一个command按钮
Private Sub Command1_Click()
Dim i As Long
Dim CharNum As Long
CharNum = 0
For i = 1 To Len(Text1.Text)
If (Asc(Mid$(Text1.Text, i, 1)) = 65 And Asc(Mid$(Text1.Text, i, 1)) = 90) Or (Asc(Mid$(Text1.Text, i, 1)) = 97 And Asc(Mid$(Text1.Text, i, 1)) = 122) Then
CharNum = CharNum + 1
End If
Next
Text2.Text = "字母出现次数:" CharNum
End Sub
private
sub
command1_click()
n
=
m
=
k
=
l
=
aa
=
bb
=
text1
do
until
len(bb)
=
aa
=
asc(bb)
bb
=
right(bb,
len(bb)
-
1)
aa
if
97
=
aa
and
aa
=
122
then
n
=
n
+
1
else
if
65
=
aa
and
aa
=
90
then
m
=
m
+
1
else
if
48
=
aa
and
aa
=
57
then
k
=
k
+
1
else
l
=
l
+
1
end
if
end
if
end
if
loop
picture1.print
"小写字母为";
n;
"个"
picture1.print
"大写字母为";
m;
"个"
picture1.print
"数字为";
k;
"个"
picture1.print
"特殊符号为";
l;
"个"
end
sub
你再调调