VB选择题汇编.doc

《VB选择题汇编.doc》由会员分享，可在线阅读，更多相关《VB选择题汇编.doc（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一套第1题 （2分）Visual Basic 6.0集成环境的主窗口中不包括_。(A).标题栏(B).菜单栏(C).状态栏(D).工具栏答案：C第2题 （2分）与传统的程序设计语言相比，Visual Basic最突出的特点是_。(A).结构化程序设计(B).程序开发环境(C).事件驱动程序编制(D).程序调试技术答案：C第3题 （2分）在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是_。(A).编写代码(B).新建一个工程(C).打开属性窗(D).进入VisualBasic环境答案：B第4题 （2分）下面关于Visual Basic 6.0工具栏

2、的说法不正确的是_。(A).工具栏的位置可以任意改变(B).工具栏一定在菜单栏的下方(C).工具栏可以显示或隐藏(D).VisualBasic有多个工具栏答案：B第5题 （2分）下列程序执行后，n的值为_。 n=0 For I=1 To 100 If I Mod 4=0 Then n=n+1 Next I(A).5050(B).25(C).26(D).33答案：B第6题 （2分）用于获得字符串S从第4个字符开始的4个字符的函数是_。(A).Mid(S,4,4)(B).Left(S,4,4)(C).MidStr(S,4,4)(D).MiddleStr(S,4,4)答案：A第7题 （2分）下列不能

3、作为Visual Basic中的变量名的符号是_。(A).A45(B).P12(C).89Ta(D).xy答案：C第8题 （2分）将Cos(y)四舍五入保留3位小数的表达式是_。(A).Int(Cos(Y)+0.5)*1000)/1000(B).Int(Cos(Y*1000)/1000+0.5(C).Int(Cos(Y)*1000+0.5)/1000(D).Int(Cos(Y*1000)+0.5)/1000答案：C第9题 （2分）在Visual Basic中，6个关系运算符、=、=、(B).=(C).无先后之分(D).答案：C第10题 （2分）用户自定义数据类型时,其成员不能是_。(A).定长

4、字符串和数组(B).数组(C).货币型和日期型(D).变长字符串和货币型答案：B第11题 （2分）在窗体上面一个命令按钮，名称为Command1，单击命令按钮时，执行如下事件过程：Private Sub Command1_Click() a$=software andhardware b$=Right(aS,8) c$=Mid(s$,1,8) MsgBox a$,b$,c$,1 End Sub 则在弹出信息框的标题栏中显示的信息是_。(A).software and hardware(B).software(C).hardware(D).1答案：C第12题 （2分）在窗体上画一个命令按钮(其N

5、ame属性为Command1)，然后编写如下代码：Option Base1 Private Sub Command1_Click() Dim a(4,4)For i=1 To 4For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为_。(A).6 9 7 10(B).7 10 8 ll(C).8 11 9 12(D).9 12 10 13答案：D第13题 （2分）表达式Str(Len123)

6、+Str(77.7)的值是_。(A).377.7(B).3 77.7(C).80.7(D).12377.7答案：B第14题 （2分）有如下程序，运行后单击按钮输出的结果是_。 Private Sub Command1_Click() m=5:n=4 Call A(m,n)Print m,n End Sub Private Sub A(m,n) S=m m=s/n n=s Mod n End Sub(A).1.25 1(B).5 4(C).1 4(D).5 1答案：D第15题 （2分）下列程序运行后，输出的结果是_。Private Sub Command1_Click() Sum=0 For k

7、=3 To 5 Call Multi(k,s) Sum=Sum+S Next k Print Sum End Sub Private Sub Multi(k,s) S=1 For j=l To k s=8*j Next j End Sub(A).9(B).120(C).150(D).30答案：C第16题 （2分）设x=10,y=20,z=30.要按如下的格式将x,y,z的值写入顺序文件中该使用语句_。(A).Print #l x,y,z(B).Print #l x;y;z(C).Write #l x,y,z(D).Write #l x;y;z答案：A第17题 （2分）若要求显示一个指定窗体，所

8、用的方法是_。(A).Show(B).Open(C).Hide(D).Load答案：A第18题 （2分）文本框所能响应的事件有().(A).Load(B).Click(C).Move(D).Activate答案：B第19题 （2分）下列属性属于颜色对话框的是_(A).FileName(B).Min(C).FontSize(D).Color答案：D第20题 （2分）下述程序的输出图形是_。For k=0 To 360 Cr=Int(160*Rnd) ang=-3./180*k Circle(200,200),50,cr,O,ang Next(A).一段彩色圆弧(B).一个彩色扇形(C).一个彩色

9、空心圆(D).一个辐射状彩色圆形答案：D第二套第1题 （2分）_是由 VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部.(A).文件(B).属性(C).方法(D).窗体答案：C第2题 （2分）在Visual Basic的工程中，工程文件的扩展名是_。(A).frm(B).vbg(C).vbp(D).bas答案：C第3题 （2分）下列关于面向对象程序设计的叙述不正确的是_。(A).对象具有属性?方法等特性(B).对象之间的通信产生了消息(C).一个对象是一个软件构造块,它包含数据与相关的操作(D).对象的属性不能被改变答案：D第4题 （2分）在正确安装Visu

10、al Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Basic的是_。(A).通过开始菜单中的程序命令(B).通过我的电脑找到vb6.exe,双击该文件名(C).通过开始菜单中的运行命令(D).进ADOS方式,执行vb6.exe文件答案：D第5题 （2分）表达式Sqr(2+52*3) Mod 4的值是_。(A).0(B).1(C).2(D).3答案：B第6题 （2分）在Visual Basic中，6个关系运算符、=、=、(B).=(C).无先后之分(D).答案：C第7题 （2分）在以下4个逻辑表达式中，其逻辑值为真的是_。(A).Not(

11、3+4l And 32 0r 23(D).Not(12)答案：D第8题 （2分）下列程序段的执行结果为_。 K=5 y=-20 If Not x0 Then x=y-3 Else y=x+3 Print x-y;y-x(A).-3 3(B).5 8(C).38414(D).25 -25答案：A第9题 （2分）如下定义语句：Type student name As String code As String sex As String End Type Dim stu As student With stu .Name=李洪 .code= .sex=女 End With Print etu.Co

12、de的结果是_。(A).李洪(B).10101(C).女(D).11答案：B第10题 （2分）表达式Int(Rnd*11+10)的值的范围是( )。(A).(0,10)(B).10,10(C).10,20(D).0,20答案：C第11题 （2分）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() A$=abed b$=Left$(A$,3):c$=String$(2,b$) Print c$ End Sub运行后，输出的结果是_。(A).ab(B).aa(C).bb(D).cc答案：B第12题 （2分）下列程序段的执行结果为_。Dim M(1

13、0) For i=0 To 10 M(i)=2*iNext iPrint M(M(3)(A).12(B).6(C).0(D).4答案：A第13题 （2分）在窗体上画一个名称为Commsndl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim X AS String * 1 Dim y AS String X = a For i = Asc(X) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是()(A).a(B).abcde(C).aaaa(D

14、).32答案：B第14题 （2分）以下叙述中错误的是_。(A).如果过程被定义为Static类型,则该过程中的局部变量都是Static类型(B).Sub过程中不能嵌套定义Sub过程(C).Sub过程中可以嵌套调用Sub过程(D).事件过程可以像通用过程一样由用户定义过程名答案：D第15题 （2分）下列叙述中正确的是_。(A).在窗体的Form_Load事件过程中定义的变量是全局变量.(B).局部变量的作用域可以超出所定义的过程.(C).在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限.(D).在调用过程时,所有局部变量被系统初始化为0或空字符串.答案：C第

15、16题 （2分）利用下面哪个函数可判定访问文件时已经到达了文件尾()。(A).LOF(B).LOC(C).EOF(D).BOF答案：C第17题 （2分）下列说法中正确的是_。(A).窗体?命令按钮?标签和文本框控件都有Tabindex属性(B).不同控件的Tabindex属性可以相同(C).同一窗体中不同的Tabindex属性值必须小于窗体中的控件个数(D).同一窗体中不同的Tabindex属性值可以任意设置答案：C第18题 （2分）在文本框中设置垂直滚动条,要使ScrollBars的值为().(A).0(B).1(C).2(D).3答案：C第19题 （2分）下列程序的功能是调用字体对话框来设

16、置文本框字体，单击按钮弹出对话框后单击Cancel按钮退.Private Sub Command1_Click()CommonDialogl.CancelError=TrueCommonDialoglFlags=vbCFEffects Or vbDFBothCommonDialogl.ShowFontTextl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=CommonDialogl.FontBold Textl.Font.Italic=CommonDialogl.

17、Fontltalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Textl.ForeColor=CommonDialogl.ColorEnd Sub(A).Textl的字体不发生变化(B).Textl的字体发生变化(C).Textl的字体和颜色发生变化(D).程序出错答案：D第20题 （2分）要更改VisualBasic坐标系统的单位.要设置的属性是_.(A).Scaletype(B).Scaletop(C).Scalemode(D).Sc

18、alewidth答案：C第三套第1题 （2分）在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Basic的是_。(A).通过开始菜单中的程序命令(B).通过我的电脑找到vb6.exe,双击该文件名(C).通过开始菜单中的运行命令(D).进ADOS方式,执行vb6.exe文件答案：D第2题 （2分）下列叙述不正确的是_。(A).注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译(B).注释语句可以放在代码中的任何位置(C).注释语句不能放在代码中的任何位置(D).代码中加入注释语句的目的是提高程

19、序的可读性答案：B第3题 （2分）与传统的程序设计语言相比，Visual Basic最突出的特点是_。(A).结构化程序设计(B).程序开发环境(C).事件驱动程序编制(D).程序调试技术答案：C第4题 （2分）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_。(A).工程资源管理器窗口(B).工具箱窗口(C).代码窗口(D).属性窗口答案：C第5题 （2分）语句PrintInt(-13.2)=;Int(-13.2)的输出结果为_。(A).Int(-13.2)=-13.2(B).Int(-13.2)=13.2(C).Int(-13.2)=-13(D).IRI(-13.2)=-14答案：D

20、第6题 （2分）与变量定义语句Dim lndex% 等价的项是_。(A).Dim lndex As Long(B).Dim lndex As Integer(C).Dim lndex As Single(D).Dim lndex As Double答案：B第7题 （2分）下列表达式中，与其他3个大小不同的一个是_。(A).15(B).&HA(C).1111(D).&017答案：C第8题 （2分）在以下4个逻辑表达式中，其逻辑值为真的是_。(A).Not(3+4l And 32 0r 23(D).Not(12)答案：D第9题 （2分）运算符号&是_。(A).逻辑与运算(B).字符串连接运算(C)

21、.关系运算(D).算术运算答案：B第10题 （2分）以下不合法的单精度实数是_。(A).4.12E3.2(B).45.6!(C).12.34(D).0012答案：A第11题 （2分）下列程序的输出结果是_。Dim a a=Array(1,2,3,4,5,6,7,8,)i=0 For K=100 To 90 Step -2 s=a(i)2 If a(i)3 Then Exit For i=i+1Next k Print k;a(i);s(A).88 6 36(B).88 1 2(C).90 2 4(D).94 4 16答案：D第12题 （2分） 编写如下事件过程： Private Sub For

22、m_Click() A$=123:B$=456 C=Val(A$) + Val(B$) Print C100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是()。 (A).123 (B).6 (C).5 (D).579 答案：C第13题 （2分）可以同时删除字符串前导和尾部空白的函数是_。(A).LTrim(B).RTrim(C).Trim(D).Mid答案：C第14题 （2分）一个工程中包含两个名称分别为Forml，Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1，Form2和mdlFunc中分别建立了一个自定义过程，其定义格式为：Form1中定义的过程：P

23、rivate Sub frmFunc()End SubForm2中定义的过程：Public Sub mdlFunc()End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_。(A).上述3个过程都可以在工程中的任何窗体或模块中被调用(B).frmFunc和mdlFunc过程能够在工作的各个窗体或模块中被调用(C).上述3个过程都只能在各自被定义的模块中调用(D).只有mdlFunc过程能够被工程中各个窗体或模块调用答案：D第15题 （2分）当程序设计语言对输入格式有严格要求时。应保持输入格式与输入语句的()。(A).可读性(B).连续性(C).一致性(D).以

24、上答案都不对答案：C第16题 （2分）关于Close语句的叙述正确的是()。(A).执行Close语句后,所有打开的文件也会自动关闭.(B).打开文件后,必须要用Close语句关闭文件,否则当程序结束时,产生一个错误(C).执行Close语句后,程序将关闭所有窗体(D).执行Close语句后,每次只能关闭一个文件,否则要用Reset语句答案：A第17题 （2分）由系统自动触发的第1个事件是_。(A).Click(B).Dblclick(C).Initialize(D).Load答案：C第18题 （2分）有如下函数： Private Sub ListText(x As String,Option

25、al y As String) If IsMissing(y) Then temp=Format(x,) Else temp=Fonmat(x,)&Format(y,) End If List1.AddItem temp End Sub 调用它的事件过程如下： Private Sub Command1_Click() Dim a As String Dim b As String a=InputBox() b=InputBox() Call ListText(a,b) End Sub 则程序运行时，输人数100,47，运行后的结果为_。(A).100 47(B).50 20(C).200 30

26、0(D).200 94答案：A第19题 （2分）要使用菜单项MentOne在程序运行时失效,使用的语句是_.(A).MentOne.Visble=True(B).MentOne.Visble=False(C).MentOne.Enabled=True(D).MentOne.Enabled=False答案：D第20题 （2分）有如下程序：Form1.Cls For r=35 To 85 Step 25 Circle(300,240),r Next r 单击窗体后，窗体上显示的是_。(A).3个相交圆(B).3个同心不相交圆(C).4个同心不相交圆(D).两个同心不相交圆答案：B第四套第1题 （2

27、分）下列不是Visual Basic 6.0中打开工程的方法为_。(A).按Alt+O组合键(B).执行文件菜单中的打开工程命令(C).按Ctrl+O组合键(D).单击标准工具栏上的打开工程按钮答案：A第2题 （2分）下面关于Visual Basic 6.0工具栏的说法不正确的是_。(A).工具栏的位置可以任意改变(B).工具栏一定在菜单栏的下方(C).工具栏可以显示或隐藏(D).VisualBasic有多个工具栏答案：B第3题 （2分）下列可以立即打开窗口的操作是_。(A).Ctrl+D(B).Ctrl+G(C).Ctrl+F(D).Ctrl+E答案：B第4题 （2分）以下不能运行工程的操作

28、是_。(A).执行运行菜单中的启动命令(B).单击工具栏中的启动命令(C).按下F5键(D).按下Ctrl+F5键答案：D第5题 （2分）语句Print Sgn(-26)=:Sgn(-26)的输出结果为_。(A).Sgn(-26)=26(B).Sgn(-26)=-26(C).Sgn(-26)=+1(D).Sgn(-26)=-1答案：D第6题 （2分）在表示长整数时，可作为长整数尾部符号的是_。(A).#(B).!(C).&(D).$答案：C第7题 （2分）选拔身高T超于1.7米且体重W小于62.5千克的人，能表示该条件的布尔表达式是_。(A).T1.7And W=62.5(B).T=62.5(

29、C).T1.7And W1.7 Or W62.5答案：C第8题 （2分）以下不合法的单精度实数是_。(A).4.12E3.2(B).45.6!(C).12.34(D).0012答案：A 第9题 （2分） 若有以下说明语句： Type employee num As Integer salary As Single End Type Dim programmer AS employee 则下面表示记录变量programmer的成员Salary正确的是( )。 (A).programmer salary (B).salary (C).salary.programmer (D).programmer

30、.salary 答案：D第10题 （2分）已知变量x,y为整数型，且x=4,y=12，s为字符串型，且s=a，Lblok为标签控件，下列赋值语句合法的是_。(A).x=Lblok.Caption(B).Lblok.Caption=Str(x)(C).x*3=y(D).Y=x*8答案：B第11题 （2分）下面语句中，字符串的长度为_。 s$=NameAddressl23(A).12(B).13(C).14(D).15答案：C第12题 （2分）函数InStr(VisualBasic程序设计教程,程序)的值为_。(A).11(B).12(C).13(D).14答案：C第13题 （2分）下述语句的运行

31、结果是_。Dim a i=0 a=Array(1,-2,9,0,-1,9) Do K=a(i) For m=10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)27(A).3 -8 27(B).3 27 -8(C).-8 27 3(D).-8 3 27答案：A14题 （2分） 下列程序输出结果为： Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVol a As Integer,b As

32、Integer) Tmp=a a=b b=tmp End Sub (A).5 5 (B).10 10 (C).10 5 (D).5 10 答案：B第15题 （2分）假定有如下的Sub过程：Sub fun(x As Single,y As Single) t=X x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=4 fun(a,b) Print a,b End Sub 程序运行后，单击命令按钮，输出结果为_。(A).5

33、4(B).1 1(C).1.25 4(D).1.5 2答案：D第16题 （2分）下列说法中，不属于随机文件特点的是_。(A).可以随意读取随机文件中任一记录的数据(B).随机文件没有只读或只写的操作方式,随机文件只要一打开,就既可读又可写(C).随机文件的操作是以记录为单位进行的(D).随机文件的读写操作语句与顺序文件的读写操作语句一样答案：D第17题 （2分）决定窗体有无控制菜单的属性是_。(A).ControlBox(B).MinButton(C).Enabled(D).MaxButton答案：A第18题 （2分）使文本框获得焦点的方法是_.(A).Change(B).OutFocus(C

34、).SetFoeus(D).LostFocus答案：C第19题 （2分）下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后单击Cancel按钮退.Private Sub Command1_Click()CommonDialogl.CancelError=TrueCommonDialoglFlags=vbCFEffects Or vbDFBothCommonDialogl.ShowFontTextl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=Co

35、mmonDialogl.FontBold Textl.Font.Italic=CommonDialogl.Fontltalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Textl.ForeColor=CommonDialogl.ColorEnd Sub(A).Textl的字体不发生变化(B).Textl的字体发生变化(C).Textl的字体和颜色发生变化(D).程序出错答案：D第20题 （2分）关于Image控件和PictureBox控件

36、的说明,其中错误的是_.(A).Image控件和PictureBox控件都有Picture属性(B).Image控件和PictureBox控件都支持Print方法(C).Image控件和PictureBox控件都可以用LoadPicture函数把图形文件装入控件中(D).Image控件和PictureBox控件都能在属性窗口装入图形文件,也都能在运行期间装入图形文件答案：B第五套第1题 （2分）用标准工具栏中的工具按钮不能执行的操作是_。(A).添加工程(B).打印源程序(C).运行程序(D).打开程序答案：B第2题 （2分）以下不能在“工程管理器”窗口中列出的文件类型是_。(A).bas(B

37、).res(C).frm(D).ocx答案：D第3题 （2分）以下可以构成语句的一项是_。(A).对象名.属性(B).对象名.方法名(C).对象名.事件名(D).对象名.函数名答案：B第4题 （2分）Visual Basic规定工程文件的扩展名是_。(A).for(B).frm(C).vbp(D).bas答案：C第5题 （2分）函数UCase(basic)的值为_。(A).Basic(B).basic(C).BAsic(D).BASIC答案：D第6题 （2分）函数Int(Rnd*6+1)的取值范围是_。(A).从1到7共7个整数(B).从0到7共8个整数(C).从1到6共6个整数(D).从0到

38、6共7个整数答案：C第7题 （2分）下面关系表达式的值为真的是_。(A).Aa(B).9a(C).ThatThank(D).1212.1答案：C第8题 （2分）下列程序执行后，n的值为_。 n=0 For I=1 To 100 If I Mod 4=0 Then n=n+1 Next I(A).5050(B).25(C).26(D).33答案：B第9题 （2分）语句Print 5/5*5的输出结果是_。(A).5(B).25(C).0(D).1答案：A第10题 （2分）Visual Basic表达式Cos(0)+Abs(1)+Int(Rnd(1)的值是_。(A).1(B).-1(C).0(D)

39、.2答案：D第11题 （2分）在窗体上画一个名称为Commsndl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim X AS String * 1 Dim y AS String X = a For i = Asc(X) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是()(A).a(B).abcde(C).aaaa(D).32答案：B第12题 （2分）对窗体编写如下代码：Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a=Array(237,126,87,48,498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)m1 Then m1=a(i) m2=i End lf Next i End If Print m1 Print m2 End Sub程序运行后，按回车键，输出结果为_。(A).48 4(B).237 1(C).498 5(D)