反击还拍第六季吗:如何用vb实现把文本文件中的横行换成竖行排列

举例：
文本框名为txtSngInput,加法键名为cmdAdd,乘法键名为cmdMul,等于键为cmdOver。
Dim sngTempDo(2) As Single '(0)存储操作符，(1)存储操作结果

Private Sub cmdAdd_Click()
Dim sngTemp As Single
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))
'Case 3 '减法

'Case 4 '除法

End Select
sngTempDo(1) = CSng(txtSngInput.Text)
sngTempDo(0) = 1
End Sub

Private Sub cmdMul_Click()
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))
'Case 3 '减法

'Case 4 '除法

End Select
sngTempDo(1) = CSng(txtSngInput.Text)
sngTempDo(0) = 2
End Sub

Private Sub cmdOver_Click()
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))
'Case 3 '减法

'Case 4 '除法

End Select
sngTempDo(1) = 0
sngTempDo(0) = 0
End Sub

Private Sub Form_Load()
sngTempDo(0) = 0
End Sub

'========================================================
以上的代码还没有写当你按下操作符以后，文本框的数字输入将变为重新开始。这个你可以设置一个Boolean变量a，初始化为Ture，每个数字键按下事件中写上：
if a = ture then
a = flase
txtSngInput.text = ""
else
txtSngInput.text = txtSngInput.text & 新的数字
endif
在txtsnginput的keypress事件中也是类似写法。然后在几个操作键的按下事件中添加令a=ture就可以了。