vb简单小游戏程序代码（vb小程序代码）

1、Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "输入")) b = Val(InputBox("请输入三角形的边b:", "输入")) c = Val(InputBox("请输入三角形的边c:", "输入")) If (a + b)2...