[计算机类试卷]VB笔试模拟试卷209及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷209及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷209及答案与解析.doc(17页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试模拟试卷 209及答案与解析 1 在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、 Label1和Label2,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 T0 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签 Label1和 Label2中显示的内容分别是 ( )。 ( A) 10和 20 ( B) 20和 11
2、0 ( C) 200和 110 ( D) 110和 20 2 下列程序运行时,两次单击窗体后,显示的结果是 ( )。 Private Sub Form_Click() Dim b As Integer Static c As Integer b=b+2 c=c+2 Print “b=“;b;“c=“;c End Sub ( A) b=2 c=2 b=2 c=2 ( B) b=2 c=2 b=4 c=4 ( C) b=2 c=2 b=2 c=4 ( D) b=2 c=2 b=4 c=2 3 假定有下面的过程: Function Func(a As Integer,b As Integer)As
3、Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command 1_Click() Dim k As Integer, m As Integer Dim p As Integer k=4 m=1 p=Func(k, m) Print p; p=Func(k, m) Print p End Sub 程序运行后,单击命令按钮,输出结果为 ( )。 ( A) 8 17 ( B) 8 16 ( C) 8 20
4、( D) 8 8 4 在 Activate事件过程中,写入下面的程序: Prirate Sub Form_Activate() Dim S As String, a As String, b As String a=“*“: b=“$“ For i=1 To 4 If i/2=Int(i/2) Then S=String(Len(a)+i,b) Else S=String(Len(a)+i,a) End If Print S: Next i End Sub 运行程序后,显示的结果是 ( )。 ( A) $*$* ( B) *$*$*$*$ ( C) *$*$ ( D) $*$*$*$* 5 窗
5、体上有一个命令按钮和一个列表框 (Sorted属性为 True),执行下列过程后的输出结果是 ( )。 Private Sub Command1_Click() List1.AddItem“China“ List1.AddItem“Great“ List1.AddItem“Is“,1 List1.AddItem“!“,3 Print List1.List(2) End Sub ( A) China ( B) Great ( C) Is ( D) ! 6 设有如下程序: Private Sub Command1_Click() Dim sum As Double, x As Double sum
6、=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过 For循环计算一个表达式的值,这个表达式是 ( )。 ( A) 1+1/2+2/3+3/4+4/5 ( B) 1+1/2+2/3+3/4 ( C) 1/2+2/3+3/4+4/5 ( D) 1+1/2+1/3+1/4+1/5 7 单击一次命令按钮之后,下列程序段的执行结果为 ( )。 Pubic Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i2 End Su
7、b Private Sub Command1_Click() Dim m As Integer,i As Integer,x(10)As Integer For i=0 To 4:x(i)=i+1:Next i For i=1 To 2:CallProc(x():Next i For i=0 To 4:Print x(i);Next i End Sub ( A) 3 4 7 5 6 ( B) 3 5 7 4 5 ( C) 1 2 3 4 5 ( D) 1 2 3 5 7 8 在窗体上画一个命令按钮 (其 Name属性为 Command1),然后编写如下代码: Option Base 1 Pri
8、vate Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*J j=j*10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是( )。 ( A) 4321 ( B) 1234 ( C) 34 ( D) 12 9 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print_ Next End S
9、ub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 ( )。 ( A) Right(c1,i) ( B) Left(c1,i) ( C) Mid(c1,i,1) ( D) Mid(c1,i,i) 10 定义含有 10个元素的单精度实型一维数组正确的语句是 ( )。 ( A) Dim a(9)as Single ( B) Option Base 1:Dim a(9) ( C) Dim a#(9) ( D) Dim a(10)As Integer 11 使用语句 Dim A As Integer声明数组 A之后,以下说法正确的是 ( )
10、。 ( A) A数组中所有元素值为 0 ( B) A数组中的所有元素值不确定 ( C) A数组中的所有元素值为 Empty ( D)执行 EraseA后, A数组中的所有元素值为 0 12 假定窗体有一个标签,名为 Label1,为了使该标签透明并且没有边框,正确的属性设置为 ( )。 ( A) Label1.BackStyle=0 Label1.BorderStyle=0 ( B) Label1.BackStyle=1 Label1.BorderStyle=1 ( C) Label1.BackStyle=True Label1.BorderStyle=True ( D) Label1.Bac
11、kStyle=False Label1.BorderStyle=False 13 下面的程序运行结果是 ( )。 Private Sub Form_Click() i=0 Do i=i+1 if i 10 then Exit Do Loop Until i 10 Print i End Sub ( A) 0 ( B) 1 ( C) 10 ( D) 11 14 如果在 C盘当前文件夹下已存在名称为 studata.dat的顺序文件,那么执行语句 Open“c:studata.dat“For Append As #1之后,将 ( )。 ( A)删除文件中原有内容 ( B)保留文件中原有内容,并在文
12、件尾添加新内容 ( C)保留文件中原有内容,并在文件头添加新内容 ( D)以上均不对 15 在菜单编辑器中建立 1个名称为 Menu0的菜单项,将其 “可见 ”属性设置为False,并建立其若干子菜单,然后编写如下过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Buaon=1 Then PopupMenu Menu0 End If End Sub 则以下叙述中错误的是 ( )。 ( A)该过程的作用是弹出一个菜单 ( B)单击鼠标右键时弹出菜单 ( C)
13、Menu0是在菜单编辑器中定义的弹出菜单的名称 ( D)参数 X、 Y指明鼠标当前位置的坐标 16 下面 4个语句中,能打印显示 20*30字样的是 ( ) ( A) Print“20*30“ ( B) Prin 20*30 ( C) Print Chr$(20)+“*“+Chr$(30) ( D) Print Val(“20“)*VaL(“30“) 17 确定复选框是否选中,可访问的属性是( )。 ( A) Value ( B) Checked ( C) Selected ( D) Caption 18 下列说法中正确的是( )。 ( A)对象属性只能在 “属性窗口 ”中设置 ( B)一个新
14、的工程可以在 “工程窗口 ”中建立 ( C)必须先建立一个工程,才能开始设计应用程序 ( D)只能在 “代码窗口 ”中编写 程序代码 19 不能打开属性窗口的操作是( )。 ( A)单击工具栏中的 “属性窗口 ”按钮 ( B)选取 “视图 ”菜单中的 “属性窗口 ”子菜单项 ( C)在对象上单击右键,从弹出的快捷菜单中选择 “属性窗口 ”选项 ( D)选取 “工程 ”菜单中的 “属性窗口 ”子菜单项 20 下列叙述中正确的是( )。 ( A)软件测试应该由程序开发者来完成 ( B)程序经调试后一般不需要再测试 ( C)软件维护只包括对程序代码的维护 ( D)以上三种说法都不对 21 窗体文件中
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 209 答案 解析 DOC
