ﾌﾟﾛｸﾞﾗﾑは
Dim EnterFlag As Boolean
Dim s As Long
Count Pl As Single = 3.141593
*==*==*==*==*==**==*==(0〜9までのｷｰ)
Private Sub key_Click(Index As Integer)
If EnterFlag Then
Text1.Text = ""
EnterFlag = False
End If
If Len(Text1.Text) < 10 Then
Text1.Text = Text1.Text & Index
End If
End Sub
*==*==*==*==*==**==*==(足し算のｺﾏﾝﾄﾞ)
Private Sub Command1_Click()
s = s + Val(Text1.Text)
Text1.Text = s
EnterFlag = True
End Sub
*==*==*==*==*==**==*==(引き算のｺﾏﾝﾄﾞ)
Private Sub Command2_Click()
s = s - Val(Text1.Text)
Text1.Text = s
EnterFlag = True
End Sub
*==*==*==*==*==**==*==引き算の場合のみ､数字の前に-が付いてしまいます(例:3-2=-1)