题型:综合题 题类:常考题 难易度:困难
浙江省名校新高考研究联盟(Z20联盟)2021届高三第二次联考信息技术试卷
编写VB程序计算立方柱之间的最大注水体积。程序运行时随机生成的数据从左到右依
特科网了次为“3,0,2,5,0,2,0,4”,分别代表各位置点立方柱的高度(0表示无立方柱)。列表框List1中输出各立方柱高度以及所求的最大注水体积。请回答下列问题:
Const Maxn = 15
Dim h(1 To Maxn) As Integer 'h(i)存储第i个立方柱的高度
Dim b(1 To Maxn) As Integer 'b(i)存储第 i个立方柱的编 号
Private Sub Cmd1_Click( )
Dim n As Integer, i As Integer, j As Integer, k As Integer, t As Integer
Dim left1 As Integer, right1 As Integer, ans As Integer
n=
'随机生成各立方柱的高度保存到h(1)到h(n)中, 并在List1中显示,代码略。
For i=1 To n
b(i) = i
Next i
For i=1 To n- 1 '根据立方柱的高度进行排序
k =i
For j=i+1 Ton
If Thenk=j
Next j
If k <> i Then
t=h(i):h(i)=h(k):h(k)=t
t=b(i):b(i)=b(k):b(k)=t
End If
Next i
Left1= b(1): right1 = b(1): ans = 0
For i=2 To n
If h(i) = 0 Then Exit For
If b(i) < left1 Then
ans=ans+h(i)*(left1-b(i)-1)
left1 = b(i)
ElseIf b(i) > right1 Then
ans
right1 = b(i)
Else
ans = ans - h(i)
End If
Next i
List1. AddItem”最大注水体积是:”& Str (ans)
End Sub
a=[20,32,56,12,48] maxx=a[0] for k in ①: if maxx<k: ② print( ③ ) |
试题篮