题型:综合题 题类: 难易度:普通
浙江省衢州、丽水、湖州三地市2023年11月高三上学期信息技术教学质量检测试卷
'''
数组a中保存每天监测到的血压值,a[2*i]和 a[2*i+1]分别表示第 i 天的收缩压和舒张压,数组 b 保存日期数据,代码略;
'''
n=len(a)
t,ans,end=0,0,0
for i in range(n//2):
if 90<=a[2*i]<=140 and 60<=a[2*i+1]<=90:
t+=1
if :
ans=t
end=i
else:
print("正常血压持续的最长天数为:",ans)
beg=
print("起止日期:",b[beg],"--",b[end])
长度小于等于 100),在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入:“12*(3-(1+2))*3”,程序运行效果如图所示。
实现上述功能的 VB 代码如下,在划线的地方填入合适代码,完善程序。Private Sub Command1_Click()
Dim s As String
Dim a(1 To 100) As Integer
|
i = 1 top = 0
Do While i <= Len(s)
If Mid(s, i, 1) = "(" Then
top = top + 1
{#blank#}1{#/blank#}
End If
If Mid(s, i, 1) = ")" Then
List1.AddItem Str(a(top)) + " " + Str(i)
{#blank#}2{#/blank#}
End If
i=i+1 Loop
End Sub
试题篮