Re: [VB6 ] 請問如何調整數字顯示

[yangchihwei (yangchihwei)]

※ 引述《forsu (for)》之銘言：
: 自己是新手在練習VB6
: 數字金字塔
:                        1
:                       121
:                      12321
:                     .  .  .
:                    .   .   .
:                12345678987654321
: array宣告為String
: 跑程式的結果1~8都可正常顯示一排數字
: 僅僅只有最後一排會顯式"科學記號" --> 1.23456789876543E+16 (@_@)
: 請問如何讓最後一排也可以顯示成一排數字 12345678987654321

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        Dim i, j As Integer
        For i = -4 To 4
            For j = i - 4 To 4
                Label1.Text = Label1.Text & "  "
            Next
            For j = -4 - i To i + 4
                If i <= 0 Then
                    Label1.Text &= CStr((5 - Math.Abs(i)) - Math.Abs(j))
                Else
                    Label1.Text = Label1.Text & CStr(5 + i - Math.Abs(j))
                End If
            Next j
            Label1.Text &= vbNewLine
        Next i
    End Sub

End Class

註:Label1.Font.Size 一開始小弟設的是11.
註:小弟用的是VB2005,VB6就請自行參考囉!
您的程式並沒有列出來,無法幫您找出問題,這個方法應該會比較簡單.

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 115.82.134.197