VB计算器问题

(省略……)

Private Function ChangeMe(First As Double) As String
Dim strFirst As String
Dim strBig(9) As String
Dim strTemp As String
Dim i, j As Integer
strBig(0) = "零": strBig(1) = "壹": strBig(2) = "贰": strBig(3) = "叁": strBig(4) = "肆":
strBig(5) = "伍": strBig(6) = "陆": strBig(7) = "柒": strBig(8) = "捌": strBig(9) = "玖"
strFirst = Trim(Str(First))
strTemp = ""
For i = 1 To Len(strFirst)
j = Val(Mid(strFirst, i, 1))
strTemp = strTemp + strBig(j)
Next i
ChangMe = strTemp
End Function

Private Sub Command0_Click(Index As Integer)
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + Trim(Str(Index))
Else
txtSecond.Text = txtSecond.Text + Trim(Str(Index))
End If
End Sub

Private Sub

VB做计算器问题 VB编写计算器问题 VB计算器制作问题 VB计算器问题 VB编计算器问题 VB编写的计算器问题 VB做计算器问题2 VB中 计算器的问题 关于VB计算器的问题 VB计算器