扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这篇文章的内容主要围绕VB语言中怎么打印数字菱形图案进行讲述，文章内容清晰易懂，条理清晰，非常适合新手学习，值得大家去阅读。感兴趣的朋友可以跟随小编一起阅读吧。希望大家通过这篇文章有所收获！
创新互联制作网站网页找三站合一网站制作公司,专注于网页设计,网站设计制作、成都网站设计,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为1000+服务,创新互联网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!
如何打印数字菱形图案
输出目标
1
121
12321
1234321
12321
121
1
类型声明符号
Long &
Integer %
String $
Double #
Single !
界面：
源代码：
Private Sub Form_Load()ShowFontSize = 18Dim i&, j&, n&n = 5For i = 0 To n Step 1'输出空格For j = 1 To n - i Step 1Print " ";Next jDim k&k = 1'输出数字For j = 1 To 2 * i + 1 Step 1Print Format(k, "@");If j <= Int((2 * i + 1) / 2) Thenk = k + 1Elsek = k - 1End IfNext jNext i'下半部分For i = 0 To n - 1 Step 1'输出空格For j = 0 To i Step 1Print " ";Next jDim p&p = 1'输出数字For j = 1 To 2 * (n - i) - 1 Step 1Print CStr(p);If j <= Int((2 * (n - i) - 1) / 2) Thenp = p + 1Elsep = p - 1End IfNext jNext iEnd Sub
感谢你的阅读，相信你对“VB语言中怎么打印数字菱形图案”这一问题有一定的了解，快去动手实践吧，如果想了解更多相关知识点，可以关注创新互联网站！小编会继续为大家带来更好的文章！
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网