1,066
社区成员
发帖
与我相关
我的任务
分享help ! help!! help!!
AA,AB,AC,AD.........AZ
BA,BB,BC,BD.........BZ
.....................
.....................
.....................
YA,YB,YC,YD........YZ
ZA,ZB,ZC,ZD.........ZZ
BA,BB,BC,BD.........BZ
.....................
.....................
.....................
YA,YB,YC,YD........YZ
ZA,ZB,ZC,ZD.........ZZ
...全文
请发表友善的回复…
发表回复
尐孑 2006-06-29
- 打赏
- 举报
?????????????/
熊孩子开学喽 2006-02-21
- 打赏
- 举报
连题意都不肯写清楚,怎么能盼别人把答案也给你写清楚呢.
ZOU_SEAFARER 2006-02-15
- 打赏
- 举报
Option Explicit
Dim i As Integer
Dim j As Integer
Private Sub Form_Load()
i = 65
j = 65
End Sub
Private Sub Timer1_Timer()
Debug.Print Chr(i) & Chr(j)
j = j + 1
If j = 91 Then
j = 65
i = i + 1
End If
If i = 91 Then Timer1.Enabled = False
End Sub
Dim i As Integer
Dim j As Integer
Private Sub Form_Load()
i = 65
j = 65
End Sub
Private Sub Timer1_Timer()
Debug.Print Chr(i) & Chr(j)
j = j + 1
If j = 91 Then
j = 65
i = i + 1
End If
If i = 91 Then Timer1.Enabled = False
End Sub
guoluguolu 2006-02-15
- 打赏
- 举报
我每次隻要得到一個就可以了,時按AA,AB,AC..........ZZ的順序得到。
是用VB來實現的.
望指教！！謝謝咯！
faysky2 2006-02-15
- 打赏
- 举报
楼主想做什么？
