(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