這篇文章的內(nèi)容主要圍繞VB語言中怎么打印數(shù)字菱形圖案進(jìn)行講述，文章內(nèi)容清晰易懂，條理清晰，非常適合新手學(xué)習(xí)，值得大家去閱讀。感興趣的朋友可以跟隨小編一起閱讀吧。希望大家通過這篇文章有所收獲！

創(chuàng)新互聯(lián)制作網(wǎng)站網(wǎng)頁找三站合一網(wǎng)站制作公司,專注于網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計,網(wǎng)站設(shè)計,企業(yè)網(wǎng)站搭建,網(wǎng)站開發(fā),建網(wǎng)站業(yè)務(wù),680元做網(wǎng)站,已為1000+服務(wù),創(chuàng)新互聯(lián)網(wǎng)站建設(shè)將一如既往的為我們的客戶提供最優(yōu)質(zhì)的網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷推廣服務(wù)!

如何打印數(shù)字菱形圖案

輸出目標(biāo)

     1

   121

  12321

1234321

  12321

   121

     1

類型聲明符號

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        '輸出數(shù)字    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        '輸出數(shù)字    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

感謝你的閱讀，相信你對“VB語言中怎么打印數(shù)字菱形圖案”這一問題有一定的了解，快去動手實踐吧，如果想了解更多相關(guān)知識點，可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站！小編會繼續(xù)為大家?guī)砀玫奈恼拢?/p>
分享名稱：VB語言中怎么打印數(shù)字菱形圖案
網(wǎng)頁路徑：http://weahome.cn/article/jdsjsg.html