这篇文章将为大家详细讲解有关VB语言中如何打印菱形图案,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。
打印菱形图案
课堂总结
主要还是总结分析思路
1、观察图案,总结规律
2、可以写下来,把行号与结果写来,然后再观察
3、下半部分的思路刚好与上半部分相反,也要写下来,总结观察
界面:
源代码:
Private Sub Form_Load()ShowFontSize = 25WindowState = 2Dim i As LongDim j As LongDim n As Long '表示行数,这个行数是除了最长的一行*之外的数量n = 6'上半部分For i = 0 To n Step 1 '输出空格 For j = 1 To n - i Step 1 Print " "; Next j '输出* For j = 1 To 2 * i + 1 Step 1 Print "*"; Next j Print '换行 Next i'下半部分For i = 0 To n - 1 Step 1 '输出空格 For j = 0 To i Step 1 Print " "; Next j '输出* For j = 1 To 2 * (n - i) - 1 Step 1 Print "*"; Next j PrintNext iEnd Sub
关于VB语言中如何打印菱形图案就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。
原文链接:https://my.oschina.net/u/4581662/blog/4374389