信息技术VB练习题求解某地的酸雨程度可以根据当地年均降水的PH值来判断,酸雨区的判断标准如下表所示:重度酸雨区 轻中度酸雨区 非酸雨区 年均PH值 <= 4.7 <= 5.6 >5.6 打开并修改考生
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 18:32:52
![信息技术VB练习题求解某地的酸雨程度可以根据当地年均降水的PH值来判断,酸雨区的判断标准如下表所示:重度酸雨区 轻中度酸雨区 非酸雨区 年均PH值 <= 4.7 <= 5.6 >5.6 打开并修改考生](/uploads/image/z/9093902-14-2.jpg?t=%E4%BF%A1%E6%81%AF%E6%8A%80%E6%9C%AFVB%E7%BB%83%E4%B9%A0%E9%A2%98%E6%B1%82%E8%A7%A3%E6%9F%90%E5%9C%B0%E7%9A%84%E9%85%B8%E9%9B%A8%E7%A8%8B%E5%BA%A6%E5%8F%AF%E4%BB%A5%E6%A0%B9%E6%8D%AE%E5%BD%93%E5%9C%B0%E5%B9%B4%E5%9D%87%E9%99%8D%E6%B0%B4%E7%9A%84PH%E5%80%BC%E6%9D%A5%E5%88%A4%E6%96%AD%2C%E9%85%B8%E9%9B%A8%E5%8C%BA%E7%9A%84%E5%88%A4%E6%96%AD%E6%A0%87%E5%87%86%E5%A6%82%E4%B8%8B%E8%A1%A8%E6%89%80%E7%A4%BA%EF%BC%9A%E9%87%8D%E5%BA%A6%E9%85%B8%E9%9B%A8%E5%8C%BA+%E8%BD%BB%E4%B8%AD%E5%BA%A6%E9%85%B8%E9%9B%A8%E5%8C%BA+%E9%9D%9E%E9%85%B8%E9%9B%A8%E5%8C%BA+%E5%B9%B4%E5%9D%87PH%E5%80%BC+%26lt%3B%3D+4.7+%26lt%3B%3D+5.6+%26gt%3B5.6+%E6%89%93%E5%BC%80%E5%B9%B6%E4%BF%AE%E6%94%B9%E8%80%83%E7%94%9F)
信息技术VB练习题求解某地的酸雨程度可以根据当地年均降水的PH值来判断,酸雨区的判断标准如下表所示:重度酸雨区 轻中度酸雨区 非酸雨区 年均PH值 <= 4.7 <= 5.6 >5.6 打开并修改考生
信息技术VB练习题求解
某地的酸雨程度可以根据当地年均降水的PH值来判断,酸雨区的判断标准如下表所示:重度酸雨区 轻中度酸雨区 非酸雨区 年均PH值 <= 4.7
<= 5.6 >5.6
打开并修改考生文件夹下“VB”文件夹中的工程文件“rain.vbp”,使其具有下列功能:在文本框Text1中输入某地区年降水量PH值,单击“判断”按钮(Command1),在标签Label2上显示对应的酸雨程度.程序运行效果如图所示:
完成下列操作:
(2)删除窗体中名为“Timer1”的对象.为命令按钮Command1选择合适的事件过程,该事件过程的代码可以从“VB”文件夹下的“code.txt”文件中得到.
(3)在注释①所在行处填入正确的语句,并利用图中的数据进行测试,使程序实现上述功能.程序调试正确后,生成“rain.exe”,保存在“VB”文件夹中.
保存窗体文件和工程文件.
Dim ph As Single,s As String
ph = Val(Text1.Text)
If ph <= 4.7 Then
s = "重度酸雨区"
Else
If ph <= 5.6 Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
'①
Label2.Caption = s
问:'①怎么填
信息技术VB练习题求解某地的酸雨程度可以根据当地年均降水的PH值来判断,酸雨区的判断标准如下表所示:重度酸雨区 轻中度酸雨区 非酸雨区 年均PH值 <= 4.7 <= 5.6 >5.6 打开并修改考生
一处填 End if
题目中的第二个if是第一个if的子语句 也就是说第二个if是在ph>4.7的前提下的
所以第一个if还缺少一个endif