分享

请问有人会写九九表的程序吗?_Script程序语言论坛

 十八小子 2010-06-13
返回>Script程序语言论坛 2009-2-19 8:05:15 来自:会员 快速回复 添加新话题
-
主题内容: 请问一下程序要如何写才能执行出如下列所显示的九九表?
X|123456789
================================
9|91827364554637281
8|816243240485664
7|7142128354249
6|61218243036
5|510152025
4|481216
3|369
2|24
1|1
引用

虹ㄟ 我之前有写过..但是是用qb写的..内容有点不一样
虽然很想改好给在po给你..可是我vb学的不好..我怕改错
所以我po上来..知道怎么改的人帮忙改一下噜!!
CLS
PRINT"XI";
FORN=1TO9
PRINTUSING"####";N;
NEXTN
PRINT
FORJ=1TO41
PRINT"=";
NEXTJ
PRINTTAB(4);"I"
FORX=9TO1STEP-1
PRINTX;"I";
FORY=1TOX
M=X*Y
PRINTUSING"####";M;
NEXTY
PRINTTAB(4);"I"
NEXTX
END
引用
一个刚学VB.NET的人 还是非常感谢你的帮忙
引用

sabcat 大致是这样..其它的请自己写
Fori=9To1Setp-1
Forj=1Toi
..............
Next
Next
引用

好手 几点提示:
1、九九乘法表的格式是:a×b=c,且因为C是a和B相乘的结果,所以当然您必须要以两个迴圈来跑。
2、乘法表范围为:(1~9)×(1~9),迴圈都各跑九次。
============================================
这两点提示在加上上面的话,应该一秒钟就可以看出来怎么写了^^"
引用
一个刚学VB.NET的人 非常感谢两位的帮忙,可是我最主要的问题是在
X|123456789
================
9|
8|
7|
6|
5|
4|
3|
2|
1|
这个地方怎么带出来,而不是中间的乘法
引用

sabcat >>X|123456789
>>================
个人的作法是自行手动输出

>>9|
>>8|
>>7|
这个..在进入第二层for...next迴圈之前就先行输出
Fori=9To1Setp-1
console.writei&"|"
Forj=1Toi
..............
Next
console.writevbcrlf←这个不确定能不能这样用..换行..很久没写了
Next




引用
一个刚学VB.NET的人 非常谢谢你,我已经知道怎么写了
引用

雷火 Dim i, j As Short
Dim strLine, strResult As String
strResult &= "X" & vbTab & "|" & vbTab & "1" & vbTab & "2" & vbTab & "3" _
& vbTab & "4" & vbTab & "5" & vbTab & "6" & vbTab & "7" & vbTab & "8" & vbTab & "9"_ & vbNewLine
strResult &= "================================" & vbNewLine

For i = 9 To 1 Step -1
strLine = i & vbTab & "|" & vbTab
For j = 1 To i
strLine &= i * j & vbTab
Next
strResult &= strLine & vbNewLine
Next

  暂无评论,欢

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多