| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1971 人关注过本帖
标题:[求助]一重循环打印下三角99乘法表
只看楼主 加入收藏
。玲子
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-20
收藏
 问题点数:0 回复次数:12 
[求助]一重循环打印下三角99乘法表
一重循环打印下三角99乘法表
知道的帮下忙 谢谢啦 想了一个上午了555
搜索更多相关主题的帖子: 乘法表 三角 打印 
2008-05-20 12:57
。玲子
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-20
收藏
得分:0 
知道的帮下忙555
谢谢啦
2008-05-20 13:02
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
你用這個做參考
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To 9
    Print Space(18 - i * 2);
    For j = 1 To i * 2 - 1
        Print Str(i);
    Next
    Print
Next
End Sub
2008-05-20 14:06
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
剛做出來的看看是不是你要的
Private Sub Command1_Click()
Dim strX As String
For i = 1 To 9
For j = 1 To i
strX = i & "*" & j & "=" & i * j
Form2.Print Tab((j - 1) * 8 + 3); strX;
Next j
Form2.Print
Next i
End Sub
2008-05-20 14:20
。玲子
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-20
收藏
得分:0 
这个二重循环啊
2008-05-20 14:57
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
你要幾重循環的
2008-05-20 15:06
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
一重循環等一下
2008-05-20 15:07
。玲子
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-20
收藏
得分:0 
好的谢谢啦
2008-05-20 15:16
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
Private Sub Form_Click()
  Dim i As Integer, j As Integer, n As Integer
  For n = 0 To 80
    i = n \ 9
    j = n Mod 9
    If j <= i Then
      Form1.CurrentX = j * 700
      Form1.CurrentY = i * 200
      Print j + 1 & "*" & i + 1 & "=" & (i + 1) * (j + 1)
    End If
  Next
End Sub

从BFS(Breadth First Study)到DFS(Depth First Study)
2008-05-20 15:21
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
dim x as integer
dim y as integer
dim a as integer
Private Sub Form_Load()
  For a = 0 To 80
   x = n \ 9
    y = n Mod 9
    If y <= x Then
      me.CurrentX = y * 900
      me.CurrentY = x * 200
      Print j + 1 & "*" & i + 1 & "=" & (i + 1) * (j + 1)
    End If
  Next
End Sub
從網上找到一個,可以用

[[it] 本帖最后由 jxyga111 于 2008-5-20 15:31 编辑 [/it]]
2008-05-20 15:25
快速回复:[求助]一重循环打印下三角99乘法表
数据加载中...
 
   



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

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