溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

VB語言中怎么打印數(shù)字菱形圖案

發(fā)布時間：2022-01-14 20:15:19 來源：億速云 閱讀：347 作者：柒染 欄目：大數(shù)據(jù)

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

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

輸出目標(biāo)

     1

   121

  12321

1234321

  12321

   121

     1

類型聲明符號

Long &

Integer %

String $

Double #

Single !

界面：

VB語言中怎么打印數(shù)字菱形圖案

源代碼：

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)注億速云網(wǎng)站！小編會繼續(xù)為大家?guī)砀玫奈恼拢?/p>

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手