会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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com