繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』四边形图案输出
发布时间：2009/7/5  阅读次数：1895  字体大小: 【小】 【中】【大】

显示如下：
           *
         ***
      *****
  *******
********
  *******
     *****
         ***
             *
程序源码：
点击窗体后显示

Private Sub printdlt(n As Integer)
Dim k As Integer
For k = 1 To n
Print Space(n - k);
For j = 1 To 2 * k - 1
Print "*";
Next j
Print
Next k
For k = 1 To n - 1
Print Space(k);
For j = 1 To 2 * n - 2 * k - 1
Print "*";
Next j
Print
Next k
End Sub


Private Sub Form_Click()
Call printdlt(5)
End Sub

上一篇：『vb』金字塔型字符串 下一篇：『vb』距阵转置
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006