网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

VB语言中如何打印菱形图案

这篇文章将为大家详细讲解有关VB语言中如何打印菱形图案,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。

创新互联公司专注于企业全网营销推广、网站重做改版、河东网站定制设计、自适应品牌网站建设、H5高端网站建设商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为河东等各大城市提供网站开发制作服务。

打印菱形图案

VB语言中如何打印菱形图案

课堂总结

主要还是总结分析思路

1、观察图案,总结规律

2、可以写下来,把行号与结果写来,然后再观察

3、下半部分的思路刚好与上半部分相反,也要写下来,总结观察

界面:

VB语言中如何打印菱形图案

源代码:

Private Sub Form_Load()ShowFontSize = 25WindowState = 2Dim i As LongDim j As Long
Dim 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      Print
Next i


End Sub

关于VB语言中如何打印菱形图案就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。


当前文章:VB语言中如何打印菱形图案
网页URL:http://bjjierui.cn/article/ijdcsd.html

其他资讯