① 该教室的交换机故障 ②提供该教室上网的代理服务器故障或停用
③ 学生计算机故障 ④ 连接学生计算机到该教室交换机的网线故障
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer
i = 1: j = 20
Key = Val(Text1.Text)
Do While (1)
m = (i + j + 1) \ 2
If b(i) < b(m) Then
If (2) Then
j = m - 1
Else
i = m + 1
ElseIf Key = b(m) Then
Exit Do
Else
If Key > b(m) And Key <= b(j) Then
i = m + 1
Else
j = m - 1
End If
Loop
If (3) Then
Label2.Caption = "数组中无此数"
Else
Do While m > 0
If Key = b(m) Then m = m - 1 Else Exit Do
Loop
Label2.Caption = "此数在第" + Str(m + 1) + "个位置"
End If
End Sub
①i > j
②i <= j
③Key < b(m) And Key >= b(i)
④Key> b(m) And Key <=b(j)
则(1)(2)(3)处的语句依次是( )
图1
图2
①执行“插入”菜单中的“页码”命令
②执行“视图”菜单中的“页眉和页脚”命令
③在页眉区输入页眉“技术改变未来”
④选择“页面项端(页眉)”,并输入“技术改变未来”
⑤单击常用工具栏中的“居中”按钮
⑥单击 “页眉页脚”工具栏的“关闭”按钮
⑦点击“确定”按钮
下列选项中,正确的操作步骤是( )。
Dim k As Integer, num As Integer, m As Integer
Dim s As String, ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26:ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s, x,1)
s =Mid(s,1,x-1)+Mid(s,k,1)+Mid(s,x+1,26-x)
k=k-1:m=m-1
Loop
Text2.Text = ans
文本框Text1中输入4,执行上述程序后,文本框Tex2中有显示的内容不可能为( )