| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 485 人关注过本帖
标题:[求助]在线急等到天明
只看楼主 加入收藏
ameng
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-6-13
收藏
 问题点数:0 回复次数:4 
[求助]在线急等到天明
问题:将5个数加减乘除,将得到的结果按大小排列!
我的解决办法:用嵌套循环,代码大略如下:
Dim i(4) As Integer '代表输入的5个数
Dim a(3) As String
Dim b(3) As String
Dim c(3) As String
Dim d(3) As String

    a(0) = b(0) = c(0) = d(0) = "+"  ' 这4句出错
    a(1) = b(1) = c(1) = d(1) = "-"
    a(2) = b(2) = c(2) = d(2) = "*"
    a(3) = b(3) = c(3) = d(3) = "/"

Private Sub JS()
    For h = 0 To 119
        For j = 0 To 3
            For k = 0 To 3
                For l = 0 To 3
                    For n = 0 To 3
                        Sum(h) = i(0) & a(j) & i(1) & b(k) & i(2) & c(l) & i(3) & d(n) & i(4)
                    Next n
                Next l
            Next k
        Next j
    Next h
End Sub


求各位大大给点提示啊!感谢!
搜索更多相关主题的帖子: 在线 天明 
2005-08-11 02:30
ameng
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-6-13
收藏
得分:0 
应该是String变量不能用dim a(3) as string这样申明吗?
改成 :
Dim i(4) As Integer '代表输入的5个数
Dim a(3) As integer
Dim b(3) As integer
Dim c(3) As integer
Dim d(3) As integer

    a(0) = b(0) = c(0) = d(0) = 43
    a(1) = b(1) = c(1) = d(1) = 45
    a(2) = b(2) = c(2) = d(2) = 42
    a(3) = b(3) = c(3) = d(3) = 47

Private Sub JS()
    h = i(0) & Chr(a(0)) & i(1) & Chr(b(0)) & i(2) & Chr(c(0)) & i(3) & Chr(d(0)) & i(4)
    Print h
End Sub


用5个1做实验,结果打印出:1口1口1口1口1的结果。看样子是“a(0)=b(0)=c(0)=d(0)=43”这一句有问题了,望指教!

[此贴子已经被作者于2005-8-11 3:12:04编辑过]



朋友,一起进步,好吗?^_^ ameng2002@
2005-08-11 02:52
ameng
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-6-13
收藏
得分:0 
再次修改成:
    a(0) = 43
    b(0) = 43
    c(0) = 43
    d(0) = 43
    a(1) = 45
    b(1) = 45
    c(1) = 45
    d(1) = 45
    a(2) = 42
    b(2) = 42
    c(2) = 42
    d(2) = 42
    a(3) = 47
    b(3) = 47
    c(3) = 47
    d(3) = 47

实验:用5个1
h = i(0) & Chr(a(0)) & i(1) & Chr(b(0)) & i(2) & Chr(c(0)) & i(3) & Chr(d(0)) & i(4)
Print h

结果是:1+1+1+1+1
并不是我想要的结果!晕

朋友,一起进步,好吗?^_^ ameng2002@
2005-08-11 03:10
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
以下是引用ameng在2005-8-11 2:30:00的发言: a(0) = b(0) = c(0) = d(0) = "+" ' 这4句出错 a(1) = b(1) = c(1) = d(1) = "-" a(2) = b(2) = c(2) = d(2) = "*" a(3) = b(3) = c(3) = d(3) = "/"
你是赋值么? 意思是a(0)="+" ;b(0)="+" ;c(0)="+"; d(0)="+" ? 如果是那就错了,不能这样,得分开赋值,a(0)="+" b(0)="+" ……

五月的雪
2005-08-11 11:23
ameng
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-6-13
收藏
得分:0 
恩,谢谢!

朋友,一起进步,好吗?^_^ ameng2002@
2005-08-11 21:59
快速回复:[求助]在线急等到天明
数据加载中...
 
   



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

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