For i = 2 To 1000
flag = True：s = i
Do While flag And s >1
For j = 2 To Int(Sqr(s))
If s Mod j = 0 Then
Exit For
End If
Next j
Loop
If flag And s<>1 Then
End If
Next i
Label1.caption=str(c)
上述程序段中方框处可选语句为：
①flag = False ②c = c + 1 ③s = s \ 10
则（1）（2）（3）处语句依次可为（ ）
i=1: flag=True
Do While i<6 And flag=True
flag=False
For j =6 To i+1 step -1
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
flag=True
End If
Next j
f(i)=1 'f 数组初值均为 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
数组元素a(1)到a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s的值是（ ）
key=Val(Text1.Text)
i=1: j=8
Text2.Text=“ ”
Do While i<=j
m=Int(i+j)/2)
If key=a(m) Then Exit Do 'Exit Do 表示退出循环
If key<a(m) Then j=m-1 Else i=m+1
Text2.Text=Str(a(m))+Text2.Text
Loop
数组元素a(1)到a(8)的数据依次为“12，25，36，47，68，79，87，99”，文本框Text1中输入的值是12，执行该程序段后，文本框Text2中显示的是（ ）
|
场景名：main 序号类别：2 |
进入方式：由“load”场景单击“Erter”按钮进入 |
|
呈现方式： ①标题在舞台左上角出现，第1秒从完全透明到完全显示的效果，最后1秒从完全显示到完全透明的效果。 ②“女孩”从舞台的左侧驶向右侧。 ③“退出”按钮位于舞台右下方，单击该按钮，播放下一场景动画，并停止声音的播放 ④其他动画略。 |
吴观顺序说明： ①开始出现背景、女孩、标题和声音； ②最后停止动画播放，并出现“退出”按钮“女孩”依然在骑行运动，声音继续播放。 |
使用Flash软件编辑界面如图a所示：
图a
“女孩”图层关键帧中的对象是由“女孩”元件生成的实例，则该图层第1帧到第60帧的补间类型是（单选，填字母：A .动画补间动画 / B .形状补间动画 / C . 逐帧动画）。“声音”图层的声音同步属性设置为（选填：事件 / 数据流）。
图b
编写程序，实现接种序号发放的功能：运行程序，列表框List1中显示待安排接种人员信息（其中A32表示已经接种A类疫苗32天，B2表示已经接种B类疫苗2天，以此类推；F表示待接种第一针），在文本框Text1中输入可使用的疫苗情况（A-100代表有A类疫苗100剂），单击“序号发放”按钮Command1，在列表框List2中显示持接种序号人员信息。程序运行界面如图所示：
请回答下列问题：
Dim bh(1 to 2000）As Integer, yxj(1 to 2000) As Integer
Dim xm(1 to 2000) As String,qk(1 to 2000) As String
Dim num As Integer
Private Sub Form_Load()
'读取编号，优先级，姓名，接种情况分别存在bh,yxj,xm,qk 数组并输出到List1中
'接种总人数存入num，代码略
End Sub
Private Sub Command1_click( )
Dim s As String, p As String, x As String
Dim n As Integer, i As Integer, j As Integer, k As Integer, t As Integer
s = Text1.Text
p = Mid(s,1,1)
n = Val(Mid(s, 3, Len(s) - 2))
For i = 1 To n
For j = i + 1 To num
If
Then k= j
ElseIf check(qk(k), p) = True Or check(qk(j), p) = True Then
If yxj(k) > yxj(j) Then k = j
End If
Next j
If k<> i Then
t = bh(k): bh(k) = bh(i): bh(i) = t
t = yxj(k): yxj(k) = yxj(i): yxj(i) = t
x = xm(k): xm(k) = xm(i): xm(i) = x
x = qk(k): qk(k) = qk(i): qk(i) = x
End If
Next i
List2.AddItem "接种序号" + " " + "姓名"
For i = 1 To n
List2.AddItem " " + Str(i) + " " + xm(i)
Next i
End Sub
'check 函数用于判断是否符合该类疫苗的接种条件
Function check(ch As String, key As String) As Boolean
IfThen
check = True
Else
If Mid(ch, 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then check = True
Else
check = False
End If
End If
End Function
1）将字符串中的字母转换为大写字母后按升序进行排序；
2）根据给定的行数，将字符串从上往下、从左到右进行“V”字形排列；
3）从左往右逐行读取字符串并输出；
例如：输入字符串为：“NoThingIsImpossible”，
经过排序得到字符串：“BEGHIIIILMNNOOPSSST”，行数输入为3时，排列如下：
经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。
编写VB程序，实现如下功能:在文本框Text1中输入行数，在文本框Text2中输入字符串（限定字母），单击“变换”按钮Command1，在标签Label3中输出变换结果。程序运行效果如图所示。
Private Sub Command1_Click( )
Dim n As Integer, i As Integer, j As Integer Dim s As String, result As String
Dim a(1 To 26) As Integer, res(1 To 100) As String
Dim flag As Integer '变量flag用于上下换方向
n = Val(Text1.Text) s = conv(Text2.Text)
For i = 1 To Len(s)
c = Mid(s, i, 1)
Next i
s = ""
For i = 1 To 26
For j = 1 To a(i)
s = s + Chr(i + 64)
Next j
Next i
j = 1: flag = -1
For i = 1 To Len(s)
c = Mid(s, i, 1)
res(j) = res(j) + c
If Then flag = -flag
End If
Next i
For i = 1 To n
result = result + res(i)
Next i
Label3.Caption = result
End Sub
'小写字母转大写
Function conv(word As String) As String Dim i As Integer, c As String, s As String
For i = 1 To Len(word)
c = Mid(word, i, 1)
If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
s = s + c
Next i
conv = s
End Function
