各位大虾你们好！
本人系VB菜鸟，现因工作需要想编一个如下的计算程序，程序界面在附件里，要求如下：
1,误差值TEXT1.TEXT为用户键入(小于10的整数),当用户按下回车键时,将该值打印到PICTURE1.PTCTURE中,
2,TEXT4.TEXT和TEXT5.TEXT文本框中分别即时显示出用户键入在TEXT1.TEXT中键入数值的行数(也就是个数)和各数值 平方和的累加结果.
3,当用户点击计算按钮COMMAND1时,等精度TEXT2.TEXT和高精度TEXT3.TEXT中分别显示出计算结果(保留一位小数）.
4,等精度TEXT2.TEXT显示为：TEXT5.TEXT除以TEXT4.TEXT的结果进行开平方SQR(TEXT5.TEXT/TEXT4.TEXT).
5,高精度TEXT2.TEXT显示为：TEXT5.TEXT除以2倍的TEXT4.TEXT的结果进行开平方SQR(TEXT5.TEXT/(2*TEXT4.TEXT)).
6,点击刷新按钮COMMAND2时，各文本框内容清空.
7,点击结束按钮退出.

希望斑竹和大虾们能够帮助小弟提供合理的源代码程序，在此谢过各位啦！
本人的E_mail:jiangshouku@163.com QQ:7770746
恳请各位将程序发到我的邮箱或在论坛回复源代码程序，小弟感激不尽！

望求斑竹和各位大虾们能够给小弟及时解决这个问题！！！！！！！！！！

俺是一天VB也没有学过哦，只是学过VISUAL PRO，语言差不多，就是实现不了想要的结果
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
Dim a As Integer
Text2.Text = Sqr(Val(Sum) / Val(i))
Text3.Text = Sqr(Val(Sum) / Val(2 * i))

End Sub

Private Sub Command2_Click()
Text4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Picture1.Cls
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
i = 0
Sum = 0

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If IsNumeric(Text1.Text) And KeyAscii = 13 Then
i = i + 1
Text4.Text = i
a = Val(Text1.Text)
Sum = Sum + a * a
Picture1.Print a
Text1.Text = ""
Text1.SetFocus

Else
Text1.Text = ""
Text1.SetFocus

End If

End Sub
代码很白痴的

为什么要用PICTURE呢?TEXT不行吗?设置ENABLE为假以后和PICTURE效果差不多吧...

？？？？
PCITURE可以使用PRINT打印TEXT中的文本，
请问怎么将其他TEXT中的文本逐行打印到另一个TEXT中呢？用什么语句实现

因为后面我要用到行数计算数值，就是说在TEXT1中键入一个数，TEXT4中显示1，TEXT1再键入一个数，TEXT4显示2，就是把TEXT4作为一个计数器

这个我知道，问题是其中的一个TEXT中的文本不能清空，是显示另一个TEXT键入的所有数值

再问个白痴的问题，怎么让TEXT中的文本自动换行

谢谢，我试试看

每个数值都显示了，
但是这样的格式12345
而不是
1
2
3
4
5

Private Sub Command1_Click()
Text2.Text = Sqr(Val(Sum) / Val(i))
Text3.Text = Sqr(Val(Sum) / Val(2 * i))

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Dim s As Single
Dim i As Single
Dim a As Integer

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Me.Caption = Str(KeyAscii)

If IsNumeric(Text1.Text) And KeyAscii = 13 Then
s = 0
i = 1
Text4.Text = 0
Text4.Text = Val(Text4.Text) + i 'ÐмÆÊýÆ÷
a = Val(Text1.Text)
s = a * a + s
Text5.Text = s
Text6.Text = Text6.Text + Text1.Text 'ÏÔʾ¼üÈëµÄËùÓÐTEXT1µÄÊýÖµ

Text1.Text = ""
Text1.SetFocus

Else
Text1.Text = ""
Text1.SetFocus

End If

End Sub