Dim s1 As Integer, s2 As Integer
in_str = InputBox("请输入字符串")
For i = 1 To Len(in_str)
t$ = Mid$(in_str, i, 1)
If t$ = "a" Or t$ = "b" Then
Print t$
If t$ = "a" Then s1 = s1 + 1 Else s2 = s2 + 1
End If
Next i
Print "a=" & s1 & " b=" & s2
vb中编写从键盘输入1字符串a和字符串b,在a串中的第一个最小元素后面插入...
a = InputBox("输入A字串")b = InputBox("输入B字串")k = 1 For i = 1 To Len(a)If Mid(a, k, 1) > Mid(a, i, 1) Then k = i Next i a = Left(a, k) & b & Mid(a, k + 1)Print a Print b End Sub
VB程序从键盘输入任意字符串,统计其中大写字母、小写字母、数字和其他...
假设字符串为 strTmp，大写计数intUc，小写计数intLc，数字计数intNum，其它计数intOth dim i as integer,chrTmp as string intUc=0 intLc=0 intNum=0 intOth=0 for i=1 to len(strTmp)chrTmp=mid(strTmp,i,1)if (chrTmp>="A") and (chrTmp<="Z") then intUc=intUc+1 elseif (...
VB编程:输入一个字符串,判断其中有多少大写字母小写字母数字字符空
dim s as string s = InputBox("输入字符串：")for i = 1 to Len(s)if mid(s,i,1)>="A" And mid(s,i,1)<="Z" Then Num1 = Num1 + 1 elseif mid(s,i,1)>="a" And mid(s,i,1)<="z" Then Num2 = Num2 + 1 elseif mid(s,i,1)>="0" ...
vb编程在Text里输入一个字符串,回车后计算字符串中的数字和字母
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer Dim m As Integer n = 0 m = 0 If KeyAscii = 13 And Text1.Text <> "" Then For i = 1 To Len(Text1.Text) If Asc(UCase(Mid(Text1.Text, i, 1))) >= 65 And Asc(UCase(Mid(Text...
VB怎样设计一个程序【输入数字可以输出该数字的汉语拼音
a = Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))Text1.Text = CStr(a)Command1.Caption = "十转汉"Else MsgBox "请输入中文汉字"End If Else If Val(Text1.Text) >= 45217 And Val(Text1.Text) <= 63486 Then a = Val(Text1.Text)h = Hex(a)...
VB编写一个程序,统计输入的字符串中小写字母、大写字母、数字及其他符...
For i = 1 To s If Mid(Text1, i, 1) <> 32 Then '没空格 If 97 < Asc(Mid(Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 122 Then a = a + 1 '小写字母 If 65 < Asc(Mid(Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 90 Then b = b + 1 '大写的 If...
vb题目:在文本框中输入一串数字字符串,统计出各数字出现的次数。
For i = 0 To 9 Label1(i) = "数字" & i & "出现" & a(i) & "次"Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then KeyAscii = 0 Beep End If End Sub 牙膏\\5:看不懂吧？！
visual basic怎么使用vb计算一个字符串中的a出现的次数?
dim ls_input dim ls_char ls_input=inputbox("请输入您的字符串：")ls_char=inputbox("请输入您要统计的字符：")li_counter=0 li_len=len(ls_input)for li_i=1 to li_len if mid(ls_input,li_i,1)=ls_char then li_counter=li_counter+1 next msgbox("There are "+cstr(li_...
vb 利用文本框输入一个字符串,统计各英文字母出现次数,不区分大小写
1.使用函数将字符串全部转换成大写或小写；2.建立一个字符数组，对应26个字母；3.建立一个整数型数组，对应26个字母出现的次数；4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.VB妮可 - 首席运营官 的方法更为简单，受教了！
VB程序输入一串字符,统计其中字母A(不区分大小写)出现的次数。 网上...
编写程序，运行时按收用户键盘输入的一个长字符串，统计其中包含字母a的个数（不区分大小写），并在屏幕上输出统计结果。set talk off clear accept"请输入字符串:" to s accept"请输入字符串:" to a x=0 if a>="A".and.a="A".and.b VBA提供了两类字符串：一类为固定长度的字符串，声明...
