大家千万表把着玩意原封不动的搬上去，否则偶到时就成老师头号怀疑对象啦！！！！ 忠告：本程序只供学习和参考，请有能力的同学独立完成，谢谢！！！

代码部分： Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = a + b Label4.Caption = c End Sub Private Sub Command2_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = a - b Label4.Caption = c End Sub Private Sub Command3_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = a * b Label4.Caption = c End Sub Private Sub Command4_Click() a = Val(Text1.Text) b = Val(Text2.Text) If b = 0 Then MsgBox "你学没学过数学啊？？除数不为零，懂么？？？？" Else: c = a / b Label4.Caption = c End If End Sub Private Sub Command5_Click() a = Val(Text1.Text) c = a ^ 2 Label4.Caption = c End Sub Private Sub Command6_Click() a = Val(Text1.Text) If b < 0 Then MsgBox "傻不傻啊？？你给我把负数开个方试试？？" Else: c = Sqr(a) Label4.Caption = c End Sub Private Sub Command7_Click() a = Val(Text1.Text) c = Abs(a) Label4.Caption = c End Sub 拜托不要全抄，至少有点创新啊！！

DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD

啊，这是恶搞的，是被开方数为负数时的提示语

可以随便改

呵呵。。。。vs你可真行哈。。。

雷锋=VS

咔``。。抄到纸上……考试作弊用……

顶

谢啦~~~~~~~~~~~

嘿嘿。。。。。。到时我要是给叫到教育部的话我可要拉人垫背的。。。。。。。。。。。。。。

......vs说什么？

应该不会吧 VS 我现在才懂什么叫 奇才 谢谢你啊 但是 太长了 好麻烦啊

崇拜。。。。。。。。VS兮兮 。。。。我对你刮眼相看！！！----耗子

Else: c = Sqr(a) 是错误的啊！！！！怎么整？！

哇！！！！！！！！！！！江山！！！！！！！！！！！！！！！！！我崇拜你！！！！！！！！！！！你太好了！！！！！！！！！！！！！！！谢谢谢谢！！！！！！！！！！！！！！！！！！！！！！！！BY 旭

关于这个问题,我晚上会找时间解决.

vs太牛逼了。。。。