usb3.1 type-c 雷电:VB高手注意,帮忙啊!!是小菜啊~~~

1.Option Explicit

Private Sub Command1_Click()
Dim A!, B%
A = Val(DJ.Text)
B = Val(SL.Text)

ZJ.Text = A * B
End Sub

Private Sub Command3_Click()
DJ.Text = ""
SL.Text = ""
ZJ.Text = ""
DJ.SetFocus
End Sub

Private Sub DJ_GotFocus()
DJ.SelStart = 0
DJ.SelLength = Len(DJ.Text)
End Sub

Private Sub SL_GotFocus()
SL.SelStart = 0
SL.SelLength = Len(SL.Text)
End Sub

Private Sub Form_Load()
Show
DJ.SetFocus
End Sub
Private Sub DJ_Change()
ZJ.Text = ""
End Sub
Private Sub SL_Change()
ZJ.Text = ""
End Sub

Private Sub Command2_Click()
'DJ.Text = ""
'SL.Text = ""
'ZJ.Text = ""
End
'DJ.SetFocus
End Sub

2.求sinx的近似值
3.求e的近似值
第一个问题是请补充完整
后两个请把程序写出来好吗?我要现成的~~
tds-19.cow@163.com

请救命啊!!!!