1、VB笔试模拟试卷 198及答案与解析 1 下面说法不正确的是 ( )。 （ A）滚动条的重要事件是 Change和 Scroll （ B）框架的主要作用是将控件进行分组，以完成各自相对独立的功能 （ C）组合框是组合了文本框和列表框的特性而形成的一种控件 （ D）计时器控件可以通过对 Visible属性的设置，在程序运行期间显示在窗体上 2 数据的存储结构是指 ( )。 （ A）存储在外存中的数据 （ B）数据所占的存储空间量 （ C）数据在计算机中的顺序存储方式 （ D）数据的逻辑结构在计算机中的表示 3 当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的( )属性为 Tr
2、ue。 （ A） AutoSize （ B） WordWrap （ C） Enabled （ D） Visible 4 以下 ( )操作不能打开属性窗口 （ A）按下 F4键 （ B）单击工具栏上的 “属性窗口 ”按钮 （ C）执行 “视图 ”菜单中的 “属性窗口 ”命令 （ D）双击任何一个对象 5 若要使用户不能修改文本框 TextBoxl中 显示的内容，应设置 ( )属性。 （ A） Locked （ B） MultiLine （ C） PassWordChar （ D） ScrollBar 6 只能用来显示字符信息的控件是 ( )。 （ A）文本框 （ B）标签框 （ C）图片框 （
3、D）图像框 7 假定窗体的名称 (Narne属性 )为 Forml，则把窗体的标题设置为 “VBTest“的语句为( )。 （ A） Form1=“VBTest“ （ B） Caption=“VBTest“ （ C） Form1.Text=“VBTest“ （ D） Form1.Narne=“VBTest“ 8 表达式 32*2+3MODl04的值是 ( )。 （ A） 18 （ B） 1 （ C） 19 （ D） 0 9 如果要在文本框中输入字符时，只显示某个字符，如星号 (*)，应设置文本框的( )属性。 （ A） Caption （ B） PasswordChar （ C） Text （
4、 D） Char 10 英文缩写 “OOP的含义 是 ( )。 （ A）事件驱动的编程机制 （ B）结构化程序设计语言 （ C）面向对象的程序设计 （ D）可视化程序设计 11 “商品 ”与 “顾客 ”两个实体集之间的联系一般是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 12 以下叙述中，错误的是 ( )。 （ A）在 Visual Basic中，对象所能响应的事件是由系统定义的 （ B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 （ C） VisualBasic中允许不同对象使用相同名称的方法 （ D） VisualBasic中的对象具有自己
5、的属性和方法 13 控件是 ( )。 （ A）建立对象的工具 （ B）设置对象属性的工具 （ C）编写程序的编辑器 （ D）建立图形界面的编辑窗口 14 执行下面的程序段后， x的值为 ( )。 x=50 Fori=1 To 20 Step2 x=X+i5 Next i （ A） 66 （ B） 67 （ C） 68 （ D） 69 15 以下语句的输出结果是 ( )。 PrintFormat(32548.5,“000,000.00“) （ A） 32548.5 （ B） 32,548.5 （ C） 032,548.50 （ D） 32,548.50 16 若想使时钟控件每隔 0.25秒触发一
6、次 Timer()事件，则可将 Interval属性值设为( )。 （ A） Interval=0.25 （ B） Interval=25 （ C） Interval=250 （ D） Interval=2500 17 在窗体上画一个名称为 Commandl的命令按钮，然后编写如下程序： Private Sub Commandl_Click() Dimi As Integer,j As Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i， j)=(i-1)*3+j Printa(i， j)； Nextj Print Nexti E
7、nd Sub 18 For-Next循环的初值、终值与步长 ( )。 （ A）只能是具体的数值 （ B）只能是表达式 （ C）可以是数值表达式 （ D）可以是任何类型的表达式 19 表示滚动条控件取值范围最大值的属性是 ( )。 （ A） Max （ B） LargeChange （ C） Value （ D） Max-Min 20 下列符号常量的声明中， ( )是不合法的。 （ A） Consta As Single=1.1 （ B） Consta As Integer=“12“ （ C） Consta As Double=Sin(1) （ D） Consta=“OK“ 21 在窗体上画一个
8、名称为 Commandl的命令按钮，一个名称为 Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是 ( )。 （ A） 1 （ B） 5 （ C） 27 （ D） 45 22 在窗体上画一个名称为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为 “
9、Save”，缺省文件名为 “SaveFile”；在 “文件类型 ”栏中显示 *.txt。则能够满足上述要求的程序是 ( ) （ A） Private Sub Command_Cilck() CommonDialOR1.P11eName=“SaveFile“ CommonDialOg1.Filter=“AllFiles|*.*|(*.txt)|(*.doc)|*.doc“ CommonDialOg1.P11terlndex=2 CommonDialOg1.DialogTitle=“Save“ CommonDialOg1.Action=2 End Sub （ B） Private Sub Comm
10、andl_Click() CommonDial021.FileName： “SaveFile“ CommonDialog1.Pnter二 ”AllFlleS卜刮 (* txt)陡 txtHdOc卜 doc” CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1.Action=2 End Sub （ C） Private Sub Commandl_Cilck() CommonDialog1.FileName=“Save“ CommonDialog1.Filter=“AllFileS|*.*|(*.tx
11、t)|*.txt|(*.doc)|*.doc“ CommonDialog1.Filterlndex=2 C0mmonDialoZ1.DialogTitle=“SaveFlle“ CommonDialog1.Action=2 End Sub （ D） Private Sub Commandl_Click() CommonOialoR1.FlleName=“SaveFile“ CommonDialog1.Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc“ CommonDialog1.Filterlndex=1 CommonDialog1.Dialog
12、Title=“Save“ CommonDialog1.Action=1 End Sub 23 要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课 程成绩 (百分制 )组成，下列程序段正确的是 ( )。 （ A） Typepestudl no As Integer name As String score(1 To 3)As Single End Type （ B） Typestudl no As Integer no As Integer name As String*10 score()As Single End Type （ C） Typestudl no As
13、Integer name As String*10 score(1 To 3)As Single End Type （ D） Typestudl no As Integer name As String score(1 To 3)As Single End Type 24 CommonDialog控件可以显示 ( )对话框。 （ A） 4种 （ B） 5种 （ C） 6种 （ D） 7种 25 单击命令按钮时，下列程序的执行结果为 ( )。 Private Sub Commandl_Click() Dimx As Integer， y As Integer x=12： y=32 CallPCS
14、(x， y) PrintX； y End Sub PubUc Sub PCS(ByValn As Integer， ByValm As Integer) n=nMod 10 m=mMod 10 End Sub （ A） 1232 （ B） 232 （ C） 23 （ D） 123 26 在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1
15、To 3 k=k+p(i)*2 Nexti Printk End Sub 该程 （ A） 35 （ B） 33 （ C） 31 （ D） 29 27 假定时钟控件的 Interval属性为 1000， Enabled属性为 True，并且有下面的事件过程，计算机将发出 ( )beep声。 Sub Timer1_Timer() Fori=1 to 10 Beep Nexti End Sub （ A） 1000次 （ B） 10000次 （ C） 10次 （ D）以上都不对 28 在窗体上画一个名称 为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Priva
16、te Sub Commandl_Click() Dimarrayl(10， 10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i，j)=i+j Nextj Nexti Text1.Text=axvay （ A） 15 （ B） 14 （ C） 13 （ D） 12 29 下列程序运行时输出的结果是 ( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I
17、+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI （ A） 3 7 11 45 19 （ B） 17 13 9 5 1 （ C） 1 3 5 7 9 （ D）不确定的值 30 在运行程序的过程中，当执行 “复制 ”(mnuEditCopy)命令时，使 “粘贴 ”(munEditPaste)命令变为可用，则应做如下处理 ( )。 （ A） Private Sub nuEditPaste_Click() mun Ed itPaste.Enable=True End Sub （ B） Private
18、 Sub mnuEditCopy click muEditPaste.Enable=True End Sub （ C） Privat Sub munEditPaste_Click() mnuEditPaste.Visible=Tme End Sub （ D） Private Sub munEditCopy_ClicK() munEditPaste.Visible=Tme End Sub 31 下列各项中，不是通用过程特点的是 ( )。 （ A）通用过程不与任何特定事件相联系 （ B）通用过程完成特定任务 （ C）通用过程由用户创建 （ D）通用过程可以由鼠标激发 32 对话框在关闭之前，不能继
19、续执行应用程序的其他部分，这种对话框属于( )。 （ A）输入对话框 （ B）输出对话框 （ C）模式 (模态 )对话框 （ D）无模式对话框 33 下列语句中正确的是 ( )。 （ A） txt1 Text+txt2 Text=txtS Text （ B） Commandl.Name=cmdOK （ C） 12Label Caption=1234 （ D） A=InputBox(Hello) 34 设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是 ( )。 （ A） Commondialog1.Filter=All Files|*.*|Pictures(*
20、.Bmp)|*.Bmp （ B） Commondialog1.Filter=“AllFiles“|*.*|Pictures(* Bmp)|*.Bmp （ C） Commondialog1.Filter=AllFilesP|*.*|Pictures(*Bmp)|*.Bmp| （ D） Commondialog1.Filter=“AllFiles|*.*|Pictures(*Bmp)|*.Bmp“ 35 3在文本框 Textl中输入一个键盘键，将会发生 4个事件，这 4个事件的顺序是( )。 （ A） Text1_KeyDown、 Text1_KeyPress、 Text1_Change、 Tex
21、t1_KeyUp （ B） Text1_KeyDown、 Text1_KeyUp、 Text1_KeyPress、 Text1_Change （ C） Text1_KeyDown、 Texd1_KeyPress、 Texd1_Change、 Textl_KeyPress （ D） Text1_KeyDown、 Text1_Change、 Text1_KeyPress、 Test1_KeyUp 36 要想改变一个窗体的标题内容，则应设置 _属性的值。 37 表达式 x1-|a|+ln10+sin(x2+2)/cos(57)对应的 Visual Basic表达式是 _。 38 在关系数据库中，把数
22、据表示成二维表，每一个二维表称为 _。 39 冒泡排序算法在最好的情况下的元素交换次数为 _。 40 关系式 X-或 X5所对应的布尔表达式是 _。 41 使用代码从 VB6.0列表框删除所有项目，使用的方法是 _。 42 假定有一个名为 pic2.gif的图形文件，要在运行期间把该文件装入一个图片框(Picturel)，应 执行的语句是 _。 43 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click事件过程。程序运行后，在文本框中输入一串英文字母 (不区分大小写 )，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中，例如，若在 T
23、cxt1中输入的是 abDfdb，则单击 Commandl按钮后 Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command_Click() DimSring,s As String,s As St 44 下列程序的执行结果是 _。 m1=1 m2=1 Do Whilem2 6 m1=m1*m2 m2=m2+1 Loop Printm1 45 要想在文本框中显示垂直滚动条，必须把 _属性设置为 2，同时还应把Mulfiline属性设置为 True。 46 在 Windows95/98下，使用 Visual Basic6.0至少需要
24、 _的内存。 VB笔试模拟试卷 198答案与解析 1 【正确 答案】 D 2 【正确答案】 D 3 【正确答案】 A 4 【正确答案】 D 5 【正确答案】 A 6 【正确答案】 B 7 【正确答案】 B 8 【正确答案】 C 9 【正确答案】 B 10 【正确答案】 C 11 【正确答案】 D 12 【正确答案】 B 13 【正确答案】 A 14 【正确答案】 A 15 【正确答案】 C 16 【正确答案】 C 17 【正确答案】 D 18 【正确答案】 C 19 【正确答案】 A 20 【 正确答案】 C 21 【正确答案】 B 22 【正确答案】 A 23 【正确答案】 C 24 【正确
25、答案】 C 25 【正确答案】 A 26 【正确答案】 B 27 【正确答案】 D 28 【正确答案】 D 29 【正确答案】 B 30 【正确答案】 B 31 【正确答案】 B 32 【正确答案】 C 33 【正确答案】 D 34 【正确答案】 D 35 【正确答案】 A 36 【正确答案】 Caption 37 【正确答案】 X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180) 38 【正确答案】 关系 或 关系表 39 【正确答案】 0 40 【正确答案】 x =-5 or x =5 41 【正确答案】 Clear 42 【正确答案】 Picturel.Picture=LoadPicture(“pic2.gif“) 43 【正确答案】 S+C或 s&c 44 【正确答案】 120 45 【正确答案】 Scrollbars 46 【正确答案】 16MB
