用vb编程：在文本框中输入一个字符串，统计其中的大写英文、小写英文、数字及其他字符各有多少个。 VB输入一串字符串，统计并输出其中大写英文字母、小写英文字母...

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim stra As String
Dim a As Integer
For i = 1 To Len(Text1.Text)
stra = Mid(Text1.Text, i, 1)

MsgBox "当前字母为：" & stra & " 添加分析即可"

'利用ASC的值区分字母数字字符等,因为要统计的太多了不多说，只教方法
' if Asc(stra)= 91 then

Next

End Sub

大小写的情形用ASC码即可进行判断。数字的话，可以用isnumeric()函数进行判断，其他字符的话，其实就是总的字符数减去上述各种情形的和即可。

Private
Sub
Command1_Click()
For
i
=
1
To
Len(Text1.Text)
stemp
=
Mid(Text1.Text,
i,
1)
If
IsNumeric(stemp)
Then
S1
=
S1
+
1
If
Asc(stemp)
<=
122
And
Asc(stemp)
>=
97
Then
S2
=
S2
+
1
If
Asc(stemp)
<=
90
And
Asc(stemp)
>=
65
Then
S3
=
S3
+
1
Next
'S1个数字，，s2个小写
s3个大写
End
Sub

Dim textValue As String
Dim textLth As Integer
Dim CharValue As Integer
Dim UpperCaseChar As Integer
Dim lowerCaseChar As Integer
Dim NumberChar As Integer
Dim otherChar As Integer

textValue = Text1.Text
textLth = Len(textValue)
For i = 1 To textLth
CharValue = Asc(Mid(textValue, i, 1))
Select Case CharValue
Case 65 To 90
UpperCaseChar = UpperCaseChar + 1
Case 97 To 122
lowerCaseChar = lowerCaseChar + 1
Case 48 To 57
NumberChar = NumberChar + 1
Case Else
otherChar = otherChar + 1
End Select
Next

MsgBox "大写：" & UpperCaseChar & " 小写" & lowerCaseChar & _
" 数字：" & NumberChar & " 其他：" & otherChar

vb编程：在文本框中输入一个字符串，统计其中的大写英文、小写英文、数字 汉字 韵母及其他字符各有多少个~

用for next 然后判断ascii

下次贴代码，别贴截图。你还指望别人练打字抄一遍吗？
'改为Print "大写字母有：" & CStr(Num1) & "个"

VB中 在键盘上输入一个小写字母,要求在窗体上显示其ASCII码值 该怎么...
答：在窗体上建立一个command1，和一个Text1,其中Text1用于输入字母。代码如下：Option Explicit Dim a% ‘定义一变量，用于存放字母的ascii Private Sub Command1_Click()Print a ‘打印字母的Ascii End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)a = KeyAscii '记录输入的字母的Asci...

如何在VB程序中的文本框内输入一段文字,请大家帮忙看看,谢谢
答：你要的是在程序加载时候，TEXT中预先存在的文字 ，还是想通过程序使TEXT中出现一组文字？第一种：在VB中，编辑状态下，单击你所需的TEXT控件，将属性中的text后面的TEXT1更改为你想要输入的文字。第二种：text1.TEXT="要输入的文字"

VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?
答：End Sub Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick System.Windows.Forms.SendKeys.Send("123")End Sub End Class 看你的VB.NET 版本了 用 My.Computer.Keyboard.SendKeys("123", True) 代替 System.Windows.Forms....

VB中怎样在TEXT文本框输入文本
答：VB中在TEXT文本框输入文本应该不是问题，文本框获得焦点，就可直接在文本框输入文本。估计问的是如何输入文本文件到文本框。使用Open语句打开文本文件，逐行读入文本文件。Private Sub Command1_Click() Dim strSj As String Dim s As String Open "c:\10.txt" For Input As #1 Do Unt...

VB问题:在一个文本框中任意输入一个字母字符串,将奇数位置上的字母变...
答：VF问题：将一个字符串上的所有偶数位置上的字母转换成大写，不是字母则不换step 2 lcstr=stuff(lcstr,i,1,upper(substr(lcstr,i,1))) endfor ,

vb中如何在文本框中加入文字?比如有若干个按钮,点击一个就向该文本框...
答：文本框内的内容为:"135"你现在点击一个按钮,要使他变成"2135"则 TEXTBOX1.text="2"&TEXTBOX1.text 变为"1352"则 TEXTBOX1.text=TEXTBOX1.text&"2"要在其他文字添加则可以用mid等函数先分割TEXTBOX1.text,然后再把几部分连接起来 其他一些函数也非常有用 如replace TEXTBOX1.text=replace(...

VB 在指定文本框内输入指定字符代码
答：End Sub Private Sub Form_Load()Timer2.Enabled = False Timer2.Interval = 300 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer()If GetAsyncKeyState(vbKeyF1)Then Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer()Static a As Integer a = a + 1 If a = ...

使用VB的Change事件,在一个文本框中输入一行文字,在另外两个文本框中...
答：Private Sub Text1_Change()Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub 想实现字体字号不同，在text2/3的属性里面设置字体即可 VB6.0测试通过……

VB题:在文本框里输入字符a,单击命令按钮,窗体输出26个小写英文字母abcd...
答：Dim i as Integer i=0 For i as integer to 23 Me.Print(Chr(Asc("a")+i))Next

VB,用当在第一个文本框里输入如下文字,并选中部分内容,然后单击复制...
答：Private Sub Command1_Click() '复制 Text2.SelText = Text1.SelText End Sub Private Sub Command2_Click() '清除 Text1.Text = ""Text2.Text = ""End Sub