作者yangchihwei (yangchihwei)
看板Visual_Basic
标题Re: [VB6 ] 请问如何调整数字显示
时间Tue Jan 13 12:55:32 2009
※ 引述《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