题库 高中信息
题干
进入2016年7月份以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件。小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如图所示。
Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer '记录最大连续天数
Dim nend as Integer '记录最大连续天数时的结束日期的下标
Dim ncount as Integer '统计连续天数
Dim tjqw as Integer '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub
Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer '记录最大连续天数
Dim nend as Integer '记录最大连续天数时的结束日期的下标
Dim ncount as Integer '统计连续天数
Dim tjqw as Integer '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub
答案(点此获取答案解析）
