VB编程:While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客

举报
彭世瑜 发表于 2021/08/14 00:12:44 2021/08/14
【摘要】 运行效果: 程序代码: Private Sub Command1_Click()     Dim a As Long, b As Long     Form1.Cls           &n...
运行效果:
VB编程:While...Wend语句实例漂亮的星星-17

程序代码:
Private Sub Command1_Click()
    Dim a As Long, b As Long
    Form1.Cls               '清空窗体
    While a <= 9            '限制条件,0-9,一共输出10行
        a = a + 1           '调整输出位置
        For b = 1 To 23 - a
            Print " ";
        Next b
        For b = 1 To 2 * a - 1
            Print "*";
        Next b
        Print
    Wend
End Sub

编写总结:
    1、print后面的“;”表示不换行连续输出;
    2、单独输出print,表示回车换行;
    3、VB编程时,敲入“?”会自动变为print。

文章来源: pengshiyu.blog.csdn.net,作者:彭世瑜,版权归原作者所有,如需转载,请联系作者。

原文链接:pengshiyu.blog.csdn.net/article/details/109661587

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。