####vb 怎么让数据从上到下 从左到右 显示呢...在线等...

Question

1 5
2 6
3 7
4

Answer 1

Private Sub Form_Load()
Form1.Show
a = CurrentX
A1 = CurrentY
For i = 1 To 7
If i = 5 Then CurrentY = A1
If i > 4 Then CurrentX = a + 200
Print i
Next
End Sub

Answer 2

Private Sub Form_Load()
Label1.WordWrap = True
Label1.Caption = "1  5" & vbCrLf & "2  6" & vbCrLf & "3  7" & vbCrLf & "4"
End Sub

Answer 3

你的想法我想到了..可是在实现的时候我的if和next  不知道怎么写..麻烦你帮我补充完整好吗
For i = 1 To maxi
For j = 0 To i / 32If (i - 1) Mod 32 = j Then
Label3.Caption = Label3.Caption & "  " & a(i)

Answer 4

Private Sub Form_Load()
Dim arr()
Dim brr()
Dim i, j, k As Integer
Dim s, s1 As String
Label1.WordWrap = True
For i = 0 To 199
ReDim Preserve arr(i)
arr(i) = i
Next
For i = 0 To 31
For j = i To UBound(arr) Step 32
s = s & arr(j) & Space(5)
Next
ReDim Preserve brr(k)
brr(k) = s
k = k + 1
s = ""
Next
For i = 0 To UBound(brr)
s1 = s1 & brr(i) & vbCrLf
Next
Label1.Caption = s1
End Sub

Answer 5

我只能说我以前学过C#..现在vb都不懂...现在又要做东西..很是头疼..哎

Answer 6

提供个另类的解决方法,用TEXTBOX装载你的数据,只需将其属性设置为多行,并调整其宽度为1个字宽,也可设置它的
属性Appearance = 0
属性.BorderStyle = 0
就可冒似标签控件.
此外楼主的要求只适合完全是汉字或完全是数字字母,才不会出现歪扭.

Answer 7

Dim arr() As String * 3

Answer 8

syyssz..有QQ没..我想加你..想让你给我几个简单的实例..学习vb...