Dim a(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
s = ""
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) =a(j)+1
Next j
Next i
For i = 1 To 5
If a(i) <> 1 Then s = Str(i) + s
Next i
Text1.Text = s
若数组a的初始值都为0,则运行该程序段后,Text1中显示的内容为( )
请回答下列问题:
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer '数组a存储文中出现该指定单词的各个位置
Dim s, c, ch As String
Dim n, max, i As Integer
s = Text1.Text
①
n = 0
max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ②
If ch = c Then
n = n + 1
③
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > max Then max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = Str(n)
Text4.Text = Str(max)
End Sub
① ② ③
VB程序如下,请回答以下问题:
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer
Dim r As Integer, result As Integer
Dim flag As Boolean
s = Text1.Text
i = 1:result = 0:flag = True
Do While
ch = Mid(s, i, 1)
r = ①
If r > 9 Or r < 0 Then
flag = False
Else
②
End If
i = i + 1
Loop
Text2.Text = Str(result)
End Sub
① ②