题库 高中信息
题干
用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：
Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)
If Val(t) > max Then max = Val(t)
①
End If
②
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）
Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)
If c = "," Then
t = Mid(s, i, j - i)If Val(t) > max Then max = Val(t)
①
End If
②
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）
| A．① i=i+1 ② j=j+1 | B．① i=j+1 ② j=j+1 |
| C．① j=j+1 ② i=i+1 | D．① j=i+1 ② i=i+1 |
答案(点此获取答案解析）
'②