116问答网 > VB中100个文本框分别是text1（0）.text1(99)如何相加100个方框数字求和

VB中100个文本框分别是text1（0）.text1(99)如何相加100个方框数字求和

2025-06-26 08:06:56

推荐回答（2个）

回答1：

Private Sub Command1_Click()
  Randomize (Timer)
  For i = 0 To 99
    Text1(i).Text = Int(Rnd(i + 1) * 9000 + 1000)
    s = s + Val(Text1(i))
  Next i
  Text2.Text = s
End Sub

Private Sub Form_Load()
  For i = 1 To 99
    Load Text1(i)
    Text1(i).Top = 100 + (i \ 10) * (Text1(0).Height + 100)
    Text1(i).Left = 100 + (i Mod 10) * (Text1(0).Width + 100)
    Text1(i).Visible = True
  Next i
End Sub

界面设计：

回答2：

Dim i As Integer
Dim a As Double
a = 0
For i = 0 To 99
a = a + Text1(i).Text
Next i