位置 | 1 | 2 | 3 | 4 | …… | 23 | 24 | 25 | 26 |
字母 | D | E | F | G | …… | Z | A | B | C |
Dim i As Integer, j As Integer, s As String, k As Integer
Dim mw As String, sum As Integer, t As Integer, t1 As Integer
strl="0123456789"Dim i As Integer, p As Integer
If t=0 Then t=10
For i=1 To 26
p=(t+i-1) Mod 26A.1种 | B.2种 | C.3种 | D.4种 |
A.1,2,6,10,13 | B.1,4,9,2,7 | C.1,5,8,15,22 | D.1,2,5,11,1 |
m=(i+j)\2
If key =a(m)Then
Exit DoElse If key<a(m)Then
j=m-1:n=n-1Else
i=m+1:n=n+1End If
LoopA.key<a(1) | B.key=a(1) | C.key=a(63) | D.key>a(63) |
If a(m)= key Then Exit Do
If key > a(m) Then i = m+1 Else j = m-1
Text2.Text = Text2. Text +Str(a(m))
LoopA.38或45 | B.45或56 | C.56或58 | D.57或70 |
If bh(M)= True Then
j=M-1Else
i=M+1End If
LoopFor j= ②
f(a(j))=1Next j
t=0
For j =1 To K
③
Next j
If t=K Then bh = True:Exit Function
For j=1 To K
f(j)=0Next j
Next iA.B场地时间都有所不同。已知学校共n个社团,第i个社团使用A场地时长为a[i]分钟,使用B场地时长为b[j]分钟。为了更高效的组织这次活动,某同学编写了如下VB程序计算此次活动的最小总时长和社团参会的顺序。 |
m(i)=(i):s(i)=i
If ① Then m(i)=b(i)
Next iFor j=i+1Ton
If m(i)>m(j)ThenNext j
Next iIf ② Then
k=k+1Else
t=t-1End If
Next iListladditem第"+ Str(i)+“个参会的社团序号为"+s(ans(i))
Next ik= k+ a(ans(i))
If t < k Then ③
t=t+ b(ans(i))
Next iA.枚举 | B.查找 | C.排序 | D.递归 |
A.16 | B.8 | C.12 | D.24 |
| A | B | C | D | E |
1 | | | | | |
2 | | | | | |
3 | | | | | |
4 | | | | | |
5 | | | | | |
6 | | | | | |
A.6,4 | B.4,6 | C.4,3 | D.3,4 |