新手求助!!

wenfengdong 2006-04-10 05:24:19
VB上有一题是这样的;
*
***
*****
*******
*********
在窗体上这样显示,请大家帮忙!!!谢谢!
...全文
60 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
wenfengdong 2006-04-10
  • 打赏
  • 举报
回复
谢谢你们的帮忙
faysky2 2006-04-10
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Long, j As Long, n As Long
n = 10 ' 10行
For i = 1 To n
Print Space(n - i) & String(2 * i - 1, "*")
Next
End Sub
ouguikun 2006-04-10
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim i, j, n As Integer
n = 5 '输出行数
For i = 1 To n
'打印空格
For j = 1 To n - i
Print " ";
Next
'打印*字符
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next
End Sub
yoyo9250 2006-04-10
  • 打赏
  • 举报
回复
书上有例子
Summer006 2006-04-10
  • 打赏
  • 举报
回复
? " *"
? " ***"
? " *****"
? " *******"
? " ********* "
哈哈

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧