三个正整数a、b、c满足等式a²+b²=c²，a、b、c称为“勾股数”，求出100以内所有“勾股数”可采用的算法是（ ）

A．枚举算法

B．解析算法

C．冒泡排序

D．顺序查找

表达式Len(“doodluck”)+2 Mod 3+Int(3.9999)的值为（  ）

A．12

B．13

C．14

D．表达式运算出错

某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（ ）

A．2 5.5 3 6.2 4.5

B．2 3 6.2 4.5 5.5

C．2 4.5 6.2 3 5.5

D．2 3 5.5 4.5 6.2

已知Asc(“A”)的值为65，下列Visual Basic表达式的值等于数值131的是（ ）

A．ASC(“A+B”)

B．CHR(65)+CHR(66)

C．"13"+"1"

D．Abs(69-200)

某算法流程图如图所示，该算法实现的功能为（）

A．交换x,y两数的值

B．求x,y两数最大值

C．求x,y两数最小值

D．以上都不对

某查找算法的部分VB代码如下：
shifouzhaodao = False  ‘shifouzhaodao：是否找到
szysxh = 0    ‘szysxh：数组元素序号
Do While szysxh < 5 And not shifouzhaodao
szysxh =" szysxh" + 1
if dczsz(szysxh) =" Key" then shifouzhaodao = true
Loop
if not shifouzhaodao then szysxh = 0
数组元素dczsz (1)到dczsz (5)的数据依次为“-1，3，7，10，7”，当变量key值为7时，运用该算法处理后，变量i的值是（ ）

A．0

B．-1

C．3

D．5

小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。
Dim a(1 To 45) As String
Dim b(1 To 45) As Integer
Private Sub Form_Load()
a(1) = "中国"
b(1) = 308
‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim t As Integer,f As Integer
List1.Clear
For i =" 1" To 3
For j =    To 2 Step -1
If ‚ Then
f =" a(j):" a(j) =" a(j" - 1): a(j - 1) = f
t =" b(j):" b(j) =" b(j" - 1): b(j - 1) = t  
End If
Next j
Next i
For i =" 1" To 3
List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))
Next i
End Sub

有一组数据为“2、3、5、5、7、7、8”，利用顺序查找和对分查找查找5时，则分别查找几次可以找到目标值（ ）

A．3无法使用对分查找	B．4无法使用对分查找
C．3 1	D．4 1

王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。
校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。
Private Sub Command1_Click()
Dim adocn As new connection
Dim adors As new recordeset
Dim str1 As string,str2 as string
Str1="”driver=microsoft" access driver(*.mdb);dbq=”&app.path&”\  .mdb”
Adon.open str1
Str2="”select" * from Yue where ‚ =’”+text1.text+”’”
Adors.open str2,adocn,adOpenDynamic,adLockOptimistic
If adors.eof then
Msgbox”你输入的学号不存在!”
Else
Label4. caption =adors.Fields(“name”).value
    ƒ =adors.Fields(“money”).value
Endif
Adors.close
Adocn.close
End Sub
为了实现上述目标，在画线处填入合适的语句或表达式：
     
‚     
ƒ     

现要求编写VB程序，界面如第2题-1图所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别。

具体方法为：
（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。应用程序界面设计时，为添加“识别”按钮，应使用2图中“控件工具箱”中的 （填写相应编号），并修改3图“属性窗口”中，将    属性值设置为“识别”

请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n =" 15" Then
s = Mid( ① , Len(x), 1)
If Val(s) Mod 2 =" 0" Then
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s="Mid(x," 17, 1)
If     ②     Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If