符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
这篇文章将为大家详细讲解有关VB语言中如何打印菱形图案,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。
创新互联公司专注于企业全网营销推广、网站重做改版、河东网站定制设计、自适应品牌网站建设、H5高端网站建设、商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为河东等各大城市提供网站开发制作服务。
打印菱形图案
课堂总结
主要还是总结分析思路
1、观察图案,总结规律
2、可以写下来,把行号与结果写来,然后再观察
3、下半部分的思路刚好与上半部分相反,也要写下来,总结观察
界面:
源代码:
Private Sub Form_Load()
Show
FontSize = 25
WindowState = 2
Dim i As Long
Dim 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
Next i
End Sub
关于VB语言中如何打印菱形图案就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。