28,406
社区成员
发帖
与我相关
我的任务
分享100分就这么容易拿！！！！！！！！！！
求一个小程序
循环01-99
加
a-Z字母
即
00a
00b
00c
...
00z
一直到99z
共2600个
循环01-99
加
a-Z字母
即
00a
00b
00c
...
00z
一直到99z
共2600个
...全文
请发表友善的回复…
发表回复
dh20156 2005-09-20
- 打赏
- 举报
参考：
Private Sub Command1_Click()
ReDim arrtemp(99, 25) As Variant
For i = 97 To 122
For n = 0 To 99
If n < 10 Then
arrtemp(n, i - 97) = "0" & n & Chr(i)
Else
arrtemp(n, i - 97) = n & Chr(i)
End If
Next
Next
MsgBox arrtemp(0, 0)
MsgBox arrtemp(99, 25)
End Sub
Private Sub Command1_Click()
ReDim arrtemp(99, 25) As Variant
For i = 97 To 122
For n = 0 To 99
If n < 10 Then
arrtemp(n, i - 97) = "0" & n & Chr(i)
Else
arrtemp(n, i - 97) = n & Chr(i)
End If
Next
Next
MsgBox arrtemp(0, 0)
MsgBox arrtemp(99, 25)
End Sub
itzhiren 2005-09-20
- 打赏
- 举报
又来晚了
Pigmai 2005-09-20
- 打赏
- 举报
自己解决了
Pigmai 2005-09-20
- 打赏
- 举报
up
Pigmai 2005-09-19
- 打赏
- 举报
简单一点吧
有什么函数能循环显示A-Z 26个字母
有什么函数能循环显示A-Z 26个字母
