导航：首页 > 互联网科技 >

VB语言中怎么打印数字菱形图案

发表于：2024-09-22 作者：千家信息网编辑

千家信息网最后更新 2024年09月22日，这篇文章的内容主要围绕VB语言中怎么打印数字菱形图案进行讲述，文章内容清晰易懂，条理清晰，非常适合新手学习，值得大家去阅读。感兴趣的朋友可以跟随小编一起阅读吧。希望大家通过这篇文章有所收获！如何打印数

千家信息网最后更新 2024年09月22日VB语言中怎么打印数字菱形图案

这篇文章的内容主要围绕VB语言中怎么打印数字菱形图案进行讲述，文章内容清晰易懂，条理清晰，非常适合新手学习，值得大家去阅读。感兴趣的朋友可以跟随小编一起阅读吧。希望大家通过这篇文章有所收获！

如何打印数字菱形图案

输出目标

121

12321

1234321

12321

121

类型声明符号

Long &

Integer %

String $

Double #

Single !

界面：

源代码：

Private Sub Form_Load()ShowFontSize = 18
Dim i&, j&, n&n = 5For 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