题目

编写VB程序，实现如下功能：在文本框Text1中输入某天空气质量指数值，单击“查询”按钮（Command1），在文本框Text2中显示对应的空气质量级别。界面如1图所示。 （1） 在设计应用程序界面时，应使用2图所示“控件工具箱”中的（填写相应编号）添加控件“查询”按钮。 （2） 为实现上述功能，请在划线处填入合适代码。   Private  Sub  Command1_Click()Dim  I  As  IntegerI=If  I >= 0 And I <= 50  Then     Text2.Text = "空气质量一级 优"ElseIf  I >= 51 And I <= 100  Then Text2.Text = "空气质量二级 良"ElseIf  I >= 101 And I <= 150  Then     Text2.Text = "空气质量三级 轻度污染"ElseIf  I >= 151 And I <= 200  Then     Text2.Text = "空气质量四级 中度污染"ElseIf  I >= 201 And I <= 300  Then     Text2.Text = "空气质量五级 重度污染"ElseIf  Then     Text2.Text = "空气质量六级 严重污染"Else     Text2.Text = "输入错误，请重新输入！"    End Sub 答案： 【1】④ 【1】Val(Text1.Text)【2】I > 300【3】End If

查看本题答案和解析