《全国计算机等级考试二级VB模拟试题5》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB模拟试题5（8页珍藏版）》请在金锄头文库上搜索。
1、 1 全国计算机等级考试二级VB模拟试题(三) 模拟试题(三) 一、选择题(每小题2分，共70分) 下列各题A、B、C、D四个选择中，只有一个选项是正确的，请将正确选项涂写在答题卡相应 位 置上，答在试卷上不得分。 1在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是： ( ) APicture1.picture=mypic.jpg BPicture1.image=mypic.jpg CPicture1.picture=LoadPicture(mypic.jpg) DLoadPicture(mypic.jpg) 2下列符号哪一个是VB中的合法变量名? ( ) Ax23
2、B8xy CEND DX8B 3在程序代码中清除图片框Picture1中的图形的正确语句是： ( ) APicture1.picture= BPicture1.picture=Loadpicture() CPicture1.image= DPicture1.picture=Null 4下列( )字符不属于Visual Basic字符集。 AA B# C? D 5使用通用对话框控件打开字体对话框时， 如果要在字体对话框中显示样式和颜色， 必须 设置 通用对话框控件的Flags属性为 ( ) A128 B255 C256 D127 6使用通用对话框控件打开字体对话框时， 如果要在字体对话框中列出可
3、用的屏幕字体和 打印 字体，必须设置通用对话框控件的Flags属性为 ( ) A0 B1 C2 D3 7单击一次命令按钮之后，下列程序代码的执行结果为 ( ) Public Sub Proc(a()As Integer) Static i As Integer Do a(i)=(a)i+a(i+1) i=i+1 Loop While i2 End Sub Private Sub CommandlCD#*3Click() 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
4、:Call Proc(x):Next i For i=0 To 4:Print x(i);:Next i End Sub A3 4 7 5 6 B3 5 7 4 5 C1 2 3 4 5 D1 2 3 5 7 8要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用( )语句 。 AOpenStuData.datFor Output As#2 2 BOpenC:StuData.datFor Input As#2 COpenC:StuData.datFor Output As#2 DOpenStuData.datFor Input As#2 9如果要在任何新建的模块中自动插入
5、Option Explicit语句， 则应采用下列( )操 作步骤。 A在“工具”菜单中选取“选项”命令，打开“选项”对话框，单击“编辑器” 选项卡，选中“要求变量 声明”选项 B在“编辑”菜单中执行“插入文件”命令 C在“工程”菜单中执行“添加文件”命令 D以上操作均不对 10下面( )不是字符串常量。 A你好 B CTrue D#False# 11表达式Val(123E2CD)的值是 ( ) A123 B123 C0 D123E2CD 12下列程序段的执行结果为 ( ) M=0 For I=1 To 3 For J=5 To 1 Step-1 N=N+1 Next J,I Print N;
6、J;I A12 0 4 B15 0 4 C12 3 1 D15 3 1 13如果只允许在列表框中每次只能选择一个列表项时，则应将其Multiselect属性设置为 ： ( ) A0 B1 C2 D3 14设置复选框或单选按钮的标题对齐方式的属性是： ( ) AAlign BStyle CSorted DAlignment 15Visual Basic布尔运算符Xor、Or、Eqv、And中，级别最高的运算符是 ( ) AXor BOr CEqv DAnd 16执行以下Command1的Click事件过程在窗体上显示 ( ) Option Base 0 Private Sub Command1C
7、D#*3Click() Dim a a=Array(a,b,c,d,e,f,g) Print a(1);a(3);a(5) End Sub Aabc Bbdf Cace D出错 17能够改变窗体边框线类型的属性是 ( ) AFontStyle BBorderStyle CBackStyle DBorder 3 18下面是窗体Form1的Click事件过程，实现运行时每次单击窗体时，窗体均向右移动100 缇。 Private Sub (1) () (2) intleft As Integer intleft=intleft+100 Form1. (3) =intleft End Sub 供选择的
8、答案： (1)AForm1 Click BForm Click CCommand Click DCommand1 Click (2)ADim BStatic CPrivate DPublic (3)ACaption BTop CWidth DLeft 19要使一个文本框具有水平和垂直流动条， 则应先将其MultiLine属性设置为Ture， 然后 再将 ScrollBar属性设置为： ( ) A0 B1 C2 D3 20在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是 ( ) APrivate Sub Text1CD#*3GotFocus() BPrivate
9、Sub Text1 LostFocu s() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Tex1.Text) End Sub End Sub CPrivate Sub Text1CD#*3Change() DPrivate Sub Text1CD#*3SetFocus() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Text1.Text)
10、End Sub End Sub 21已知函数sum(k,n)=1k+2k+nk。下面的Function过程Sum计算给定参数的函数 的 值。 Private Function Sum(k As Integer,n As Integer)As Long Dim i As Integer,s As Long For i=1 To n s=s+Power( (1) ) Next i sum=s End Function Private Function Power(a As Integer,b As Integer)As Long Dim i As Integer,t As Long t=1 For
11、 i=1 To a (2) Next i (3) End Function 供选择的答案： (1)Ak,i Bk,n Ck,s Ds,k 4 (2)At=t+b Bt=t*a Ct=t*b Dt=t*i (3)APower=Sum BPower=t CSum=Power D Sum=t 22有如下程序 c=4 READ d DO WHILE d0 IF dc THEN c=c+1 READ d LOOP DATA 9,8,7,6,5,4,3,1,0 ( ) PRINT c+d END 运输时输出的结果 A5 B6 C7 D8 23有如下程序 aS=China bS=RIGHT S(aS,3):
12、cS=ST RING S(3,bS) PRINT cS END 运行时输出的结果是 ( ) AChi Baaa Ciii Dina 24有如下程序 n=-5:m=6 DIM a(n TO m) FOR i=LBOUND(a,1)TO UBOUND(a,1) a(i)=i NEXT i PRINT a(LBOUND(a,1);a(UBOUND(a,1) END 运行后输出结果为 ( ) A0 0 B-5 0 C-5 6 D0 6 25有如下程序 DECLARE SUB acerr(a%,b%,c%,d%) a%=30:b5=40 CALL acerr(a%,b%,c%,d%) PRINT c%;
13、d% END SUB acerr(x%,y%,z%) z%=x%*+y% END SUB 运行后输出结果为 ( ) A70 B7000000 C70E+1 D显示出错信息 5 26COMMON SHARED x! y#语句定义的变量x!和y#分别是 ( ) A普通型和特别型的通用变量 B单精度实型和双精度实型的全局变量 C单精度实型和双精度实型的局部变量 D普通型和特别型的全局变量 27有如下程序 mS=ABC nS=abc kS=LCASE S(mS) jS=UCASE S(nS) PRINT ASC(kS+jS) END 运行时输出的结果是 ( ) Aabcabc BABCABC C65 D97 28CIRCLE语句的功能是 ( ) A用来绘制圆 B用来绘制圆、椭圆 C用来绘制圆弧 D用来绘制圆、椭圆和圆弧 29有如下程序 DECLARE FUNCTION Fee(x) INPUT x pay=Fee(x) PRINT pay END FUCTION Fee(x) IF x20 THEN y=x ELSE y=20+x END IF Fee=y END FUNCTION 运行时从键盘输入变量x的值为20，输出结果为 ( ) A0 B20 C40 D显示出错信息 30有如下程序 DECLARE SUB mult(x!,y!) a=1:b=1 PR
