题型:综合题 题类:常考题 难易度:普通
浙江省丽水市五校共同体2020-2021学年高二上学期信息技术10月阶段性考试试卷
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim min As Single, max As Single
Dim d As Single, v As Single, s As String
s = Text1.Text
d = 0: maxd = 0
j = 1: k = 1
For i = 1 To Len(s)
If Mid(s, i, 1) = "," Then
j = i + 1
If Then
max = v
Else
min = v
d = max - min
If d > maxd Then
End If
k = k + 1
End If
Next i
Label1.Caption = "本周温差最大值为" & Str(maxd)
End Sub
试题篮