有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（   ）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2

有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then

m=m+1

ElseIf t Mod 5=0 Then

n=n+1

End If
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（   ）

A．6：2

B．6：1

C．5：2

D．4：3

对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断文本框Text1中的字符串是否对称的VB程序段如下：
s-Textl.Text: k=0:n=Len(s)\2
For i=1 To n

If Mid(s,i,1)=Mid(s,__________,1) Then k=k+1

Next i
If k= n Then Label1.Caption="对称" Else label1.Caption="不对称"
划线处代码合适的选项是（   ）

A．n- i	B．Len(s)-i
C．n-i+1	D．Len(s)-i+1

下列VB程序运行时，单击Command1后，标签Label1中显示的内容是_______
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j =" 1" To 10
If j Mod 2 <> 0 Then
s =" s" + j
End If
Next j
Label1.Caption = Str(s)
End Sub

某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1  To  10
If ① Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" : ②
Y =" name" (I) :  name (I) =" name" (K)   :  name (K) = Y
End If
Next I
For I =" 1"  To  10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。

下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是________
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub

以下关于分支结构的描述中，正确的是（ ）。

A．单分支结构有一个出口，而双分支结构有两个出口。

B．分支结构中的判定框，有一个入口和两个出口

C．用一个双分支结构实现的算法都可以改写成用二个单分支实现。

D．单分支结构和双分支结构可以相互进行嵌套使用

编写VB程序,实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

（1）观察运行界面，选项中没有用到的控件是 ( 选项

A．

B．

C．

D．)。

（2）设计该窗体界面时，需要将窗体form1的   属性设置为“最大随机数”。
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then      ②
Next i
List1.AddItem "和为：" + ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:① ② ③ 。

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If   prime(i)   Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If   a(i) =" a(i" +1)+2   Then   ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))[:学#科#网Z#X#X#K]
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If  x Mod i =" 0"  Then
prime = True
Exit For
End If
Next i
End Function

小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos =  pos + Str(count)
i =" i" + Len(Text2.Text)
Else
result =" result" + Text2.Text
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub