会vb的看一下!简单的高中编程题目?
发布网友
发布时间:2023-09-30 00:40
我来回答
共1个回答
热心网友
时间:2024-10-29 03:38
Private Sub Command1_Click()
Text2.Text = Sqr(2 * (Text1.Text) * 9.8)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Or (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub