看图编写VB一个8其它打位置上是任意_百度知道
看图编写VB一个8其它打位置上是任意
//c./zhidao/wh%3D450%2C600/sign=1cb71e93ddb44aed591bb6e0862cab37/738bfcc://g.com/zhidao/wh%3D600%2C800/sign=33d811fbb41bbe064af68c//zhidao/wh%3D450%2C600/sign=bc628ef7afd3fd1f365caa3e057edda144aded7a20cf430ad8516.hiphotos.hiphotos.hiphotos.baidu.jpg" esrc="http://g://c.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://g看图编写VB一个8其它打位置上是任意<a href="/zhidao/pic//zhidao/wh%3D600%2C800/sign=bee354492bfbd962e84eb/902397dda144aded7a20cf430ad8516
提问者采纳
And&&=&---------&-&&&And&=&&&&&&&&&&&*&_&And&&&&&j&&To&Mod&&\&&&&&j;&&&&;Mod&&&j&nbsp,&k&&&&&j;&D&&\&DMod&&&For&&0&&10)&&i&&&&&&&&=&&&&-&*&&(k&&&\&&&&&For&nbsp.Print&_&&8&1000&If&\&&&*&&100)&&8&D100&&&&100&&&&&&D&nbspSub&k&&j)&&&&&&=&&&j&(i&ByVal&&&;&&&&&&&&&&&D&100)&nbsp.Print&-&100)&&\&i&k&&&&&&*&;&&And&&&&&&&100)&&&-&And&&100)&&&&&;SubSub&(k&*&=&&&&&&&\&&&&And&&&&&k&&*&&&*&;\&000&100)&&j&&&(k&Dim&((i&\&&&&-&&&And&i&&&90&&100)&&j&10&&&&&&&&&=&;&&nbsp,&;&8&100&i&&Mod&&&&&&&&&&&i&&&&(i&Mod&10&i&_&&&&&&j&&&Mod&&;&&&j&*&&(k&*&1000&;&---------&D&&&j)&&(k&&main()&&&&8&&&&Mod&*&-&100&&&&100&(k&&&&j&&&&nbsp,&&j)&&100)&&\&100)&j)&100)&*&;&&&_&&quot.Print&&&pt&&&k&&j)&&=&&&i&_&100&&&j&&-&And&&&&999999&&&&\&&\&&&&&&&k&k&+&+&&DAnd&&j)&&&*&10&&&Mod&&&&nbsp.Print&&&&&10&&/&nbsp.Print&100&0&&&&&&j&)&;|&*&&j&&&NextEnd&(k&&&&=&(i&&\&&And&&j&&&quot,&10000&Mod&j&Then&&100)&(k&j&100&&&&&&&&100&999&&*&&k&And&&&10)&&nbsp,&&&nbsp.Print&pt(ByVal&&&&---------&&/&&&&&&100&10&&&;&&&&&&&(k&Mod&\&nbsp.Print&&&D&To&k&&&nbsp.Print&&&&&&Mod&999&&&&&&Next&&ByVal&&&&&If&_&D&&8&&_&&&&nbsp.Print&j&(i&&*&End&&nbsp,&&&&_&&&&&&\&&&&&&100)&&&\&&1000&&&&&(k&10)&&&&*&*&&.Print&&&&&&And&&l&-&i;&(k&&&---------&&&*&&&=&&10&&&1000&&&&&j&And&((i&&100&D&&&i&&80&And&&&&100&(i&D&*&(k&&&quot,&100&&&End&&nbsp.Print&&&&nbsp.Print&nbsp
提问者评价
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb课后习题参考答案(1)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb课后习题参考答案(1)
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩10页未读，继续阅读
你可能喜欢VB课后习题答案 陈庆章主编__百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB课后习题答案 陈庆章主编_
上传于||文档简介
&&V&#8203;B&#8203;课&#8203;后&#8203;习&#8203;题&#8203;答&#8203;案
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩32页未读，继续阅读
你可能喜欢看图写作文，题目和图中的内容都要用上。书本有答案但是太长单词太难，求高手写简单的。60词左右&
只要把好词好句用上去
为您推荐：
扫描下载二维码看图编写VB求出所有可能168_百度知道
看图编写VB求出所有可能168
看图编写VB求出所有可能168
提问者采纳
Dim&a%(8)Sub&main()&&&&Dim&m&,&n%,&count%&&&&For&m&=&123&To&987&&&&&&&&For&n&=&123&To&987&&&&&&&&&&&&If&ok(m,&0)&And&ok(n,&3)&And&ok(m&+&n,&6)&And&m&+&n&&&1000&And&m&&&n&Then&&&&&&&&&&&&&&&&count&=&count&+&1&&&&&&&&&&&&&&&&Debug.Print&&No.&;&&&:&;&m;&&+&;&n;&&=&;&m&+&n&&&&&&&&&&&&End&If&&&&&&&&Next&&&&NextEnd&SubFunction&ok(ByVal&t&,&ByVal&z%)&As&Boolean&&&&Dim&p1,&p2&&&&For&p1&=&z&To&z&+&2&&&&&&&&a(p1)&=&t&Mod&10&&&&&&&&t&=&t&\&10&&&&&&&&If&a(p1)&=&0&Then&Exit&Function&&&&&&&&For&p2&=&0&To&p1&-&1&&&&&&&&&&&&If&a(p1)&=&a(p2)&Then&Exit&Function&&&&&&&&Next&&&&Next&&&&n哗厂糕断蕹登革券宫猾ok&=&TrueEnd&Function
提问者评价
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}