二级Vb单选试题.xls

Sheet3 Sheet2 Sheet1 Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveRecordset.MovePrevious Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveRecordset.MoveNext 下面程序段输出的结果是 Private Sub Command1_Click() Dim a(1 To 3, 4) As Integer Print LBound(a, 1), UBound(a, 1), LBound(a, 2), UBound(a, 2) End Sub 1 3 0 4 0 3 1 4 1 3 1 4 0 3 0 4 若有一菜单项(名为MenuItem),为了在运行时使该菜单项失效(变灰),应使 用的语句是 MenuItem.Checked = True 设执行以下程序段时依次输入11、33、55,执行结果为 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据)) b(3 - K) = a(K + 1) Next K Print b(K) 33 55 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达 方式是 TestDate=#1/1/2008# TestDate=#1/1/2008# TestDate=date(1/1/2008) TestDate=Format(m/d/yy,1/1/2008) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框, 然后编写如下程序: Private Sub Command1_Click() Dim x, y, z As Integer x = 5 y = 7 z = 0 Text1.Text = Call P1(x, y, z) Text1.Text = Str(x) Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) a=a+1 b=b+1 c = a + b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是 5 14 6 14 5 0 6 0 设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是 1+1/2+2/3+3/4+4/5 1+1/2+2/3+3/4 1/2+2/3+3/4+4/5 1+1/2+1/3+1/4+1/5 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(1, 2, 3, 4, 5) Sum = 0 For i = 1 To 5 Sum = Sum + a(i) Next i x = Sum / 5 For i = 1 To 5 If a(i) x Then Print a(i); Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 1 2 1 2 3 3 4 5 4 5 在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1 的命令按钮.然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1.FileName = CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=VBTest CommonDialog1.Action=1 End Sub 对于这个程