UC知道vb计算式子
来源：百度知道 编辑：UC知道 时间：2024/06/03 19:50:06
控件command,text1,text2
Private Sub Command1_Click()
a = Split(Text1.Text, "+")
For Each x In a
Sum = Sum + Val(CAlbA(x))
Next x
Text2.Text = Sum
End Sub
Function CAlbA(ByVal nStr As String) As Integer
Select Case nStr
Case "一"
CAlbA = 1
Case "二"
CAlbA = 2
Case "三"
CAlbA = 3
Case "四"
CAlbA = 4
Case "五"
CAlbA = 5
Case "六"
CAlbA = 6
Case "七"
CAlbA = 7
Case "八"
CAlbA = 8
Case "九"
CAlbA = 9
Case ""
CAlbA = 0
End Select
End Function
这段代码只能在text2里面显示结果但不显示运算时的式子.我想让它在text1里面输入:一+二+三+四按command1时在text2里面显示1+2+3+4=10
这样显示明了还能看到结果!
Private Sub Command1_Click()
a = Split(Text1.Text, "+")
For Each x In a
Sum = Sum + Val(CAlbA(x))
Next x
Text2.Text = Sum
End Sub
Function CAlbA(ByVal nStr As String) As Integer
Select Case nStr
Case "一"
CAlbA = 1
Case "二"
CAlbA = 2
Case "三"
CAlbA = 3
Case "四"
CAlbA = 4
Case "五"
CAlbA = 5
Case "六"
CAlbA = 6
Case "七"
CAlbA = 7
Case "八"
CAlbA = 8
Case "九"
CAlbA = 9
Case ""
CAlbA = 0
End Select
End Function
这段代码只能在text2里面显示结果但不显示运算时的式子.我想让它在text1里面输入:一+二+三+四按command1时在text2里面显示1+2+3+4=10
这样显示明了还能看到结果!
代码如下。已作修改。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim s As String
a = Split(Text1.Text, "+")
For Each x In a
Sum = Sum + Val(CAlbA(x))
s = s & CAlbA(x) & "+"
Next x
Text2.Text = Left(s, Len(s) - 1) & "=" & Sum
End Sub
Function CAlbA(ByVal nStr As String) As Integer
Select Case nStr
Case "一"
CAlbA = 1
Case "二"
CAlbA = 2
Case "三"
CAlbA = 3
Case "四"
CAlbA = 4
Case "五"
CAlbA = 5
Case "六"
CAlbA = 6
Case "七"
CAlbA = 7
Case "八"
CAlbA = 8
Case "九"
CAlbA = 9
Case ""
CAlbA = 0
End Select
End Function
那你要多设置几个变量来放1 2 3 4和 + 因为你这个里只有结果，你要是想显示一对一你要用text2 里面放入存放1234的变量才行，你可以用判断语句当输入一的时候变量1值是 1 当输入二的时候 变量2的值 是 2 ，然后再配上符号变量+号