当前位置 :
【VB求一个三位数的排列组合如,给出(输入)的三位数为abc分别得出abcacbbacbcacabcba怎么写代码.我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for】
1人问答
八字精批流年运程八字合婚八字起名
问题描述:

VB求一个三位数的排列组合

如,给出(输入)的三位数为abc

分别得出abcacbbacbcacabcba

怎么写代码.

我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for循环的方法求出呢?

李柏峰回答:
  PrivateSubForm_Click()   Dima(3),i,j,k,xAsInteger   x=Val(InputBox("x="))   Ifx1000ThenExitSub   a(1)=x100'取百位上的数字   a(2)=x10Mod10'取十位上的数字   a(3)=xMod10'取个位上的数字   Cls   Fori=1To3   Forj=1To3   Fork=1To3   Ifa(i)a(j)Anda(j)a(k)Anda(k)a(i)Then   Printa(i)&a(j)&a(k)&"";   EndIf   Next   Next   Next   Print   EndSub
八字精批 八字合婚 八字起名 八字财运 2024运势 测终身运 姓名详批 结婚吉日
已出生未出生
最新更新
PC端 | 移动端 | mip端
字典翻译(zidianfy.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
电话:  邮箱:
Copyright©2009-2021 字典翻译 zidianfy.com 版权所有 闽ICP备2022014709号-7
lyric 頭條新聞
复制重新加载
原创不易,您的支持将成为鼓励我的动力
《【VB求一个三位数的排列组合如,给出(输入)的三位数为abc分别得出abcacbbacbcacabcba怎么写代码.我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for】|其它问答-字典翻译问答网》
1、付费复制方式
支付宝付费后即可复制当前文章
限时特价:5.99元
原价:20元
打开支付页
2、微信付费复制方式
微信扫码付费后即可复制当前文章
限时特价:5.99元
原价:20元