我是菜鸟，不会VB，请高手帮帮我

来源：百度知道 编辑：UC知道 时间：2024/05/30 03:30:12
我是菜鸟，不会VB，请高手帮帮我
用VB做一个简易的计算器，包括加减乘除，把代码写详细点。谢谢 要把数字键都显示在窗口shang包括（0123456789）

我给你一个，我认为挺好用的：
Dim i As Integer, RunSign As Integer
Dim Num1 As Single, Num2 As Single, Equal As Single
Dim StrNum1 As String, StrNum2 As String
Dim FirstNum As Boolean, PointFlag As Boolean
Dim SignFlag As Boolean

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 = Str(Index)
FirstNum = False
Else
StrNum1 = StrNum1 & Trim(Str(Index))
End If
Text1.Text = StrNum1
Case 10
If Not PointFlag Then
If FirstNum = True Then
StrNum1 = "0."
FirstNum = False
Else
StrNum1 = StrNum1 + "."
End If
PointFlag = True
Text1.Text = StrNum1