vb编个计算机,怎么样用VB语言编制一个电脑中的附件，如写字板，计算器，画图等请把代码加上，急用！！！...

Dim myflag%, myjudge%, response%

'禁止改变窗体大小代码开始

Dim oldw&, oldh&

Private Sub Form_Load()

oldw = Me.Width: oldh = Me.Height

Timer1.Interval = 200

'数据初始化

myflag = 1

myjudge = 0

End Sub

Private Sub Form_Resize()

Me.Width = oldw: Me.Height = oldh

End Sub

'禁止改变窗体大小代码结束

'运算符设置

Private Sub Command0_Click(index As Integer)

If index = 0 Then

Text4.Text = "+"

ElseIf index = 1 Then

Text4.Text = "-"

ElseIf index = 2 Then

Text4.Text = "×"

ElseIf index = 3 Then

Text4.Text = "/"

ElseIf index = 4 Then

Text4.Text = "√"

Text5.Text = ""

Text1.Text = ""

ElseIf index = 5 Then

Text4.Text = "^"

ElseIf index = 6 Then

Text4.Text = "Mod"

End If

myflag = -1

End Sub

'数值键命令

Private Sub Command1_Click(index As Integer)

If myjudge = 1 Then

Text1.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End If

If myflag > 0 Then

Text3.Text = CStr(Text3.Text) & CStr(index)

myjudge = 2

Text1.Text = ""

Text4.Text = ""

Text5.Text = ""

ElseIf myflag 

Text5.Text = CStr(Text5.Text) & CStr(index)

If Text4.Text = "/" And Val(Text5.Text) = 0 Then

response = MsgBox("分母不能为零！", vbOKOnly + vbExclamation + vbDefaultButton1, "注意！")

Text5.Text = ""

ElseIf Text4.Text = "Mod" And Val(Text5.Text) = 0 Then

response = MsgBox("分母不能为零！", vbOKOnly + vbExclamation + vbDefaultButton1, "注意！")

Text5.Text = ""

End If

End If

End Sub

Private Sub Command3_Click()

If myflag > 0 Then

Text3.Text = CStr(Text3.Text) & "."

End If

If myflag 

Text5.Text = CStr(Text5.Text) & "."

End If

End Sub

'计算代码

Private Sub myjs()

If Text4.Text = "+" Then

If Val(Text3.Text) + Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) + Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) + Val(Text5.Text)))

End If

ElseIf Text4.Text = "-" Then

If Val(Text3.Text) - Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) - Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) - Val(Text5.Text)))

End If

ElseIf Text4.Text = "×" Then

If Val(Text3.Text) * Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) * Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) * Val(Text5.Text)))

End If

ElseIf Text4.Text = "/" Then

If Val(Text3.Text) / Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) / Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) / Val(Text5.Text)))

End If

ElseIf Text4.Text = "Mod" Then

If Val(Text3.Text) Mod Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) Mod Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) Mod Val(Text5.Text)))

End If

ElseIf Text4.Text = "^" Then

If Val(Text3.Text) ^ Val(Text5.Text)  0 Then

Text1.Text = CStr(Val(Text3.Text) ^ Val(Text5.Text))

Else

Text1.Text = Val(CStr(Val(Text3.Text) ^ Val(Text5.Text)))

End If

ElseIf Text4.Text = "√" Then

If Val(Text3.Text) ^ 0.5  0 Then

Text1.Text = CStr(Val(Text3.Text) ^ 0.5)

Else

Text1.Text = Val(Text3.Text) ^ 0.5

End If

End If

End Sub

'求值

Private Sub Label3_Click()

Call myjs

myflag = 1

myjudge = 1

End Sub

Private Sub Text3_GotFocus()

Text3.ToolTipText = Text3.Text

End Sub

Private Sub Text5_GotFocus()

Text5.ToolTipText = Text5.Text

End Sub

Private Sub Text1_GotFocus()

Text1.ToolTipText = Text1.Text

End Sub