在VB的Label控件数组中如何同时选中多个标签？并将其结果相加？
用Label建立一个9个标签的控件数组，将数字显示在标签数组的caption属性上，再点击标签，将标签上的数字每次任意三个一组地相加，求出结果。不知道该如何来写这段代码？求高手们解答！
补充：Label控件数组是用控件工具直接在窗体上建立的。
1．利用单击事件编写代码．
2．代码思路：采用随机函数生成3个不大于n的自然数，作为控件下标．
例：有5个控件，产生的是1，3，5，那么就将label1(1)，label1(3)，label1(5)显示的数字相加．
思路有了，如果不会写代码，继续探讨！追问
谢谢syx54朋友的思路！在label数组中显示不同随机数的问题因为已经落实，故未专门提出来。关于同时选中多个标签的问题，dygupiao朋友的答复已经圆满解决，我原来总是在循环与选择上绕圈子，走了许多弯路，却没想到直接累加的办法，受益匪浅了。
Dim x As Integer
Dim sum As Integer
Private Sub Form_Load()
x = 0
sum = 0
End Sub
Private Sub Label1_Click(Index As Integer)
x = x + 1
sum = sum + Label1(Index).Caption
If x >= 3 Then
Text1.Text = sum
sum = 0
x = 0
End If
End Sub
参考资料：其含义
本回答被提问者采纳vb编程如何在label中显示checkbox数组中的多个选中内容
再添加一个命令按钮 Command1，下面是点击按钮后，在Label1中显示CheckBox控件数组选中的内容 Private Sub Command1_Click()Dim i As Integer Dim strText As String For i = 0 To Check1.UBound If Check1(i).Value <> 0 Then strText = strText & Check1(i).Caption & vbCrLf 'vbCrLf 是...
vb建立一个label的控件数组 点击label(1) 得到一个结果 点击label(2...
建立一个Label()数组，比如是Label1()吧，在程序上建立一个Label1然后把它复制再粘贴就会提示是否建立数组，就点是，我建立了一个Label1数组，该数组中包含3个Label控件，按你说的代码是这样写的 第一种 用 Select Case 代码如下 Private Sub Label1_Click(Index As Integer)Select Case Index C...
VB 多个并列显示
如果你是在点击click时才生成lable的，就要定义每个label的位置，来使他们并列显示了。
VB的label控件数组问题,内详谢谢!
Private Sub Form_Load()List1.AddItem "0", 0 List1.AddItem "1", 1 End Sub Private Sub Label1_Click(Index As Integer)If Index = List1 Then Label1(Index).Caption = "好"End Sub 这样绝对可以……
很简单的一个问题, 学生求助.. VB多个标签.
不需要三楼所说的那么复杂。使用sstab控件，添加方法如二楼所说。默认为三个重叠的标签（相当于3个可以切换的界面）。修改tabs属性值，可以添加标签数量。这样你就可以在不同的标签上设置不同的界面，通过点击相应的标签切换界面了。
vb.net中定义控件数组,控件数组中加入多个按钮。怎么能在控件数组事件响...
bt.Add(Me.Button6)bt.Add(Me.Button7)上面这段代码本人表示不懂，故没有使用。下面的代码在VS2015中运行通过：Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click Select Case CType(sender, Button).Name ...
VB中如何做到点击控件数组中的其中一个按钮并让这个按钮改变颜色_百度...
建立一个名为"Label1"的数组 效果如图 代码如下：Private Sub Label1_Click(Index As Integer)If Index = 0 Then For i = 0 To 1 If i = 0 Then Label1(i).ForeColor = vbRed Else Label1(i).ForeColor = vbBlack End If Next iEnd IfIf Index = 1 Then ...
vb.net如何使用控件数组,希望可以用label为例
vb.net和vb6.0不同，无法直接使用控件数组。不过可以通过其他方式变通一下。比如现在有10个label，要将这10个label的text属性统一设置为“这是第X个标签”（X为1-10）。1.建立10个label，名称分别为label1、label2、label3。。label10 2.代码：For i = 1 To 10 Me.FindControl("label" & i)...
vb题,请问里面的+1 、2、3是什么意思来的
下载文件：pmd_20131011114328.rar|控件数组，即label1的数组。方法，先创建一个label1，然后复制，会提示你是否创建控件数组。确定创建数组后，那么Label1控件会变成：Label1(0),Label1(1)...Label1(n)如果不是数组的，那么就是这样的：Label1,Label2...Label(n)这样的。也就是说和数组一样，只...
VB如何在label中显示数组
使用label的caption属性。假如数组为a(5),label控件名为label1，则在label中显示数组的语句就是 For i = 0 To 5 Label1.Caption = Label1.Caption & a(i) & ","Next i
