标题:在图片框里输出*三角形
只看楼主
恓惶之年
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2019-10-1
 问题点数:0 回复次数:5 
在图片框里输出*三角形
Private Sub Command1_Click()
    Dim i As Integer, j As Integer, k As Integer, n As Integer
    k = Val(Text1.Text) 'K为三角形的行数
    For i = 1 To (k \ 2) + 1
        Picture1.Print Tab((k \ 2) + 1 - i)
        For j = 1 To 2 * i - 1
            Picture1.Print "*"
        Next j
    Next i
End Sub

目标图是 *    ,但是我不知道我的代码该怎么修改,求指导
        ***
       *****
   




搜索更多相关主题的帖子: For 图片框 三角形 Integer 输出 
2019-10-01 21:29
林月儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:湖南
等 级:版主
威 望:138
帖 子:2276
专家分:10647
注 册:2015-3-19
得分:0 
vb除号是反斜杠?
我记得反斜杠是换行号吧?

剑栈风樯各苦辛,别时冰雪到时春
2019-10-01 22:18
恓惶之年
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2019-10-1
得分:0 
回复 2楼 林月儿
你好,右除是整除,问题好像不是这里,我输出的图形都是一列,不能排成三角形
2019-10-01 23:06
林月儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:湖南
等 级:版主
威 望:138
帖 子:2276
专家分:10647
注 册:2015-3-19
得分:0 

Private Sub Command1_Click()
    Dim i As Integer, j As Integer, k As Integer, n As Integer
    k = Val(Text1.Text) 'K为三角形的行数
    For i = 1 To k
        Picture1.Print Tab(k + 1 - i)'这里是不是该加个换行?
        For j = 1 To 2 * i - 1
            Picture1.Print "*"
        Next j
    Next i
End Sub

剑栈风樯各苦辛,别时冰雪到时春
2019-10-01 23:30
yingshu
Rank: 4
等 级:贵宾
威 望:10
帖 子:49
专家分:212
注 册:2018-7-24
得分:0 
Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    j = Val(Text1.Text) 'K为三角形的行数
    For i = 1 To j
        Picture1.Print Tab(10 - i); String(2 * i - 1, "*")  
    Next i
End Sub
  
~~~~~~~~~~~~~
希望能帮到你
2019-10-04 09:13
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:0 
    Dim i As Integer, j As Integer, k As Integer, n As Integer
    k = Val(Text1.Text) 'K为三角形的行数
    For i = 1 To (k \ 2) + 1
        Picture1.Print Tab((k \ 2) + 1 - i);            '后面加分号,让后面输出的内容在同一行
        For j = 1 To 2 * i - 1
            Picture1.Print "*";                         '后面加分号,让后面输出的内容在同一行
        Next j
        Picture1.Print                                  '啥都不加,让后面输出的内容换行
    Next i
你这样试试着。

print 内容后面的符号有三种:
1、啥都没有的,直接换行,这种的后面的必须另起一行代码写
2、分号 ,后面的输出接着来,可以放在变量列表中间
3、逗号,后面的输出从下一个制表位开始,可以放在变量列表中间使用


Picture1.print 1,"2";"3";"4",5
你看看输出什么
 1            234            5


授人于鱼,不如授人于渔
早已停用QQ了
2019-10-08 09:07



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-497091-1-1.html




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

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