s ="ATCGCGCTACTGA"
s1 =" ACGT"
n= Len(s)
i=1：j=1：c=0
Do While i <= n and j <=4
If Mid(s， i， 1)=Mid(s1， j，1) Then
j=j+1
End If
i=i+1
Loop
s= Mid(s， 1， i-1)
执行该程序段后，变量s的值是( )
i=1：j=10：n=0
Do While i<=j
m=(i+j)\2
If a(m)<key Then
i=m+1
n=n+ m
Else
j=m-1
n=n-m
End If
Loop
数组元素a(1)至a(10)中的值依次为“32，39，44，49，51，54，61，61，68，76”，当key值为61时，执行该程序段后，变量n的值是( )
Dim a(1 To 6) As Integer
For i=1 To 6
a(i)= Int(Rnd * 4)+1
If a(i) Mod 2=0 And i Mod 2=0 Then
a(i)=2 * a(i) - a(i - 1)
End If
s=s+Str(a(i))
Next i
执行该程序段后，变量s的值可能是( )
Dim a(1 To 15) As Integer
'生成数组a， a(1)=24：a(2)= 17：a(3)=21：
a(4)=15：a(5)=14 …代码略
n= Val(Text1. Text)
For i=1 To n-1
For j=(n+1) * n/2 To ① Step-1
If ② Then
t=a(j)：a(j)=a(j- 1)：a(j- 1)=t
End If
Next j
Next i
'将处理后的数组，以金字塔形显示，代码略
上述程序段中①②处的语句分别为( )
|
图a |
|
图b |
后，正确的操作是： 。
规则一：随机选取10个车牌号，其中2个车牌的尾数是字母，其余8个车牌的尾数是数字。
规则二：车牌尾数按从小到大排列。
规则三：若规则一随机选取的车牌中，第1个车牌尾数为数字，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：数字一字母一数字一字母一数字一数字……；若规则一随机选取的车牌中，第1个车牌尾数为字母，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：字母一数字一字母一数字一数字……
程序运行后，列表框List1中显示随机选取的车牌，单击“排序”按钮，在列表框List2 中显示按以上规则排序后的待选车牌。
Const n = 10
Dima(1 To 10) As String
Private Sub Form_ Load( )
'从数据库里随机选取10个车牌号(其中有2个尾号带字母)，车牌号依次存储于数组a(1)至a(10)，代码略
End Sub
Private Sub Command1_ Click( )
If 
Then
m= 1
Else
m=0
End If
For i=1 To n-1
k=i
For j=i+1 To n
If Then k=j
Next j
If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp
Next i
pos= 9
For i=0 To 1
j=
tmp = a(pos)
Do While j>=m+1+2*i
a(j+1)=a(j)
j=j-1
Loop
pos= pos+1
Next i
For i=1 To 10
List2.AddItem a(i)
Next i
End Sub
Function judge(s As String) As Boolean
If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then
judge = True
Else
judge = False
End If
End Function
|
赋分成绩 |
100 |
99 |
98 |
97 |
96 |
…… |
42 |
43 |
41 |
|
卷面成绩 |
90 |
88 |
86 |
85 |
83 |
…… |
30 |
30 |
30 |
赋分成绩最低40分，卷面成绩低于30分则赋0分。赋分表数据存人数组ffb，如ffb(100)=90，则表示卷面成绩90时，赋分100分。小明设计的赋分具体步骤如下：
第一步：对学生的卷面成绩进行降序排序；
第二步：对照赋分表，对每-名学生卷面成绩进行赋分。
小明编写了VB赋分程序，在列表框List1中显示学号和学生卷面成绩，在列表框List2中显示赋分表数据，单击按钮“我要赋分”后，按照之前的学号顺序在列表框List3中显示学号、卷面成绩和赋分成绩。VB程序界面如下：
Const m = 10000
Dim xh(1 to 10000) As String '存储学生学号
Dim cj(1 To 10000) As Integer '存储学生卷面成绩
Dim ffcj(1 To 10000) As Integer '存储学生赋分成绩
Dim ffb(40 To 100) As Integer '存储赋分表数据
Private Sub Form_ Load()
'读入m名学生的学号、技术考试卷面成绩分别存人数组xh和cj中，并在List1中显示；读入赋分表成绩存人数组ffb中，代码略
End Sub
Private Sub Command1_ Click()
Dim a(0 To 100) As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 10000) As Integer
List2.AddItem "赋分成绩卷面成绩"
For i=100 To 40 Step-1 '在List2显示赋分表数据
List2. AddItem Str(i)+ "" +Str( ffb(i))
Next i
For i=1 To m '统计各分数段的人数
①
a(t)=a(t)+1
Next i
j= 100
Do While a(j)=0
j=j-1
Loop
b(j)=1
For k=j- 1 To 0 Step -1
b(k)=b(k+1) + a(k+ 1)
Next k
For i=1 To m
t=cj(i)
c(b(t))=i
②
Next i
p=1：q= 100
Do While p<=m
If cj(c(p))> = ffb(q) Then
③
p=p+1
ElseIf q=40 Then
ffcj(c(p))=0
p=p+1
Else
q=q-1
End If
Loop
List3. AddItem "学号卷面成绩赋分成绩"
For i=1 To m
List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))
Next i
End Sub
① ② ③
