51Testing软件测试论坛

标题: 新手求代码 [打印本页]

作者: qwe777 时间: 2008-10-28 08:39
标题: 新手求代码
小弟新手上路，哪位高手能帮忙写一段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
不是很明白楼主的需求,能不能详细点?

作者: 今天有雾 时间: 2008-10-28 11:32
可能需要用asc码进行转换了写吧

作者: qwe777 时间: 2008-10-28 12:53
比如一个文本框，一个确定按钮，输入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
是不是可以建一个xls表格输入37个字符，然后逐行调用？

作者: o0o 时间: 2008-11-5 22:23
谁会啊，我也要学。

作者: mumufu 时间: 2008-11-6 10:26
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
楼上你这个msgbox狠的
停都停不下来

作者: mumufu 时间: 2008-11-6 17:32

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

作者: sudawei686 时间: 2008-11-6 17:45
多亏楼上的提醒，我用print B替换了下，不过跑得还是够疯狂。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)