题库 高中信息

题干

在一个数据序列中,如果出现连续升序的几个数,称为一个升序段。小张为了在10个数中找和值最大的升序段,编写了下面VB程序。程序运行时,在List1里随机生成10个整数,点击“统计”按钮Command1,在List2显示出和值最大的升序段和它们的和。程序运行界面如左图所示。
【小题1】(1)在设计程序界面时,可用右图中所示“控件工具箱”中的 (填写相应编号)添加用于显示10个随机整数的列表框。
    
【小题2】(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Dim a(1 To 10) As Integer
Private Sub Form_Load()
’产生10个随机整数,并在列表框List1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim k As Integer, summax As Integer, sum As Integer,i As Integer, j As Integer
k = 0 :summax = 0
sum = ①    
For i = 1 To n - 1
If a(i) < a(i + 1) Then

sum = sum + a(i + 1)

k = k + 1

Else
If ②     Then
summax = sum
_   _③   
sumb = i

End If

k = 0

sum = a(i + 1)

End If
Next i
For j = sumt To sumb
List2.AddItem Str(a(j))
Next j
List2.AddItem "和是:" & str(summax)
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-05-15 10:50:15

答案(点此获取答案解析)