溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章的內容主要圍繞VB語言中怎么打印數字菱形圖案進行講述，文章內容清晰易懂，條理清晰，非常適合新手學習，值得大家去閱讀。感興趣的朋友可以跟隨小編一起閱讀吧。希望大家通過這篇文章有所收獲！
如何打印數字菱形圖案
輸出目標
1
121
12321
1234321
12321
121
1
類型聲明符號
Long &
Integer %
String $
Double #
Single !
界面：
源代碼：
Private Sub Form_Load()ShowFontSize = 18Dim i&, j&, n&n = 5For i = 0 To n Step 1'輸出空格For j = 1 To n - i Step 1Print " ";Next jDim k&k = 1'輸出數字For j = 1 To 2 * i + 1 Step 1Print Format(k, "@");If j <= Int((2 * i + 1) / 2) Thenk = k + 1Elsek = k - 1End IfNext jNext i'下半部分For i = 0 To n - 1 Step 1'輸出空格For j = 0 To i Step 1Print " ";Next jDim p&p = 1'輸出數字For j = 1 To 2 * (n - i) - 1 Step 1Print CStr(p);If j <= Int((2 * (n - i) - 1) / 2) Thenp = p + 1Elsep = p - 1End IfNext jNext iEnd Sub
感謝你的閱讀，相信你對“VB語言中怎么打印數字菱形圖案”這一問題有一定的了解，快去動手實踐吧，如果想了解更多相關知識點，可以關注億速云網站！小編會繼續為大家帶來更好的文章！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
