2010年3月計(jì)算機(jī)等級(jí)考試二級(jí)VB試試題(文字版)

　　(27)下面程序計(jì)算并輸出的是

　　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個(gè)103的和

　　(28)若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組

　　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)設(shè)窗體上有一個(gè)通用對(duì)話框控件CD1，希望在執(zhí)行下面程序時(shí)，打開如圖所示的文件對(duì)話框

　　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

　　但實(shí)際顯示的對(duì)話框中列出了C:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是

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

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

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

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

　　(30)下面程序運(yùn)行時(shí)，若輸入395，則輸出結(jié)果是

　　Private Sub Comand1_Click()

　　Dim x%

　　x=InputBox("請(qǐng)輸入一個(gè)3位整數(shù)")

　　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