一个数组的问题!
Private Sub butGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butGenerate.Click
Dim nChar As String
Dim i As Integer
Dim a As String
Dim b() As Integer
a = txtName.Text
z = txtName.Text.Length - 1
For i = 0 To z Step +1
nChar = a.Chars(i)
ReDim Preserve b(i)
b(i) = AscW(nChar) * 4
Next
End Sub
比如txtname中输入spr007,得到每个字符的ASCII码*4后是
b(0)=s=460
b(1)=p=448
b(2)=r=456
b(3)=0=192
b(4)=0=192
b(5)=7=220
怎么把b(0)~~~(b5)相加!
问题点数：50、回复次数：2Top
1 楼lijun84（李俊俊）回复于 2004-05-02 22:24:05 得分 5
U~!P~!Top
2 楼tuwicn（木狼）回复于 2004-05-02 23:24:50 得分 45
试试吧:
Private Sub butGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butGenerate.Click
Dim nChar As String
Dim i As Integer
Dim a As String
Dim z As Integer
Dim m As Integer
Dim b() As Integer
a = txtName.Text
z = txtName.Text.Length - 1
For i = 0 To z Step +1
nChar = a.Chars(i)
ReDim Preserve b(i)
b(i) = AscW(nChar) * 4
m = m + b(i)
Next
End SubTop
