能被对象所识别的动作是（ ）

A．事件

B．过程

C．属性

D．属性值

下面关于算法的描述，正确的是（ ）

A．一个算法只能有一个输入

B．算法只能用框图来表示

C．一个算法的执行步骤可以是无限的

D．一个完整的算法，不管用什么方法来表示，都至少有一个输出结果

在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：，若用VB表达式来表示，正确的是（ ）

A．F=m(g-v*v/r)	B．F=m(g-v^2/r)
C．F=m*(g-v^2/r)	D．F=m*(g-v*2/r)

自幂数是指一个 n 位数，它的每个位上的数字的 n 次幂之和等于它本身。使用枚举法寻找5位数以内的自幂数算法如下：
(1)使用循环列出1到99999中的每一个数zmsknz
(2)通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
(3)将zmsknz与ddknzms进行比较，若相等则说明是自幂数，可将其加入列表。
编写VB程序，使用枚举法得到5位数以内的自幂数，程序设计界面如图所示：

请根据算法及相应注释将下面的程序补充完整：
Function ddknzms(zmsknz As Long) As Long  '得到可能的自幂数
Dim zmsknz_str As String  '字符串类型自幂数可能值
Dim zmsknz_length As Integer, zmswsxh As Integer '字符串类型自幂数可能值字符个数
zmsknz_str = Trim(Str(zmsknz))
zmsknz_length = Len(zmsknz_str)
For zmswsxh =" 1" To zmsknz_length
ddknzms =" ddknzms" + Val(Mid(zmsknz_str, zmswsxh, 1)) ^  ①   
Next zmswsxh
End Function
Private Sub Command1_Click()
Const ZMSWS = 5
Dim zmsknz As Long, zmsknz_zz As Long
zmsknz_zz =" 10" ^ ZMSWS - 1
For zmsknz =" 1" To zmsknz_zz
If ②  Then List1.AddItem (Str(zmsknz))
Next zmsknz
End Sub

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub

有如下VB程序段：
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后，标签Label1将显示（ ）

A．3*4	B．12
C．bianliang_a*bianliang_b	D．3*4=12

某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数，kcq:可抽取
'xhxm:学号姓名，kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click()  '初始化数组kcq，使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x)   '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer()  '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub

下列四种流程图样式中，能用于表示循环结构的是（ ）

A．

B．

C．

D．

下列程序的功能是：随机产生10个1—100之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：
①______________ _
②__________ _____
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a(1 to 10) As Integer
For i="1" to 10
_____①_______
Next  i
For i="1" to n-1
For j="i+1" to n
If  ____②____ Then
k=a(i):a(i)=a(j):a(j)=k
End If
Next j
Next i
For i="1" To n
Print a(i)
Next i

下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，程序运行时在文本框Text1中输入n的值，计算结果在文本框Text2中输出。则程序中加框处的语句应分别更正为：
（1）__________________
（2）__________________
Private Sub Command1_Click()
Dim sum As Long,i As Integer,n As Integer
sum = 0
n =Val（ Text1.Text）
For i =" 1" To 2 * n - 1 Step 2
sum =" sum" + 2
Next i
Text2.label=Str(sum)
End Sub