刘金玉的零基础VB教程076期:如何打印数字菱形图案

简介: 刘金玉的零基础VB教程076期:如何打印数字菱形图案

刘金玉的零基础VB教程076期:



如何打印数字菱形图案


输出目标


    1

  121

 12321

1234321

 12321

  121

    1


类型声明符号


Long &

Integer %

String $

Double #

Single !


课堂总结

1、要理解星号菱形作为基础

2、理解中间数的特点中间数=最大数量/2   +1



界面:


源代码:

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
    Print
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
    Print
Next i
End Sub
相关文章
|
7月前
【牛客网】BC68 X形图案
【牛客网】BC68 X形图案
66 0
|
7月前
|
C语言
c语言编程练习题:7-4 输出菱形图案
本题要求编写程序,输出指定的由“A”组成的菱形图案。
87 0
|
6月前
|
C语言
【C语言刷题每日一题#牛客网BC68】——X形图案
【C语言刷题每日一题#牛客网BC68】——X形图案
|
6月前
|
C语言
【C语言刷题每日一题#牛客网BC69】——空心正方形图案
【C语言刷题每日一题#牛客网BC69】——空心正方形图案
|
7月前
|
算法
蓝桥题库(X图形(矩阵))
蓝桥题库(X图形(矩阵))
|
机器学习/深度学习
刘金玉的零基础VB教程029期:累加与累乘案例分析
刘金玉的零基础VB教程029期:累加与累乘案例分析
192 0
|
7月前
|
C语言
c语言编程练习题:7-59 打印菱形图案
c语言编程练习题:7-59 打印菱形图案
81 0
[学习][笔记] qt5 从入门到入坟:<10>坐标系统
[学习][笔记] qt5 从入门到入坟:<10>坐标系统
刘金玉的零基础VB教程075期:打印菱形图案
刘金玉的零基础VB教程075期:打印菱形图案
111 0