刚学VB.有什么不对的地方 可以改进的地方请多多指教

加法************************************
private sub command1_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val（text1.tsxt）+val（text2.text）"
End if
End sub

减法************************************
private sub command2_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)-val(text2.text)"
End if
End sub

乘法************************************
private sub command3_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)*val(text2.text)"
End if
End sub

除法************************************
private sub command4_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)/val(text2.text)"
End if
End sub

[此贴子已经被作者于2006-3-12 12:37:24编辑过]

哦开头是不是private sub command1_click(test as integer)

Private Sub Cmdback_Click(Index As Integer)
Dim length As Integer
length = Len(Txtscreen.Text)
If length = 1 Then
If Txtscreen.Text <> "0" Then
Txtscreen.Text = "0"
End If
Else
Txtscreen.Text = Left(Txtscreen.Text, length - 1)
End If
End Sub

Private Sub Cmdequ_Click(Index As Integer)
second = Val(Txtscreen.Text)
Select Case Sign
Case 0
Result = First + second
Case 1
Result = First - second
Case 2
Result = First * second
Case 3
Result = First / second
End Select
Txtscreen.Text = CStr(Result)

End Sub

Private Sub Cmdnumber_Click(Index As Integer)
If Txtscreen.Text = "0" Then
Txtscreen.Text = CStr(Index)
Else
Txtscreen.Text = Txtscreen.Text + CStr(Index)
End If
End Sub

Private Sub Cmdoperater_Click(Index As Integer)
First = Val(Txtscreen.Text)
Txtscreen.Text = "0"
Sign = Index
End Sub

Private Sub Cmdsingnchange_Click(Index As Integer)
Dim length As Integer
Data = Val(Txtscreen.Text)
length = Len(Txtscreen.Text)
If Date > 0 Then
Txtscreen.Text = "-" + Txtscreen
Else
Txtscreen.Text = Right(Txtscreen.Text, length - 1)
End If
End Sub

Private Sub Cmdstart_Click(Index As Integer)
Txtscreen.Text = "0"
End Sub

Private Sub Form_Load()
For Index = 0 To 9
Cmdnumber(Index).Caption = Cmdnumber(Index).Index
Next Index
End Sub

这个好象太麻烦了.代码都多出去N多了.我看我的简化了

楼上的风格比你的好多了，你那种写法要是功能再多些就很难维护了

[此贴子已经被作者于2006-3-14 13:20:48编辑过]