第一步,选出4个数用4重for,简单
第二步,+-x/ 4x4x3x3x2x2x1 就很繁琐
  好象要用 1+4x3x3x2x2 ?? 个for和select
  或者用递归吧
  哈哈,我不知道.

没有人会吗。大家帮帮忙啊

DIM a(4) AS INTEGER
INPUT "A,B,C,D:", a(1), a(2), a(3), a(4)
FOR i = 1 TO 4
    SWAP a(1), a(i)
    FOR j = 0 TO 3 ^ 3
        s = a(1)
        m = j
        p$ = STR$(a(1))
        FOR k = 2 TO 4
            n = m MOD 3
            m = m \ 3
            SELECT CASE n
            CASE 0: s = s + a(k)
            CASE 1: s = s - a(k)
            CASE 2: s = s * a(k)
            END SELECT
            p$ = p$ + MID$("+-*", n + 1, 1) + STR$(a(k))
        NEXT
        IF s = 24 THEN
           PRINT p$; "="; s
           SYSTEM
        END IF
    NEXT
NEXT
if s<>24 then print "ERROR"