主题：99乘法表
daihele
[专家分：0] 发布于 2007-08-12 13:12:00
编个99乘法表 第一行1*1=1 第二行1*2=2 2*2=4 第三行1*3=3 2*3=6 3*3=9 最后一行要QB程序打印在一行内 不可以转行
最后更新于：2007-08-12 13:42:00
回复列表 （共17个回复）
沙发
Matodied [专家分：7560] 发布于 2007-08-12 13:48:00
CLS
FOR i = 1 TO 9
FOR j = 1 TO i
PRINT CHR$(48 + j); "*"; CHR$(48 + i); "="; j * i;
NEXT j
PRINT
NEXT i
END
板凳
Matodied [专家分：7560] 发布于 2007-08-12 14:07:00
备注：
QB在输出数值的时候会在STR$(输出项)的结果后面再加一个尾空格。
如PRINT 1的结果是：(空格)1(空格)。怎么去掉这2个空格呢？
对于1位正整数或者0，可以用CHR$(48+输出项)。
对于2位以上的正整数或整数部分是1位含小数的数，可以用LTRIM$(STR$(输出项))。
对于负数直接用STR$(输出项)
比如：
PRINT 1 '相当于PRINT " 1 "
PRINT CHR$(48+1) '相当于PRINT "1"
PRINT -1 '相当于PRINT "-1 "
PRINT STR$(-1) '相当于PRINT "-1"
3 楼
wzc1996 [专家分：1680] 发布于 2007-08-12 20:35:00
CLS
FOR I = 1 TO 9
FOR J = 1 TO i
X = I * J
PRINT CHR$(48 + J); "*"; CHR$(48 + I); "="; X;
NEXT
PRINT
NEXT
4 楼
我的电脑 [专家分：990] 发布于 2007-08-14 09:34:00
CLS
FOR i = 1 TO 9
FOR j = 1 TO i
PRINT CHR$(48 + j); "*"; CHR$(48 + i); "="; j * i;
NEXT j
PRINT
NEXT i
END
5 楼
天尝地酒 [专家分：870] 发布于 2007-08-14 09:45:00
cls
for i=1 to 9
for j=1 to i
print j;"*";i;"=";j*i;
next j
print
next i
end
6 楼
QB爱好者 [专家分：370] 发布于 2007-08-29 13:05:00
CLS
FOR I = 1 TO 9
FOR J = 1 TO I
PRINT J;"*";I;"=";I*J;
NEXT J
PRINT
NEXT I
END
7 楼
agag4328 [专家分：10] 发布于 2007-08-30 15:31:00
cls
for i=1 to 9
for j=1 to i
print i;"*";j;"=";i*j
next j
print
next i
end
8 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 21:12:00
CLS
FOR I = 1 TO 9
FOR J = 1 TO I
PRINT J;"*";I;"=";I*J;
NEXT J
PRINT
NEXT I
END
9 楼
冰冻小企鹅 [专家分：190] 发布于 2009-02-26 19:58:00
CLS
FOR i = 1 TO 9
FOR j = 1 TO i
PRINT CHR$(48 + j); "*"; CHR$(48 + i); "="; j * i;
NEXT j
PRINT
NEXT i
END
10 楼
1054122 [专家分：750] 发布于 2009-03-01 10:03:00
CLS
FOR i = 1 TO 9
FOR j = 1 TO i
PRINT i; "*"; j; "="; i * j;
NEXT j
PRINT
NEXT i
END
我来回复
您所在位置：