vb 急需 作业 刚学的数组 不怎么会 求解

Question

  求解  急需   刚学  不怎么会  明天要交vb 基础

Answer 1

今天心情好，给你做一题。要另一题答案请先结贴给分。做第二题吧：
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

Answer 2

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

Answer 3

  count(Asc(UCase(Mid(Text1.Text, i, 1))))  能  解释下  这句是什么意思吗    

Answer 4

asc字母转ascii码
ucase小写转大写，大写不变
mid取字符串中的某个字符

Answer 5

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

Answer 6

为了简单起见，假设只有姓名性别两个字段，别的你自己举一反三定义两个成员变量，写在事件处理函数外面
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