荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: bigone (好好学习), 信区: Visual
标 题: [合集]简单vb问题
发信站: 荔园晨风BBS站 (Fri May 9 18:29:53 2003), 站内信件
biao (上进的菜鸟) 于Thu May 8 21:35:47 2003提到：
怎样设置单击不同的按钮时，在窗体上打印不同的图形－－由“＃”符号围成
例如 正三角形，倒三角形，平行四边形等
我只会做平行四边形的
：Private Sub Command1_Click()
a = InputBox("请输入行数")
For n = 1 To a
Print Tab(n); "*****"
Next n
End Sub
图形大小：行数及符号个数由用户输入的a决定
Chengal (努力学习) 于Thu May 8 23:12:40 2003提到：
用2个循环变量
biao (上进的菜鸟) 于Fri May 9 11:12:55 2003提到：
我再想一下算法
，chengal师兄，不如你做这个版的版主吧
我叫多几个人，一起把这个版弄得有生气一点r
Chengal (努力学习) 于Fri May 9 11:22:54 2003提到：
把这个版弄生气点是我们大家的责任呵呵
我可能并不是你师兄，呵呵你那一级的，
baoli (生命因理想而伟大) 于Fri May 9 11:26:29 2003提到：
既然这么多人要你做，你就为大家服务服务咯～～～
支持！！
Chengal (努力学习) 于Fri May 9 11:33:27 2003提到：
呵呵谢谢各位的好意咯
只怕小弟技术不好啊，有负各位厚望哦
baoli (生命因理想而伟大) 于Fri May 9 11:40:28 2003提到：
Private Sub Command1_Click()
a = InputBox("请输入行数")
For n = 1 To a
for i=1 to n
Print Tab(n); "*" '这里是输出语句，因为对vb语句不熟，可能这里不对。
'字符定位的问题，你就要自己考虑咯～嘻嘻
next i
Next n
End Sub
baoli (生命因理想而伟大) 于Fri May 9 11:42:38 2003提到：
不怕啦～～～
版主！＝回答问题高手
版主＝＝版务管理＝＝为我们服务
所以有热心就够了～～～～
Chengal (努力学习) 于Fri May 9 11:50:53 2003提到：
biao要的是正▲，所以，我认为如下语句相应改一下会更好：
Print Tab(n); "*" '这里是输出语句，因为对vb语句不熟，可能这里不对。
Chengal (努力学习) 于Fri May 9 11:51:40 2003提到：
hehe
baoli (生命因理想而伟大) 于Fri May 9 12:19:59 2003提到：
不要笑啦！是你啦～～～
baoli (生命因理想而伟大) 于Fri May 9 12:21:34 2003提到：
对！
可能这里没有半个字符的～
Chengal (努力学习) 于Fri May 9 14:18:15 2003提到：
呵呵这是人家问的问题，给我们吹水都有10条啦～～～～～～～～·
baoli (生命因理想而伟大) 于Fri May 9 14:28:26 2003提到：
就等你做版主来整理这里的秩序啊～～
不发发水贴，人家还以为这里没有人来呢～～嘻嘻～^_^
biao (上进的菜鸟) 于Fri May 9 15:22:57 2003提到：
我02的
其实那一级无所谓，大家都投你票，上吧
Chengal (努力学习) 于Fri May 9 15:34:47 2003提到：
呵呵，谢谢大家啦
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店