VB中单击命令按钮使两个文本框左对齐？

您可以使用以下凳拆代码将两个文本框左毁御对齐，当用户单击命令按钮时：

在此示例中，假设第一个文本框为 "Textbox1"，第二个文本框为 "Textbox2"，而您希望单击名纤粗岩为 "CommandButton1" 的命令按钮来对齐这两个文本框。

请注意，此代码假定两个文本框已正确放置，并且它们之间没有其他控件。如果需要，您可以在代码中使用其他属性（例如Top，Width，Height等）来调整文本框的位置和大小。

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。

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

只能通过处理字符串的方法来实现一个"假"对齐.

比如你先定一个一列最宽的宽度,比如你的数字都在0-999之间,那宽度就是3(3位数字)

然后你把输入的每一组数字都判世谨断一下len(),如果长度不够3,就在前面加个"空格",这样显示出来看上去就对齐了.不过这只是假的对齐.

代搜判基码应该很简单,用

if

语句和

len()

涵数就搞定冲高了,我就不写了.

---