asp 生成字母AA,AB,AC,AD...AZ,BA,BB,BC...BZ....
答案:2 悬赏:0 手机版
解决时间 2021-03-26 14:53
- 提问者网友：感性作祟
- 2021-03-26 11:08
asp 生成字母AA,AB,AC,AD...AZ,BA,BB,BC...BZ....
最佳答案
- 五星知识达人网友：杯酒困英雄
- 2021-03-26 12:38
<%
Dim a()
For i = 0 To 3
Response.Write "【" & i + 1 & "码】
"
ReDim a(i)
a(0) = "@"
For j = 1 To i
a(j) = "A"
Next
Do
For j = 0 To i
If a(j) = "Z" Then
a(j) = "A"
Else
a(j) = Chr(Asc(a(j)) + 1)
Exit For
End If
Next
If j > i Then Exit Do
For k = i To 0 Step -1
Response.Write a(k)
Next
Response.Write " "
Loop
Response.Write "
"
Next
%>
Dim a()
For i = 0 To 3
Response.Write "【" & i + 1 & "码】
"
ReDim a(i)
a(0) = "@"
For j = 1 To i
a(j) = "A"
Next
Do
For j = 0 To i
If a(j) = "Z" Then
a(j) = "A"
Else
a(j) = Chr(Asc(a(j)) + 1)
Exit For
End If
Next
If j > i Then Exit Do
For k = i To 0 Step -1
Response.Write a(k)
Next
Response.Write " "
Loop
Response.Write "
"
Next
%>
全部回答
- 1楼网友：一把行者刀
- 2021-03-26 13:21
自己用for 循环写呗，加进数组里
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯