Dim a(1 To 10)As Integer
Function find(L As Integer,R As Integer,key As Integer)
As Integer
If L>R Then
find = 0:Exit Function
Elself a(L)>= key Then
find = L:Exit Function
Else
①
If a(m)<key Then
find = find(M + 1,R,key)
Elself ② Then
find = find(L,M - 1,key)
Else
find = M
End If
End If
End Function
Private Sub Command1_Click()
Dim k As Integer
Dim p As Integer
k = Val(Text1.Text)
③
Text2.Text = a(p)
Text3.Text = Str(p)
If p = 0 Then
Text2.Text = "无"
End If
End Sub
Private Sub Form_Load()
a(1)= 3:a(2)= 3:a(3)= 3:a(4)= 4:a(5)= 7:a(6)
=7:a(7)= 10:a(8)= 13:a(9)= 19:a(10)= 21
For i= 1 To 10
Listl.AddItem Str(a(i))
Next i
End Sub
①②③
Dim xm (1 To n) As String,xh(1 To n) As String
Dim cj(1 to n)As Integer
Private Sub form_load()
“读取相关数据表,把姓名、学号、成绩分别存储到数组xm、xh、cj中,并在List1中显示,代码略
End Sub
Private Sub Com1__Click() ‘小王编写的代码部分
Dim wz (1 To n) As Integer
For i = 1 To n-1
wz(i) = i
For j = n To i+1 Step-1
IfThen
t = cj(j):cj(j) = cj(j-1):cj(j-1) = t
t = xh(j):xh(j) = xh(j-1):xh(j-1) = t
End If
Next j
Next i
For i = 1 To n-1
For j = n To i+1 Step-1
IfThen
t = cj(j):cj(j) = cj(j-1):cj(j-1) = t
t = xh(j):xh(j) = xh(j-1):xh(j-1) = t
t = wz(j):wz(j) = wz(j-1):wz(j-1) = t
End If
Next j
Next i
List2.Clear
List2.AddItem“学号姓名成绩座位号”
For i = 1 To n
List2.AddItemxh(i)+“”+xm(i)+“”+Str(cj(i))+“”+Str(wz(i))
Next i
End Sub
Private Sub Com2_Click() ‘小李编写的代码部分
Dim wz(1 To n) As Integer,t(1 To n) As Integer
For i = 1 To n
t(i)=i
Next i
For i = 1 To n
For j = n To i+1 Step-1
IfThen
temp=t(j):t(j)=t(j-1):t(j-1)=temp
End If
Next j
Next i
List2.Clear
List2.AddItem“学号 姓名 成绩 座位号”
For i = 1 To n
List2.AddItemxh(i)+“”+xm(i)+“”+Str(cj(i))+“”+Str(wz(i))
Next i
End Sub
Text1.Text = "0"
For i = 2 To 9
k = 0
For j = 1 To i -1
If a(j) < a(i) Then k = k +1
Next j
Text1.Text = Text1.Text + "," + Str(k)
Next i
已知数组a的数据序列为2,10,3,4,5,7,0,9,12,则该程序段运行后,文本框Text1中显示的内容是 ( )
a=32
b=14
c=a//b
print(c)
s=0
For i=1 To 2
For j=6 To 1 Step-2.
s=s+1
Nextj
Next i

Const n = 9
Dim a(1 To n) As Integer,i As Integer, j As Integer
Private Sub Form_Load()
Dim s As String, k As Integer
a(1) = 9: a(2) = 13: a(3) = 11: a(4) = 3: a(5) = 20
a(6) = 6: a(7) = 18: a(8) = 15: a(9) = 8
For i = n To 2 Step -1
k = i
For j =
If a(j) < a(k) Then t = a(j): a(j) = a(k): a(k) = t
Next j
'③改错
Next i
Label1.Caption = s End Sub
Private Sub Command1_Click()
Dim L As Integer, R As Integer, m As Integer, key As Integer
key = Val(Text1.Text)
For i = 1 To n - 1
L = 1: R = n
Do While L <= R
m = (L + R) \ 2
If a(i) + a(m) = key Then
Label2.Caption = Str(a(i)) & Str(a(m))
Exit For
ElseIf Then
L = m + 1
Else
R = m - 1
End If
Loop
Next i
If L > R Then Label2.Caption = "没有找到数对"
End Sub
Const n = 6
Dim a(1 To n) As Integer, f(1 To 10) As Boolean
Dim tmp As Integer, i As Integer, j As Integer, t As Integer
‘f数组各元素的初值置为False,代码略
For i = 1 To ⑴
t = Int(1 + Rnd * 10)
If Not f(t) Then
a(i) = t : f(t) = True
For j = ⑵
If a(j) < a(j - 1) Then
tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp
End If
Next j
Else
⑶
End If
Next i
上述程序段3个方框处的表达式分别为( )
例如,输入“0110”,前两位的01代表方向为“西”,后两位的10转化为十进制,代表距离为2。请回答以下问题。
a=input("请输入四位二进制码")
#获取方向码
fx_dict={"00":"东","01":"西","10":"南","11":"北"}
s=+int(a[3]) #根据后两位计算距离
print("方向为:",fx_dict[fx])
print("距离为:",s)
| A | B | C | D |
| if (s[16])%2==0: print(“女性”) else: print(“男性”) | If int(s[16])%2==0: print(“女性”) else: print(“男性”) | if int(s[16])//2==0: print(“女性”) else: print(“男性”) | if (s[16])//2==0: print(“女性”) else: print(“男性”) |
m=19
if m>=30 or m<20:
print(m)