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

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

B．①②③①②③④⑤

C．①②③④⑤

D．①②③④⑤⑥

假设b是布尔型变量，t是整数型变量，则下列赋值语句中正确的是（ ）

A．t="good"

B．b=“True”

C．b="#True#"

D．b=3<4

某算法流程图如图所示，执行该算法后，“s←s+i”共被执行的次数是（    ）

A．0

B．6

C．7

D．8

在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是（  ）。

A．循环

B．赋值

C．分支

D．顺序

如图8-a、图8-b所示，是求绝对值的算法，其描述方式分别是(    )

A．自然语言、流程图	B．伪代码、流程图
C．自然语言、伪代码	D．流程图、自然语言

公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：公鸡5钱1只，母鸡3钱1只，小鸡3只1钱，有人用100钱买了100只鸡。请编写一段代码求其中公鸡，母鸡，小鸡各多少只？
Private Sub Command1_Click()
For i =" 0" To 20
For j =" 0" To 33
k =    
If     Then Print i, j, k
Next j
Next i
End Sub

求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n  Then  t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub

以下语句中错误的是（   ）

A．Const var1=123

B．Dim var2 As String

C．x+y=9

D．Dim d(1 to 500) As Double

下列是用来检测某地区酸雨程度的程序，程序调试过程中提示①处出现语法错误，则这一行正确的语句应该为 。
Dim ph As Single, s As String
ph = Val(Text1.Caption) '①
If ph <=" 4.7" Then[]
s = "重度酸雨区"
Else
If ph <=" 5.6" Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
End If
Label2.Caption = s

下列程序在调试时提示错误“块IF没有End If”，要使程序正常运行，则应该在 （填①或②）处添加语句     。
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
    ①  
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True[:Zxxk.Com]
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
    ②     
End Sub