| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 648 人关注过本帖
标题:(vb6.0)遇到的几个难题
取消只看楼主 加入收藏
nbatu3065159
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-1-20
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
(vb6.0)遇到的几个难题
我是新手 做个简单的程序如下
   有6个textBox  名称分别是text1 text2 text3 text4 text5  text6     
   有1个commandButton    名称是command1
任务1:text1 text2 text3 text4 text5(只能输入2个数字    这个妹子以解决)
任务2:text1 text2 text3 text4 text5(只能输入01——11) 这个不会
任务3:  点一下command1  
If Text1.Text = "03" Then Text6.Text = "01 02 03"
    If Text1.Text = "04" Then Text6.Text = "01 03 04"
    If Text1.Text = "05" Then Text6.Text = "01 04 05   02 03 05"
    If Text1.Text = "06" Then Text6.Text = "01 05 06   02 04 06"
    If Text1.Text = "07" Then Text6.Text = "01 06 07   02 05 07    03 04 07"
    If Text1.Text = "08" Then Text6.Text = "01 07 08   02 06 08    03 05 08"
    If Text1.Text = "09" Then Text6.Text = "01 08 09   02 07 09    03 06 09   04 05 09"
    If Text1.Text = "10" Then Text6.Text = "01 09 10   02 08 10    03 07 10   04 06 10"
    If Text1.Text = "11" Then Text6.Text = "01 10 11   02 09 11    03 08 11   04 07 11   05 06 11"
If Text2.Text = "03" Then Text6.Text = "01 02 03"
    If Text2.Text = "04" Then Text6.Text = "01 03 04"
    If Text2.Text = "05" Then Text6.Text = "01 04 05   02 03 05"
    If Text2.Text = "06" Then Text6.Text = "01 05 06   02 04 06"
    If Text2.Text = "07" Then Text6.Text = "01 06 07   02 05 07    03 04 07"
    If Text2.Text = "08" Then Text6.Text = "01 07 08   02 06 08    03 05 08"
    If Text2.Text = "09" Then Text6.Text = "01 08 09   02 07 09    03 06 09   04 05 09"
    If Text2.Text = "10" Then Text6.Text = "01 09 10   02 08 10    03 07 10   04 06 10"
    If Text2.Text = "11" Then Text6.Text = "01 10 11   02 09 11    03 08 11   04 07 11   05 06 11"
If Text3.Text = "03" Then Text6.Text = "01 02 03"
    If Text3.Text = "04" Then Text6.Text = "01 03 04"
    If Text3.Text = "05" Then Text6.Text = "01 04 05   02 03 05"
    If Text3.Text = "06" Then Text6.Text = "01 05 06   02 04 06"
    If Text3.Text = "07" Then Text6.Text = "01 06 07   02 05 07    03 04 07"
    If Text3.Text = "08" Then Text6.Text = "01 07 08   02 06 08    03 05 08"
    If Text3.Text = "09" Then Text6.Text = "01 08 09   02 07 09    03 06 09   04 05 09"
    If Text3.Text = "10" Then Text6.Text = "01 09 10   02 08 10    03 07 10   04 06 10"
    If Text3.Text = "11" Then Text6.Text = "01 10 11   02 09 11    03 08 11   04 07 11   05 06 11"
If Text5.Text = "03" Then Text6.Text = "01 02 03"
    If Text5.Text = "04" Then Text6.Text = "01 03 04"
    If Text5.Text = "05" Then Text6.Text = "01 04 05   02 03 05"
    If Text5.Text = "06" Then Text6.Text = "01 05 06   02 04 06"
    If Text5.Text = "07" Then Text6.Text = "01 06 07   02 05 07    03 04 07"
    If Text5.Text = "08" Then Text6.Text = "01 07 08   02 06 08    03 05 08"
    If Text5.Text = "09" Then Text6.Text = "01 08 09   02 07 09    03 06 09   04 05 09"
    If Text5.Text = "10" Then Text6.Text = "01 09 10   02 08 10    03 07 10   04 06 10"
    If Text5.Text = "11" Then Text6.Text = "01 10 11   02 09 11    03 08 11   04 07 11   05 06 11"
If Text4.Text = "03" Then Text6.Text = "01 02 03"
    If Text4.Text = "04" Then Text6.Text = "01 03 04"
    If Text4.Text = "05" Then Text6.Text = "01 04 05   02 03 05"
    If Text4.Text = "06" Then Text6.Text = "01 05 06   02 04 06"
    If Text4.Text = "07" Then Text6.Text = "01 06 07   02 05 07    03 04 07"
    If Text4.Text = "08" Then Text6.Text = "01 07 08   02 06 08    03 05 08"
    If Text4.Text = "09" Then Text6.Text = "01 08 09   02 07 09    03 06 09   04 05 09"
    If Text4.Text = "10" Then Text6.Text = "01 09 10   02 08 10    03 07 10   04 06 10"
    If Text4.Text = "11" Then Text6.Text = "01 10 11   02 09 11    03 08 11   04 07 11   05 06 11"
我想做的是点一下command1     text1 text2 text3 text4 text5的结果 都显示在text6.text(未解决)
任务4:   text6  每行只能输入8个字符,多少行不限制(未解决)
以上就是妹子的难题  希望高手给与解决(如果是要微信号 QQ号 手机号的请点关闭)
2015-01-20 13:32
快速回复:(vb6.0)遇到的几个难题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023931 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved