有8个西瓜的重量（单位：斤）分别是5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5。若采用选择排序算法对其进行从小到大排序，共需交换数据的次数是（  ）

A．4

B．5

C．6

D．7

某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

A．每天允许使用团购券数量最多是30

B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的

C．此算法的循环结构可以用For语句来实现

D．此算法是用自然语言来描述的

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是 。（填：冒泡排序/选择排序）
（2）在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean ′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear    ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)="x"
List1.AddItem Str(  （1）  )
End If
Loop
For i="1" To 9   ′进行排序
For j="10" To i+1    （2）  
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j   
Next i 
For i="1" To 10
List2.AddItem Str(a(i))
Next i
End Sub

萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧明不小心输入密码错误了2次，第3次才正确，那么他的操作流程应该是（ ）

A．①②③①②③①②③④⑤

B．①②③①②③④⑤

C．①②③④⑤

D．①②③④⑤⑥

有如下Visual Basic程序：
Private Sub Command1_Click( )
Dim  s  As  Integer
Dim  I  As  Integer
S=0
For i="1" To 10
s=s+i\7
Next i
Text1.text=str(s)
End sub
该程序段运行后，文本框Text1中显示__________

某VB程序的一个事件过程如下：
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i="1" To 10
j="Int(Rnd*6)+1"
a(j)=a(j)+1
Next i
For i="1" To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是(  )

A．j=Int(Rnd*6)+1	B．a(j)=a(j)+1
C．s=Str(a(i))	D．List1.AddItem s

将数学表达式写成Visual Basic表达式，正确的是（）

A．Sqr[Abs(a * b – c^c)]	B．Sqr(Abs(ab - c ^2))
C．Sqr(Abs(ab - c ^c))	D．Sqr (Abs(a * b - c ^ 2))

小李想用vb制作一个分钟倒计时器，界面如图所示。先在文本框text1中输入分钟数，然后在文本框text2中输入秒钟数，再点击“开始倒计时”按钮开始倒计时。Vb程序如下：

Private Sub Command1_Click()
Timer1.Enabled = ①    
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec =" sec" - 1
Else
sec =" 59"
If min > 0 Then 
min =" min" - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
程序中①处应该填  
计时器timer1的inteval属性应该设置为  

下列VB程序运行时，单击命令按钮command1后，在列表框 list1 中输出的是_______________。
Private Sub Command1_Click()
Dim I  as integer
For  i=1  to 10  step 2
If  i>=5  then
List1.additem str(i-3)
Else
List1.additem str(i)
Next i
End Sub

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”   'Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “   ”
Else
MsgBox “    ”
方框中正确的语句是（ ）

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功”	D．③中“输出验证码错误”