老师有作业，想半天想不出来，望高手帮帮忙咯……~嘿嘿。
1.有一家卖彩票的，发行的彩票号是0000~9999，如果有两个数字相同就奖10元，有3个相同的数字就奖100元，有4个相同的数字就奖1000元，问题是一共需要多少钱来发奖。
这个题目，一开始就用分解数字的那个，把千位百位十位个位都分解出来，然后准备搞循环的时候，就是next without for ，无奈啊，还有一开始的时候，
for x = 0000 to 9999
“0000”总是打不上去，打出来就是0了，奇怪，不知道怎么算。
希望高手帮帮忙啊。
2.打一张九九乘法表。
我的程序是这样的：
cls
for x 1 to 9
for y 1 to 9
a1 = x * y
print x;"*";y;"=";a1
next y
next x
end
虽然这样打得出来，但是一点也不美观，想用 locate , tab , spase ，又总是只显示一点点，达不到美观的效果，各位大侠，帮帮忙吧……~~~ 

1.
CLS
FOR I=0 TO 9999
    X$=LTRIM$(STR$(I))
    IF LEN(X$)<4 THEN X$=STRING$(4-LEN(X$),"0")+X$
2.
FOR I=1 TO 9
FOR J=1 TO 9
PRINT I*J;SPC(3);
NEXT J
PRINT
NEXT I

我是个新手，我前几天刚刚接触QBasic，想自学，去网络学了点基本的操作，我想问下$代表什么呀，谢谢了

$是字符串，也可以用Dim a as string

第一题完整回答：
Cls
For i = 0 To 9999
a$ = Ltrim$(Str$(a$))
a$ = String$(4 - Len(a$), "0") + a$
For j = 1 To 4
    For k = 1 To 4
      x$ = Mid$(a$, i, 1)
      y$ = Mid$(a$, k, 1)
      If x$ = y$ Then p = p + 1
Next k, j
If p > 1 Then
    r = r + Val("1" + String$(p - 1, "0"))
End If
Next i
Print r
End

2.
Cls
For i = 1 To 9:For j = 1 To 9
    a = i * j
    If a <> 0 Then Print Using "###";a;
Next j:Print
Next i

2.
For i = 1 To 9:For j = i To 9
     Print Using "###";i * j;
Next j:Print
Next i
End
刚刚打错了

回复：8楼
如果是1212，1122，2121类似这种号码你算它是几个奖
For j = 1 To 4
     For k = 1 To 4
       x$ = Mid$(a$, i, 1)'这句的i是怎么回事???
       y$ = Mid$(a$, k, 1)
       If x$ = y$ Then p = p + 1
Next k, j


看我的笨办法:
CLS
x = 0: y = 0: z = 0
FOR a = 0 TO 9
FOR b = 0 TO 9
FOR c = 0 TO 9
FOR d = 0 TO 9
IF a = b AND a = c AND a = d THEN
     x = x + 1
ELSE
     IF (a = b AND a = c) OR (a = b AND a = d) OR (a = c AND a = d) OR (b = c AND b = d) THEN
         y = y + 1
     ELSE
         IF a = b OR a = c OR a = d OR b = c OR b = d OR c = d THEN z = z + 1
     END IF
END IF
NEXT d
NEXT c
NEXT b
NEXT a
PRINT "$1="; x, x * 1000
PRINT "$2="; y, y * 100
PRINT "$3="; z, z * 10
PRINT x * 1000 + y * 100 + z * 10
END


'第2题
CLS
A$ = "x"
B$ = "="
FOR i = 1 TO 9
FOR j = 1 TO i
k = j * i
PRINT USING "
#x#
=## "; i; j; k;
'下面注释部分是转换成字符串后输出,略有不同
'i$ = RIGHT$(STR$(i), LEN(STR$(i)) - 1)
'j$ = RIGHT$(STR$(j), LEN(STR$(j)) - 1)
'k$ = RIGHT$(STR$(k), LEN(STR$(k)) - 1)
'PRINT USING "\      \"; j$ + A$ + i$ + B$ + k$;
NEXT j
PRINT
NEXT i
END

PRINT USING "
#x#
=## "; i; j; k;
不好意思这句改为:
PRINT USING "
#x#
=## "; j; i; k;

2.
Cls
Input n: Print
x = Len(Str$(n * n))
For i = 1 To n
   For j = i To n
      Print Tab(i * x); Using String$(x, "#"); i * j;
   Next j: Print
Next i
End
输入9

刚刚发错了
CLS
INPUT n
x = LEN(STR$(n * n))
PRINT SPC(x);
FOR i = 1 TO n: PRINT USING STRING$(x, "#"); i; : NEXT i: PRINT
FOR i = 1 TO n
   PRINT i; TAB(i * x + 1);
   FOR j = i TO n
     PRINT USING STRING$(x, "#"); i * j;
   NEXT j: PRINT
NEXT i
END