各位学长：
大家好，我在做毕业设计，现在遇上了个小麻烦，请各位高手帮忙指点一下。谢了！
我想使q1的结果为text1到texe28中输入得数加起来，但加号总是作为连接符，怎样改呢?
Private Sub Command4_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28 As Integer
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = Text4.Text
a5 = Text5.Text
a6 = Text6.Text
a7 = Text7.Text
a8 = Text8.Text
a9 = Text9.Text
a10 = Text10.Text
a11 = Text11.Text
a12 = Text12.Text
a13 = Text13.Text
a14 = Text14.Text
a15 = Text15.Text
a16 = Text16.Text
a17 = Text17.Text
a18 = Text18.Text
a19 = Text19.Text
a20 = Text20.Text
a21 = Text21.Text
a22 = Text22.Text
a23 = Text23.Text
a24 = Text24.Text
a25 = Text25.Text
a26 = Text26.Text
a27 = Text27.Text
a28 = Text28.Text
q1 = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28
Text29.Text = q1
End Sub

文本框默认的数据类型是字符串...所以+号便是字符串连接...用val将它的类型转换成数值再相加
还有..最好你是将文本框做成控件数组..这样一来就非常方便了..
只需三四行代码就行了..

谢谢版主！不过还是字符串连接符啊，我该怎么办啊再帮帮我吧！
这是我改后的
Private Sub Command4_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28 As Integer
Val (Text1.Text)
Val (Text2.Text)
Val (Text3.Text)
Val (Text4.Text)
Val (Text5.Text)
Val (Text6.Text)
Val (Text7.Text)
Val (Text8.Text)
Val (Text9.Text)
Val (Text10.Text)
Val (Text11.Text)
Val (Text12.Text)
Val (Text13.Text)
Val (Text14.Text)
Val (Text15.Text)
Val (Text16.Text)
Val (Text17.Text)
Val (Text18.Text)
Val (Text19.Text)
Val (Text20.Text)
Val (Text21.Text)
Val (Text22.Text)
Val (Text23.Text)
Val (Text24.Text)
Val (Text25.Text)
Val (Text26.Text)
Val (Text27.Text)
Val (Text28.Text)
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = Text4.Text
a5 = Text5.Text
a6 = Text6.Text
a7 = Text7.Text
a8 = Text8.Text
a9 = Text9.Text
a10 = Text10.Text
a11 = Text11.Text
a12 = Text12.Text
a13 = Text13.Text
a14 = Text14.Text
a15 = Text15.Text
a16 = Text16.Text
a17 = Text17.Text
a18 = Text18.Text
a19 = Text19.Text
a20 = Text20.Text
a21 = Text21.Text
a22 = Text22.Text
a23 = Text23.Text
a24 = Text24.Text
a25 = Text25.Text
a26 = Text26.Text
a27 = Text27.Text
a28 = Text28.Text
q1 = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28
Text29.Text = q1
Val (Text29.Text)
End Sub

a1 = Text1.Text改成:a1 = val(Text1.Text)
然后去掉所有的Val (Text28.Text)...

Private Sub Command4_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28 As Integer
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = Text4.Text
a5 = Text5.Text
a6 = Text6.Text
a7 = Text7.Text
a8 = Text8.Text
a9 = Text9.Text
a10 = Text10.Text
a11 = Text11.Text
a12 = Text12.Text
a13 = Text13.Text
a14 = Text14.Text
a15 = Text15.Text
a16 = Text16.Text
a17 = Text17.Text
a18 = Text18.Text
a19 = Text19.Text
a20 = Text20.Text
a21 = Text21.Text
a22 = Text22.Text
a23 = Text23.Text
a24 = Text24.Text
a25 = Text25.Text
a26 = Text26.Text
a27 = Text27.Text
a28 = Text28.Text
q1 = val(a1) + val(a2) + val(a3) + val(a4) + val(a5) + val(a6) + val(a7) + val(a8) + val(a9) + val(a10) + val(a11) + val(a12) + val(a13) + val(a14) + val(a15) + val(a16) + val(a17) + val(a18) + val(a19) + val(a20) + val(a21) + val(a22) + val(a23) + val(a24) + val(a25) + val(a26) + val(a27) + val(a28)
Text29.Text = cstr(q1)

End Sub

毕业设计做成这样子?...

我刚学了几天，呜呜，谢谢版主，谢谢各位！

使用控件数组吧...比较这方便很多..而且效率也较高..

楼主，你能不能帮他搞简单点啊，一个个赋值，好累

可能楼主不知怎么弄控件数组，我耐心告诉你：
先在窗口中方一个Text控件改名叫TxtArry，然后复制他（选中他，然后Ctrl+C），鼠标点一下窗口，粘贴他（CTrl＋V），在弹出对话框中选择“是”，然后再粘贴N多个看样子应该是28个，代码这样写：
Private Sub Command4_Click()

dim Sum as long
dim i as long
Sum =0
for i = 0 to 27
Sum = Sum + val(TxtArry(i).text)
next i
TxtArry(28).text = Sum

End Sub

代码不但要讲效率还要讲苗条呵呵

[此贴子已经被作者于2006-5-24 13:00:11编辑过]