从品牌网站建设到网络营销策划,从策略到执行的一站式服务
这篇文章的内容主要围绕VB语言中怎么打印数字菱形图案进行讲述,文章内容清晰易懂,条理清晰,非常适合新手学习,值得大家去阅读。感兴趣的朋友可以跟随小编一起阅读吧。希望大家通过这篇文章有所收获!
创新互联制作网站网页找三站合一网站制作公司,专注于网页设计,网站设计制作、成都网站设计,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为1000+服务,创新互联网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!
如何打印数字菱形图案
输出目标
1
121
12321
1234321
12321
121
1
类型声明符号
Long &
Integer %
String $
Double #
Single !
界面:
源代码:
Private Sub Form_Load()
Show
FontSize = 18
Dim i&, j&, n&
n = 5
For i = 0 To n Step 1
'输出空格
For j = 1 To n - i Step 1
Print " ";
Next j
Dim k&
k = 1
'输出数字
For j = 1 To 2 * i + 1 Step 1
Print Format(k, "@");
If j <= Int((2 * i + 1) / 2) Then
k = k + 1
Else
k = k - 1
End If
Next j
Next i
'下半部分
For i = 0 To n - 1 Step 1
'输出空格
For j = 0 To i Step 1
Print " ";
Next j
Dim p&
p = 1
'输出数字
For j = 1 To 2 * (n - i) - 1 Step 1
Print CStr(p);
If j <= Int((2 * (n - i) - 1) / 2) Then
p = p + 1
Else
p = p - 1
End If
Next j
Next i
End Sub
感谢你的阅读,相信你对“VB语言中怎么打印数字菱形图案”这一问题有一定的了解,快去动手实践吧,如果想了解更多相关知识点,可以关注创新互联网站!小编会继续为大家带来更好的文章!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图