'首先添加text1,text2,text3,label4,command1控件 Private Sub Command1_Click() Dim a, b, c, p As Double Dim S, L As Double 'S面积，L周长 Label4。
Caption = "" a = Val(Text1。Text) b = Val(Text2。Text) c = Val(Text3。Text) If a + b > c And a + c > b And c + b > a And Abs(a - b) < c And Abs(a - c) < b And Abs(b - c) < a Then L = a + b + c p = L / 2 S = (p * (p - a) * (p - b) * (p - c)) ^ (1 / 2) Label4。
Caption = "可构成三角形" & vbCrLf & "周长为：" & L & vbCrLf & "面积为：" & S Else MsgBox "不能构成三角形" End If End Sub 源码如下： 。
答：把窗体的KeyPreview打开 Private Sub Form_KeyDown(KeyCode As Integer) '判断是什么键，并记录下来，KeyC...详情>>
答：详情>>
答：重新安装网络游戏，网络游戏的程序或者驱动出了问题。 如果安装后还是有问题，应该考虑操作系统的驱动：如DX 等。也可能是操作系统本身。详情>>
