VB語言中怎么打印數字菱形圖案

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

創新互聯制作網站網頁找三站合一網站制作公司,專注于網頁設計,網站設計制作、成都網站設計,網站設計,企業網站搭建,網站開發,建網站業務,680元做網站,已為1000+服務,創新互聯網站建設將一如既往的為我們的客戶提供最優質的網站建設、網絡營銷推廣服務!

如何打印數字菱形圖案

輸出目標

121

12321

1234321

12321

121

類型聲明符號

Long &

Integer %

String $

Double #

Single !

界面：

VB語言中怎么打印數字菱形圖案

源代碼：

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

感謝你的閱讀，相信你對“VB語言中怎么打印數字菱形圖案”這一問題有一定的了解，快去動手實踐吧，如果想了解更多相關知識點，可以關注創新互聯網站！小編會繼續為大家帶來更好的文章！

網站題目：VB語言中怎么打印數字菱形圖案
URL地址：http://m.2m8n56k.cn/article36/jdsjsg.html

成都網站建設公司_創新互聯，為您提供App設計、定制開發、外貿建站、做網站、網站維護、企業網站制作

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源：創新互聯

猜你還喜歡下面的內容

中文字幕第五页-中文字幕第页-中文字幕韩国-中文字幕最新-国产尤物二区三区在线观看-国产尤物福利视频一区二区

VB語言中怎么打印數字菱形圖案