编写VB程序,根据用户在文本框text1中输入的文本,统计其中数字(0~9)中奇数和偶数的个数

,英文字母（区分大小写）的个数和其他字符的个数，并在窗体中输出统计结果。

举报该文章

第1个回答 2014-04-05

vb还是VB.NET，这两种方式实现有很大差别，追问

当然是VB那！

追答

Private Sub Command1_Click()

Cls

Dim l, number, upper, lower, i, other As Integer

l = Len(Text1.Text)

For i = 1 To l Step 1

If AscW(Mid(Text1.Text, i, 1)) >= 65 And AscW(Mid(Text1.Text, i, 1)) <= 90 Then

upper = upper + 1

'MsgBox (AscW(Mid(Text1.Text, i, 1)))

ElseIf AscW(Mid(Text1.Text, i, 1)) >= 48 And AscW(Mid(Text1.Text, i, 1)) <= 57 Then

number = number + 1

ElseIf AscW(Mid(Text1.Text, i, 1)) >= 97 And AscW(Mid(Text1.Text, i, 1)) <= 122 Then

lower = lower + 1

Else

other = other + 1

End If

Print "文本长度为:" & l & vbCrLf & "数字一共有:" & number & vbCrLf & "大写字母有:" & upper & vbCrLf & "小写字母有:" & lower & vbCrLf & "其他字符有:" & other

End Sub

追问

我输入了一下，好像有错误，数字数不出来。

追答

请使用复制粘贴

相似回答

大家正在搜