| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 616 人关注过本帖
标题:请教编写图形字符的程序
只看楼主 加入收藏
csqian
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2004-12-4
收藏
 问题点数:0 回复次数:4 
请教编写图形字符的程序
图片附件: 游客没有浏览图片的权限,请 登录注册

如图中的星号图形怎么编写,请大虾帮忙,VB的
搜索更多相关主题的帖子: 图形 字符 编写 
2006-03-23 12:11
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

Option Explicit

Private Sub Form_Click()

Dim iTab As Integer, i As Integer, iLevel As Integer
Dim j As Integer, k As Integer, strTmp As String

iTab = 6
iLevel = 1
For i = 1 To 6

'打印星形
strTmp = ""
If iLevel <= 3 Then
strTmp = String(iLevel, "★")
Else
k = k + 1
For j = 1 To 3
strTmp = strTmp & "★" & String(k, " ")
Next
End If

Print Tab(iTab); strTmp
iTab = iTab - 1
iLevel = iLevel + 1

Next

End Sub

2006-03-23 13:21
csqian
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2004-12-4
收藏
得分:0 
我刚学VB的,可不可以帮我解释一下啊
2006-03-23 22:39
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

Option Explicit

Private Sub Form_Click() '点击窗体时,执行以下代码

Dim iTab As Integer, i As Integer, iLevel As Integer 'iLevel 为当前的行数
Dim j As Integer, k As Integer, strTmp As String

iTab = 6 '最初设置为输出 6 个制表符
iLevel = 1 '第一行
For i = 1 To 6 '循环六次,即共输出六行字符

'打印星形
strTmp = ""
If iLevel <= 3 Then '如果当前行数是三行或未到三行
strTmp = String(iLevel, "★") '根据 iLevel 的值打印若干星形(例如 iLevel = 1 时,打印一个★)
Else '如果当前行数不止三行
k = k + 1 '★与★之间的空格数量加1
For j = 1 To 3 '循环三次
strTmp = strTmp & "★" & String(k, " ") '先输出一个★,然后输出 k 个空格
Next
End If

Print Tab(iTab); strTmp 'Tab(iTab)意思是输出 iTab 个制表符,然后输出 strTmp
iTab = iTab - 1 '输出制表符数量减1
iLevel = iLevel + 1 '行数加1

Next

End Sub

qq 155302324

2006-03-23 22:56
kisskller
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-3-25
收藏
得分:0 

两个循环一个打行一个打列

2006-03-25 18:58
快速回复:请教编写图形字符的程序
数据加载中...
 
   



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

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