今天心情好,给你做一题。要另一题答案请先结贴给分。做第二题吧: Dim count(0 To 127) As Integer For i = 1 To Len(Text1.Text) count(Asc(UCase(Mid(Text1.Text, 1)))) = count(Asc(UCase(Mid(Text1.Text, 1)))) + 1 Next For i = 65 To 91 Label1.Caption = Label1.Caption + Chr(i) & "=" & Val(count(i)) & " " Next
Dim count(0 To 127) As Integer For i = 1 To Len(Text1.Text) count(Asc(UCase(Mid(Text1.Text, i, 1)))) = count(Asc(UCase(Mid(Text1.Text, i, 1)))) + 1 Next For i = 65 To 91 Label1.Caption = Label1.Caption + Chr(i) & "=" & Val(count(i)) & " " Next
count(Asc(UCase(Mid(Text1.Text, i, 1)))) 能 解释下 这句是什么意思吗
asc字母转ascii码 ucase小写转大写,大写不变 mid取字符串中的某个字符
Private Sub Command1_Click() Dim aResult() As Long Dim sTemp As String Dim i&, v As Long ReDim aResult(25) sTemp = Text1.Text For i = 1 To Len(sTemp) v = Asc(Mid$(sTemp, i, 1)) Or &H20 If (v >= 97 And v <= 122) Then ' Asc("a") = 97 Asc("z") = 122 v = v - 97 aResult(v) = aResult(v) + 1 End If Next ' 给出统计结果: sTemp = "" For i = 0 To 25 v = aResult(i) If (v) Then sTemp = sTemp & Chr$(65 + i) & "=" & v & " " Next Label1.Caption = sTemp End Sub
为了简单起见,假设只有姓名性别两个字段,别的你自己举一反三定义两个成员变量,写在事件处理函数外面 Private aName() As String Private aSex() As String添加按钮 ReDim Preserve aName(UBound(aName) + 1) aName(UBound(aName)) = Text1.Text Text1.Text = "" ReDim Preserve aSex(UBound(aSex) + 1) aSex(UBound(aSex)) = Text2.Text Text2.Text = ""查询按钮 Dim isFind As Boolean isFind = False For i = LBound(aName) To UBound(aName) If aName(i) = Text1.Text Then isFind = True Text2.Text = aSex(i) Exit For End If Next If Not(isFind) Then MsgBox "查无此人"退出按钮 End
Dim count(0 To 127) As Integer
For i = 1 To Len(Text1.Text)
count(Asc(UCase(Mid(Text1.Text, 1)))) = count(Asc(UCase(Mid(Text1.Text, 1)))) + 1
Next
For i = 65 To 91
Label1.Caption = Label1.Caption + Chr(i) & "=" & Val(count(i)) & " "
Next
For i = 1 To Len(Text1.Text)
count(Asc(UCase(Mid(Text1.Text, i, 1)))) = count(Asc(UCase(Mid(Text1.Text, i, 1)))) + 1
Next
For i = 65 To 91
Label1.Caption = Label1.Caption + Chr(i) & "=" & Val(count(i)) & " "
Next
ucase小写转大写,大写不变
mid取字符串中的某个字符
Dim aResult() As Long
Dim sTemp As String
Dim i&, v As Long ReDim aResult(25)
sTemp = Text1.Text
For i = 1 To Len(sTemp)
v = Asc(Mid$(sTemp, i, 1)) Or &H20
If (v >= 97 And v <= 122) Then
' Asc("a") = 97 Asc("z") = 122
v = v - 97
aResult(v) = aResult(v) + 1
End If
Next
' 给出统计结果:
sTemp = ""
For i = 0 To 25
v = aResult(i)
If (v) Then sTemp = sTemp & Chr$(65 + i) & "=" & v & " "
Next
Label1.Caption = sTemp
End Sub
Private aName() As String
Private aSex() As String添加按钮
ReDim Preserve aName(UBound(aName) + 1)
aName(UBound(aName)) = Text1.Text
Text1.Text = ""
ReDim Preserve aSex(UBound(aSex) + 1)
aSex(UBound(aSex)) = Text2.Text
Text2.Text = ""查询按钮
Dim isFind As Boolean
isFind = False
For i = LBound(aName) To UBound(aName)
If aName(i) = Text1.Text Then
isFind = True
Text2.Text = aSex(i)
Exit For
End If
Next
If Not(isFind) Then MsgBox "查无此人"退出按钮
End