vb简单的计算机源代码文档格式.doc

vb简单的计算机源代码文档格式.doc

《vb简单的计算机源代码文档格式.doc》由会员分享，可在线阅读，更多相关《vb简单的计算机源代码文档格式.doc（9页珍藏版）》请在冰点文库上搜索。

IfCheck1.Value="

0"

Then'

1类分歧

ElseIfText1.Text="

"

OrText2.Text="

Then'

2类分歧

xataliqkuruldi"

Text3.Text="

运算数值不能为空"

AndText2.Text="

Then'

Else'

Dima,b,cAsDouble

a=Val（Text1.Text）

b=Val（Text2.Text）

c=a+b

Text3.Text=c

Text1.Text="

Text2.Text="

EndIf

1"

Then'

Then'

Else'

Dimd,e,fAsDouble

d=Val（Text1.Text）

e=Val（Text2.Text）

f=d+e

Text3.Text=f

EndSub

PrivateSubCommand2_Click（）

Then

Else

f=d-e

c=a-b

PrivateSubCommand3_Click（）

f=d*e

c=a*b

PrivateSubCommand4_Click（）

ElseIfVal（Text2.Text）="

分数的分子不能为零"

c=a/b

f=d/e

PrivateSubCommand5_Click（）

PrivateSubCommand6_Click（）

Form1.Hide

Form3.Show

PrivateSubCommand7_Click（）

End

PrivateSubCommand8_Click（）

IfText3.Text<

>

"

Text1.Text=Text3.Text

没有结果无法继续"

PrivateSubText2_Change（）

PrivateSub乘_Click（）

PrivateSub除_Click（）

错误"

PrivateSubmunasiwetlik_Click（）

PrivateSub继续_Click（）

xataliq"

PrivateSub加_Click（）

PrivateSub减_Click（）

PrivateSub清空_Click（）

----------------------------------------------

form2?

?

?

Form3.Hide

Form1.Show

Form1.Text3.Text="