2010年3月计算机等级考试二级VB试试题(文字版)

　　(27)下面程序计算并输出的是

　　Private Sub Comand1_Click()

　　a=10

　　s=0

　　Do

　　s=s+a*a*a

　　a=a-1

　　Loop Until a<=0

　　Print s

　　End Sub

　　A)13+23+33+…+103的值

　　B)10!+…+3!+2!+1!的值

　　C)(1+2+3+…+10)3的值

　　D)10个103的和

　　(28)若在窗体模块的声明部分声明了如下自定义类型和数组

　　Private Type rec

　　Code As Integer

　　Caption As String

　　End Type

　　Dim arr(5) As rec

　　则下面的输出语句中正确的是

　　A)Print arr.Code(2),arr.Caption(2)

　　B)Print arr.Code,arr.Caption

　　C)Print arr(2).Code,arr(2).Caption

　　D)Print Code(2),Caption(2)

　　(29)设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框

　　Private Sub Comand1_Click()

　　CD1.DialogTitle="打开文件"

　　CD1.InitDir="C:\"

　　CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"

　　CD1.FileName=""

　　CD1.Action=1

　　If CD1.FileName=""Then

　　Print"未打开文件"

　　Else

　　Print"要打开文件"& CD1.FileName

　　End If

　　End Sub

　　但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是

　　A)把CD1.Action=1改为CD1.Action=2

　　B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”

　　C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3

　　D)把CD1.FileName=""改为CD1.FileName="文本文件"

　　(30)下面程序运行时，若输入395，则输出结果是

　　Private Sub Comand1_Click()

　　Dim x%

　　x=InputBox("请输入一个3位整数")

　　Print x Mod 10,x\100,(x Mod 100)\10

　　End Sub

　　A)3 9 5

　　B)5 3 9

　　C)5 9 3

　　D)3 5 9