计算机二级VB考试题及答案（7）
|
1.以下能判断指针是否指向文件尾的函数是(D)(单) A.BOF B.LOC C.LOF D.EOF 2.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单) A.如果工程中含有Sub Main过程，则程序一定首先执行该过程 B.不能把标准模块设置为启动模块 C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 D.任何时刻最多只有一个窗体是活动窗体 3.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单) A.通过Button参数判定当前按下的是键盘上哪一个键 B.Shift参数只能用来确定是否按下Shift键 C.Shift参数只能用来确定是否按下Alt和Ctrl键 D.参数x,y用来设置鼠标当前位置的坐标 4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单) A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount 5.以下关于焦点的叙述中，错误的是(A)(单) A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据 B.当文本框失去焦点时，触发LostFocus事件 C.当文本框的Enabled属性为False时，其Tab顺序不起作用 D.可以用TabIndex属性改变Tab顺序 6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单) A.= B.* C.& D.- 7.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click( ) n = val(Text1.Text ) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单) A.10 B.20 C.30 D.40 8.设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是(A)(单) A.若"条件"是一个为0的常数，则一次也不执行循环体 B."条件"可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用Exit Do语句 D.如果"条件"总是为True，则不停地执行循环体 9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单) A.1 3.4 5.8 B.1 3 5 C.1 4 7 D.无数据输出 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a-1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单) A.7 9 B.34 0 C.9 7 D.死循环 11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Command1_Click( ) Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单) A.10 5 B.20 5 C.20 40 D.10 40 12.设有如下通用过程： Public Sub Fun(a( ), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next I End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next I n = 10 Call Fun(arr( ), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单) A.10 B.15 C.25 D.24 13.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d-c End If首页 1 2 尾页 相关资料 |
