比如:00AAAAA,下一个是00AAAAB,00AAAAC......00AAABA,00AAABB.......
解决方案 »
- 带英文字符串计算补码程序出现的问题
- 请问用vb写一个局域网流量监控软件需要什么知识
- 关于vb的窗口中的Picturebox控件(visible = false)中,绘画响应的线条,生成图片文件,各位帮忙
- 编译dll出错!!!
- 求一非标准DLL的调用参数
- 我这个DLL接口在VB中应该如何调用呢?
- 如何判断ACCESS数据库中是否存在某个表?
- 有谁知道sourcesafe中如何实现两文本的Show Differences??
- 是否能实现在一个应用程序中集成另外一个程序?问题较难,请多多发言,TKS.
- 如何用程序锁定计算机????
- 如何做打印预览?打印一个固定格式的聘任书!
- 求VB6.0 DES加密解密源码
0--F,还是0--Z,还是0--z???
Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long, x5 As Long
Cls
For x1 = 65 To 90
For x2 = 65 To 90
For x3 = 65 To 90
For x4 = 65 To 90
For x5 = 65 To 90
DoEvents
Print "00" + Chr(x1) + Chr(x2) + Chr(x3) + Chr(x4) + Chr(x5)
Next
Next
Next
Next
NextEnd Sub
print "00";str1
for i=len(str1) to 1 step -1
do
str2=left(str1,i-1) & cstr(iif((asc(mid(str1,i,1))+1)>asc("Z"),asc("A"),asc(right(str1,1))+1)))
print "00";str2
loop until right(str2,1)="Z"
next
Private Function CharNumberADD1(startNumber As String) As String
Dim returnStr As String
Dim charASCArr(7) As Integer
Dim i As Integer
For i = 6 To 0 Step -1
charASCArr(i) = Asc(Mid(startNumber, i + 1, 1))
Next
Dim nextAdd1 As Boolean
nextAdd1 = True
For i = 6 To 0 Step -1
If nextAdd1 = True Then
nextAdd1 = False
charASCArr(i) = charASCArr(i) + 1
If charASCArr(i) > 90 Then
nextAdd1 = True
charASCArr(i) = 65
End If
End If
Next
For i = 0 To 6
returnStr = returnStr & Chr(charASCArr(i))
Next
CharNumberADD1 = returnStr
End Function
不是要把它们遍历出来 ,是要用来放到数据库里做ID的,
所以要取出最大的值,再加一,
最大值就是00ZZZZZ啊 或者26*26*26*26*26