Question

VB中如何定义一个函数，求和TextBox1,TextBox2,TextBox3........TextBoxn中的值

如题
我做的是CAD的二次设计，用的是VBA语言，这种语言更VB很类似，但是这种语言没法实现创建控件数组，我该怎样创建个函数实现如题的功能啊，抓心挠肝中。。。。。

Answer 1

定义textbox的控件数组1-N个。
然后循环累加求和即可。

追问

能否给我列个代码，谢谢！

追答

'Demo如下
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim Sum As Integer

n = Text1.Count

Sum = 0

For i = 0 To n - 1
Sum = Sum + Val(Text1(i).Text)
Next i

Print Sum

End Sub

追问

我做的是CAD的二次设计，用的是VBA语言，这种语言更VB很类似，但是这种语言没法实现创建控件数组，我该怎样创建个函数实现如题的功能啊，抓心挠肝中。。。。。

追答

是否可以动态创建textbox数组？

追问

好像是可以，但是不会啊！我是菜鸟啊！你这方面懂么？能否帮我再写一段创建控件动态数组的代码啊

追答

Dim TextBoxs(4) As TextBox
Private Sub Command1_Click()

For i = 0 To 3
Set TextBoxs(i) = Controls.Add("vb.textbox", "textbox" & CStr(i))
TextBoxs(i).Move i * 600 + 150, 150, 450, 450
TextBoxs(i).Visible = True
Next i

End Sub

追问

你这段代码好像是得点击后才能显示出这些文字框，我现在是已经把文字框都已经画好了，要想在这个基础上再操作求和，能实现么？

追答

dim n as integer
n=val(text1.text)+val(text2.text)+val(text3.text)+...+val(textn.text)

另："你这段代码好像是得点击后才能显示出这些文字框"---代码可以加载到窗体初始化事件中

Answer 2

额 我喜欢这种问题
text的文本是字符串 那就用int函数 int 嘎嘎 然后捏 使用控件数组，在用循环，ok