i = 1: j = 6: k = 0
key = Val(Text1.Text)
Do While i<= j
k = k + 1
m = Int((i + j)/2 + 0.5)
If key = a(m) Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
文本框Text1中输入27,执行该程序段后,k的值为2,则a(1)到a(6)各元素可能的值是( )
图1
请回答下列问题:
(提示:If函数用于判断是否满足某个条件,如果满足返回一个值,如果不满足返回另一个值。例如:“=IF(E2<60,"不合格",IF(E2>=80,"优秀","合格"))”)。
图2
Dim a(1 To 9) As Integer
Private Sub Command1_Click()
Dim column As Integer, row As Integer, t As Integer, tmp As Integer
Dim s As String, ch As String, result As String
s = Text1.Text: result = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1): t =.
column = (t - 1) Mod 3 + 1
Do While t >= 3
t = t \ 3
Loop
row =
tmp = (Asc(ch) + - 65) Mod 26 + 65
result = result + Chr(tmp)
Next i
Text2.Text = result
End Sub
Private Sub Form_Load() '用来生成3*3矩阵
For i = 1 To 9
a(i) = Int(Rnd * 9) + 1
s = s + Str(a(i))
If i Mod 3 = 0 Then
List1.AddItem s
s = ""
End If
Next i
End Sub
请在划线处填入合适的代码。
Dim a(1 To 9) As String '存储跳高成绩
Dim b(1 To 9) As String '存储学生姓名
Dim c(1 To 9) As Integer
Private Sub Command1_Click()
Dim ch As String, tmp As Integer, t As Integer
Dim p As Integer, k As Integer, i As Integer, j As Integer
Dim s As String
s = Text1.Text: t = 0
For i = 1 To .
If Mid(s, i, 1) <> "/" Then
ch = ch + Mid(s, i, 1)
Else
t = t + 1
If t Mod 2 = 0 Then
a(t \ 2) = zh(ch)
Else
End If
ch = ""
End If
Next i
For i = 1 To t\2
c(i) = i
Next i
For i = 1 To t \ 2 - 1
p = i
For j = i + 1 To t \ 2
If Len(a(c(p))) < Len(a(c(j))) Then
p = j
ElseIf Len(a(c(j))) = Len(a(c(p))) Then
k = Len(a(j)): flag = True
Do While k >= 1 And flag
If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then
p = j
flag=false
ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k = k - 1
Else
flag = False
End If
Loop
End If
Next j
If p <> i Then
tmp = c(i): c(i) = c(p): c(p) = tmp
End If
Next i
For i = 1 To t \ 2
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integer, j As Integer
For i = 1 To
For j = 1 To 3
temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .
Next j
zh = zh + CStr(temp) 'CStr函数可把表达式转换为字符串类型
temp = 0
Next i
End Function