2015年辽宁省学业水平考试信息技术考试题解.pptVIP

程序代码如下： Private Sub Command1_Click() Dim x,y As Integer ’x是鸡的数量，y是兔的数量 Dim a,b As Integer ’a是鸡兔的头数和，b是鸡兔的脚数和 a=Val(Text1.Text) b=Val(Text2.Text) if b 2*a or b 4*a then ’数据合理性判断 MsgBox ”您的输入数据不合理，请重新输入！”,,“错误提示” Text1.Text=”” Text2.Text=”” ① Do While x ② a y=a-x If (2*x + 4*y = b) Then MsgBox” 鸡有：” x ”只 兔有：” y ”只”,,”运行结果” End If ③ loop End Sub 主页 第Ⅱ卷 非选择题  2015年辽宁省普通高中学生学业水平考试 （本试卷分第Ⅰ卷和第II卷，满分100分，答题时间50分钟） 三、实践分析题（本大题包括10小