Private Sub Command1_Click()Dim g As Doublea = Abs(Text1.Text)b = Abs(Text2.Text)c = Abs(Text3.Text)e = a * c / bIf e 0 Theng = Abs(e - 2 * b)Text4.Text = gElseMsgBox " 参数有误!"End IfEnd Sub如何解决我打入字母或其它符号时,弹出
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/02 00:27:36
xAKA˓Fi:$!ﲻےaW҃,!ft$3,5ά?ٱ-й{o}bz $e3QK*=a5
gRd㨘y# 3h}E",H XҔRycoG4D1l\i