Key = Val(Text1.Text) \10
Text2.Text = ""
i = 1: j = 9: f = False
Do While i <= j And Not f
m = (i + j)\ 2
If a(m) Mod 10 = Key Then search = m
f = True
ElseIf a(m) Mod 10 > Key Then i = m + 1
Else
j = m - 1
End If
Text2.Text = Text2.Text + Str(m)
Loop
程序运行后,文本框Text2中显示的内容是( )
图 a
图 b
图 a
请回答下列问题:
Dim n As Integer, a(1 To 100) As Integer
Private Sub Command1_Click()
Dim i As Integer
n = 14
Randomize
For i = 1 To n
a(i) =
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i, j, flag As Integer
List2.Clear
flag = 1
For i = 1 To n - 1
For j = n To i + 1 Step -1
If> 0 Then a(j) = a(j) + a(j - 1)
a(j - 1) = a(j) - a(j - 1)
End If
Next j
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 100) As String
Dim i As Integer, j As Integer, m As Integer, n As Integer
Dim ts As String, t As Integer, v As Integer
n = Val(Text1.Text)
v =
t = 1
For m = n To 1 Step -2
For i = 1 To m '向右方向填数
a(t + i - 1) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
t = t + n - 1
For i = 1 To m - 1 '向下方向填数
a(m + t) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
t = t - n
For i = m - 1 To 1 Step -1 '向左方向填数
a(t + i) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
For i = m - 2 To 1 Step -1 '向上方向填数
a(t - n + 1) = Chr(Asc("A") + v - 1)
v = v - 1
t = t - n
Next i
t = t + 2
Next m
For i = 1 To n '在List1 中输出数组数据
ts = ""
For j =To i * n
ts = ts + " " + a(j)
Next j
List1.AddItem ts
Next i
End Sub