21.在窗体中使用一个文本框(名为n)接收输入的值，有一个命令按钮run，事件代码如下：

　　   Private Sub run_Click()

　　   result = ""

　　   For i = 1 To Me!n

　　   For j = 1 To Me!n

　　   result = result + "*"

　　   Next j

　　   result = result + Chr(13)+ Chr(10)

　　   Next i

　　   MsgBox result

　　   End Sub

　　打开窗体后，在文本框n中输入4，输出结果是(      )。答案：D

　　A）* * * *

　　   * * *

　　   * *

　　   *

　　B）*

　　   * * *

　　   * * * * *

　　   * * * * * * *

　　C）* * * *

　　   * * * * * *

　　   * * * * * * * *

　　   * * * * * * * * * *

　　D）* * * *

　　   * * * *

　　   * * * *

　　   * * * *

　　22.在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：

　　   Private Sub run34_Click()

　　   Sum=0

　　   For i=10 To 1 Step -2

　　   sum=sum+i

　　   Next i

　　   MsgBox sum

　　   End Sub

　　   运行以上事件，程序的输出结果是(      )。答案：B

　　A）10

　　B）30

　　C）55

　　D）其他结果

　　23.ADO 的含义是(      )。答案：D

　　A）开放数据库互连应用编程接口

　　B）数据库访问对象

　　C）动态链接库

　　D）Active 数据对象

　　24.程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是( )。

　　   Private Sub run35_Click()

　　   Dim flag As Boolean

　　   result=0

　　   flag=True

　　   Do While flag

　　   result=Val(InputBox("请输入学生成绩:","输入"))

　　   If result>=0 And result<=100 Then

　　   Else

　　   MsgBox "成绩输入错误，请重新输入"

　　   End If

　　   Loop

　　   Rem 成绩输入正确后的程序代码略

　　   End Sub答案：C

　　A）flag=False

　　B）flag=Not flag

　　C）flag=True

　　D）Exit Do

　　25.下面程序的功能是计算折旧年限，假设一台机器原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50万元。

　　   y=0

　　   p=100

　　   x=0.04

　　   Do

　　   p=p*<u>      </u>

　　   y=y+1

　　   Loop Until p<50

　　   MsgBox y答案：B

　　A）x

　　B）(1-x)

　　C）(1+x)

　　D）1-x