杭州交通信息网2017中年夏装新款女装:VB编程问题！！！
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 16:45:16
征兵条件是:男性18岁-20岁,1.65米以上;女性16岁-18岁,1.60米以上，编写程序，从键盘输入一个人的数据时，判断是否符合征兵的条件。
Private Sub Command1_Click()
Dim str1 As String
Dim h, y As Integer
str1 = InputBox("性别:男(L),女(N)")
y = InputBox("年龄")
h = InputBox("身高(米)")
If str1 = "L" Then
If (y <= 20) And (y >= 18) And (h > 1.65) Then
Print "符合要求"
Else
Print "不符合要求"
End If
Else
If (y <= 18) And (y >= 16) And (h > 1.6) Then
Print "符合要求"
Else
Print "不符合要求"
End If
End If
End Sub
你可以引用我们现在初二“信息技术”的课本第二章第七节的“循环结构”来写程序！
书可以在http://www.pep.com.cn
中找到！