求助vb数据分组统计；有两组数据t1(0)、t2(0)、t3(0)......t10（0）

发布网友发布时间：2022-05-14 12:39

共4个回答

热心网友时间：2023-10-17 06:35

Private Sub Command1_Click()
Dim i As Long, s1 As Long, s2 As Long
For i = 1 To 10
If Val(Me.Controls("t" & i)(0).Text) < 20 Then
s1 = s1 + Val(Me.Controls("t" & i)(1).Text)
Else
s2 = s2 + Val(Me.Controls("t" & i)(1).Text)
End If
Next
Print s1, s2
End Sub

热心网友时间：2023-10-17 06:35

t1(0)、t2(0)、t3(0)......t10（0）都是变量的名称，那么它们是什么数据？数据类型是什么？最好说一下具体等于什么值？
“如果第一组数值小于20的text”，这句话让人费解，第一组数值是什么意思？是第一组所有变量的值加在一起的和吗？小于20的text更不明白了，小于20还好理解一些，“的text”是什么意思？
“对应的第二组text数值加在一起”，继续费解。。。

热心网友时间：2023-10-17 06:36

两个数组赋值以后
For i = 1 To 10
If a(i) < 20 Then s1 = s1 + b(i) //a是第一个数组b是第二个数组
If a(i) > 20 Then s2 = s2 + b(i)
Next

热心网友时间：2023-10-17 06:36

什么意思，很难理解你的要求