51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2109|回复: 9
打印 上一主题 下一主题

[原创] 新手求代码

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 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个下划线。
感激不尽!!!!!!!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-10-28 11:19:12 | 只看该作者
不是很明白楼主的需求,能不能详细点?
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-10-28 11:32:21 | 只看该作者
可能需要用asc码进行转换了写吧
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 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次输入,这样讲明白吗?
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-10-28 13:00:04 | 只看该作者
是不是可以建一个xls表格输入37个字符,然后逐行调用?
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-11-5 22:23:40 | 只看该作者
谁会啊,我也要学。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 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
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2008-11-6 15:31:24 | 只看该作者
楼上你这个msgbox狠的
停都停不下来
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-11-6 17:32:31 | 只看该作者

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

使用道具 举报

该用户从未签到

10#
发表于 2008-11-6 17:45:02 | 只看该作者
多亏楼上的提醒,我用print B替换了下,不过跑得还是够疯狂。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-28 04:44 , Processed in 0.070717 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表