Question

VB 数组要怎么对齐呀

随机生成的100个数 十行十列发现没有对齐呢。。请问一下怎么让他们对齐呢。
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Dim max As Integer
Dim min As Integer
Dim j As Integer

Private Sub Command1_Click()
Label1.Caption = "产生随机数如上图"
Label2.Visible = True
Label2.Caption = "其总和为："
Label3.Visible = True
Label3.Caption = "最大值为："
Label4.Visible = True
Label4.Caption = "最小值为："
Print
max = 1
min = 100
For i = 1 To 100
Randomize
a = Int(Rnd * 100) + 1
Print a;
If i Mod 10 = 0 Then Print
sum = sum + a
Text1.Text = sum
If a > max Then max = a
Text2.Text = max
If a < min Then min = a
Text3.Text = min
Next i
End Sub

Answer 1

VB 数组对齐代码如下：

Option Explicit

Dim i As Integer

Dim a As Integer

Dim sum As Integer

Dim max As Integer

Dim min As Integer

Dim j As Integer

Private Sub Command1_Click()

Label1.Caption = "产生随机数如上图"

Label2.Visible = True

Label2.Caption = "其总和为："

Label3.Visible = True

Label3.Caption = "最大值为："

Label4.Visible = True

Label4.Caption = "最小值为："

Print

max = 1

min = 100

For i = 1 To 100

Randomize

a = Int(Rnd * 100) + 1

Print Format(a, "@@@@@");  '只需要在这里改一下

If i Mod 10 = 0 Then Print

sum = sum + a

Text1.Text = sum

If a > max Then max = a

Text2.Text = max

If a < min Then min = a

Text3.Text = min

Next i

End Sub

扩展资料：

数组是用于储存多个相同类型数据的集合。

特点

1、数组是相同数据类型的元素的集合。

2、数组中的各元素的存储是有先后顺序的，它们在内存中按照这个先后顺序连续存放在一起。

3、数组元素用整个数组的名字和它自己在数组中的顺序位置来表示。例如，a[0]表示名字为a的数组中的第一个元素，a[1]代表数组a的第二个元素，以此类推。

对于VB的数组，表示数组元素时应注意：

1、下标要紧跟在数组名后，而且用圆括号括起来（不能用其他括号）。

2、下标可以是常量，变量，或表达式，但其值必须是整数（如果是小数将四舍五入为整数)。

3、下标必须为一段连续的整数，其最小值成为下界，其最大值成为上界。不加说明时下界值默认为1。

参考资料来源：百度百科-数组

Answer 2

Option Explicit

Dim i As Integer
Dim a As Integer
Dim sum As Integer
Dim max As Integer
Dim min As Integer
Dim j As Integer

Private Sub Command1_Click()
Label1.Caption = "产生随机数如上图"
Label2.Visible = True
Label2.Caption = "其总和为："
Label3.Visible = True
Label3.Caption = "最大值为："
Label4.Visible = True
Label4.Caption = "最小值为："
Print
max = 1
min = 100
For i = 1 To 100
Randomize
a = Int(Rnd * 100) + 1
Print Format(a, "@@@@@");  '只需要在这里改一下
If i Mod 10 = 0 Then Print
sum = sum + a
Text1.Text = sum
If a > max Then max = a
Text2.Text = max
If a < min Then min = a
Text3.Text = min
Next i
End Sub

Answer 3

Print a;
改为
Print Format(a, "@@@ ");

追问

好的 谢谢( ´▽` )ﾉ

Answer 4

VB 数组对齐代码如下：

Option Explicit

Dim i As Integer

Dim a As Integer

Dim sum As Integer

Dim max As Integer

Dim min As Integer

Dim j As Integer

Private Sub Command1_Click()

Label1.Caption = "产生随机数如上图"

Label2.Visible = True

Label2.Caption = "其总和为："

Label3.Visible = True

Label3.Caption = "最大值为："

Label4.Visible = True

Label4.Caption = "最小值为："

Print

max = 1

min = 100

For i = 1 To 100

Randomize

a = Int(Rnd * 100) + 1

Print Format(a, "@@@@@");  '只需要在这里改一下

If i Mod 10 = 0 Then Print

sum = sum + a

Text1.Text = sum

If a > max Then max = a

Text2.Text = max

If a < min Then min = a

Text3.Text = min

Next i

End Sub

扩展资料：

数组是用于储存多个相同类型数据的集合。

特点

1、数组是相同数据类型的元素的集合。

2、数组中的各元素的存储是有先后顺序的，它们在内存中按照这个先后顺序连续存放在一起。

3、数组元素用整个数组的名字和它自己在数组中的顺序位置来表示。例如，a[0]表示名字为a的数组中的第一个元素，a[1]代表数组a的第二个元素，以此类推。

对于VB的数组，表示数组元素时应注意：

1、下标要紧跟在数组名后，而且用圆括号括起来（不能用其他括号）。

2、下标可以是常量，变量，或表达式，但其值必须是整数（如果是小数将四舍五入为整数)。

3、下标必须为一段连续的整数，其最小值成为下界，其最大值成为上界。不加说明时下界值默认为1。

参考资料来源：百度百科-数组