15问答网 > VB题，大学VB ，第2大题详细写出步骤，最好写在纸上！这道题考什么知识点？我在线等，，，

VB题，大学VB ，第2大题详细写出步骤，最好写在纸上！这道题考什么知识点？我在线等，，，

2025-05-21 20:11:42

推荐回答（1个）

回答1：

这个问题你刚才提过，我也回答了，再次回答哦！、
Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer
x = InputBox("请输入X的值")
Select Case x
Case Is >= 50
y = x ^ 2
Case Is < 0
y = x ^ 2
Case 0 To 19
y = 20 - x / 2
Case 20 To 49
y = 50 - x
End Select
Print y
End Sub

VB题， 大学VB ， 第2大题 详细写出步骤，最好写在纸上！ 这道题考什么知识点？我在线等，，，

VB题，大学VB ，第2大题详细写出步骤，最好写在纸上！这道题考什么知识点？我在线等，，，