qwe777 发表于 2008-10-28 08:39:44

新手求代码

小弟新手上路，哪位高手能帮忙写一段VB代码，取值10个数字“0-9”，26个字母“a-z”，下划线“_”，共计37个字符，实现以下功能：
第一次调用输出Msgbox: 000， 第二次输出001，第三次第四次...输出（003,004,005......009,00a,00b......00z,00_,010,011..... _ _z,._ _ _(中间没有空格)），最后一次输出3个下划线。
感激不尽！！！！！！！

风过无息 发表于 2008-10-28 11:19:12

不是很明白楼主的需求,能不能详细点?

今天有雾 发表于 2008-10-28 11:32:21

可能需要用asc码进行转换了写吧

qwe777 发表于 2008-10-28 12:53:46

比如一个文本框，一个 确定 按钮，输入000后确定，然后输入001后确定，输入顺序是这样的，先数字，后字母，最后下划线（000,001,002......008,009,00a,00b,00c......00x,00y,00z,00_,010,011,012..... __x,_ _y,_ _z,._ _ _）,应该是10+26+1=37，37*37*37=50653次输入，这样讲明白吗？

o0o 发表于 2008-10-28 13:00:04

是不是可以建一个xls表格输入37个字符，然后逐行调用？

o0o 发表于 2008-11-5 22:23:40

谁会啊，我也要学。

mumufu 发表于 2008-11-6 10:26:15

Dim A(37),B
dim fso,f,i,j,k,l
Const ForReading=1
set fso=createobject("scripting.FileSystemObject")
set f=fso.OpenTextFile("C:\a.txt",ForReading)
for i=0 to 36
A(i)=f.readline
next
f.close
for j=0 to 36
        for k=0 to 36
                for l=0 to 36       
                B=A(j)&A(k)&A(l)
                msgbox B
                next
        next
next

没有蛀牙 发表于 2008-11-6 15:31:24

楼上你这个msgbox狠的
停都停不下来

mumufu 发表于 2008-11-6 17:32:31

:lol
循环的太多了，主要是LZ要求37*37*37=50653次输入，
直接任务管理器，结束wscript.exe进程，就好了
只是实现了输入的部分，其他的再自己改了

sudawei686 发表于 2008-11-6 17:45:02

多亏楼上的提醒，我用print B替换了下，不过跑得还是够疯狂。
页: [1]
查看完整版本: 新手求代码