国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

這只是初步的代碼，我還準(zhǔn)備修改的，有些地方還有多余日后再回頭看看

Dim a As Long
Dim u As Integer

Private Sub Command1_Click()
Text1.Text = "0"
Text2.Text = ""
Label2.Caption = ""
End Sub

Private Sub Command3_Click()
x = "sqr"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub Command4_Click()
x = "1/"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d0_Click()
a = 0
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d1_Click()
a = "1"
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d11_Click()
x = "."
Text1.Text = x
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
Text1.Text = Text2.Text & x
End Sub

Private Sub d12_Click()
x = "+"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d13_Click()
x = "-"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d14_Click()
x = "*"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d15_Click()
x = "/"
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d16_Click()
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
Text1.Text = ScriptControl1.eval_r(Label2.Caption)
Text2.Text = ""
Label2.Caption = Text1.Text
End Sub

Private Sub d17_Click()
x = "("

Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d18_Click()
x = ")"
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & x
End Sub

Private Sub d2_Click()
a = "2"
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d3_Click()
a = "3"
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d4_Click()
setfous = Text1.Text
a = "4"
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d5_Click()
a = 5
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d6_Click()
a = 6
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d7_Click()
a = 7
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d8_Click()
a = 8
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub d9_Click()
a = 9
Text1.Text = a
Text2.Text = Label2.Caption
Label2.Caption = Text2.Text & a
End Sub

Private Sub Form_Load()
Label2.Caption = ""
Text2.Visible = False
End Sub

Private Sub ScriptControl1_Error()

End Sub

Private Sub Text2_Change()
Text2.Visible = False
End Sub
純?cè)瓌?chuàng)，希望看到的，有興趣的 朋友給予斧正。。。