[计算机类试卷]VB笔试模拟试卷197及答案与解析.doc

《[计算机类试卷]VB笔试模拟试卷197及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]VB笔试模拟试卷197及答案与解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、VB笔试模拟试卷 197及答案与解析 1 当一个复选框被选中时，它的 Value属性的值是 ( )。 （ A） 3 （ B） 2 （ C） 1 （ D） 0 2 使用 CommonDialog控件的 ( )方法可显示 “打印 ”对话框。 （ A） ShowOpen （ B） ShowSave （ C） ShowColor （ D） ShowPrinter 3 建立一个新的标准模块，应该选择 ( )的 “添加模块 ”命令。 （ A） “工程 ”菜单 （ B） “文件 ”菜单 （ C） “工具 ”菜单 （ D） “编辑 ”菜单 4 为了使模块尽可能独立，要求 ( )。 （ A）模块的内聚程序要尽量

2、高，且各模块间的耦合程度要尽量强 （ B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 （ C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 （ D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 5 模拟方形骰子投掷的表达式是 ( )。 （ A） Int(6*Rnd(1) （ B） Int(1+6*Rud(1) （ C） Int(6*Rnd(1)-1) （ D） Int(7*Rnd(1)-1) 6 如果逻辑与 (And)运算的结果为 “真 ”，与它所连接的两个条件必须是 ( )。 （ A）前一个为 “真 ”，后一个为 “假 ” （ B）前一个为 “假 ”，后一个也为 “

3、假 ” （ C）前一个为真，后一个也为真 （ D）前一个为假，后一个为真 7 下列关于栈的描述正确的是 ( )。 （ A）在栈中只能插入元素而不能删除元素 （ B）在栈中只能删除元素而不能插入元素 （ C）栈是特殊的线性表，只能在一端插入或删除元素 （ D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 8 数据库设计的根本目标是要解决 ( )。 （ A）数据共享问题 （ B）数据安全问题 （ C）大量数据存储问题 （ D）简化数据维护 9 VB6.0集成开发环境可以 ( )。 （ A）编辑、调试、运行程序，但不能生成可执行程序 （ B）编辑、生成可执行程序、运行程序，但不能调试程序

4、 （ C）编辑、调试、生成可执行程序，但不能运行程序 （ D）编辑、调试、运行程序，也能生成可执行程序 10 当滚动条位于最左端或最上端时， Value属性被设置为 ( )。 （ A） Min （ B） Max （ C） Max和 Min之间 （ D） Max和 Min之外 11 在代码编辑器中，如果一条语句太长，无法在一行内写下 (不包括注释 )，要折行书写，可以在行末使用续行字符 ( )，表示下一行是当前行的继续。 （ A）一个空格加一划字符 (_) （ B）一个划字符 (_) （ C）直接回车 （ D）一个 空格加一个连字符 (-) 12 下列关于图片框的语句中错误的是 ( )。 （ A

5、） Picture1.Picture=Picture2.Picture （ B） Picture1.Picture=LoadPicture(“C:vb60Arw04Up.ico“) （ C） Picture1.PrintTab(20)； CurrentX， CurrentY （ D） Picture1.Stretch=True 13 设 a=4， b=3， c=2， d=1，下列表达式的值是 ( )。 a b+1 Or c dAnd b Modc （ A） True （ B） 1 （ C） -1 （ D） 0 14 保存新建的工程时，默认的路径是 ( )。 （ A） My Documents

6、（ B） VB98 （ C） 6 （ D） Windows 15 以下关于文件的叙述中，错误的是 ( )。 （ A）使用 Append方式打开文件时，文件指针被定位于文件尾 （ B）当以输入方式 (Input)打开文件时，如果文件不存在，则建立一个新文件 （ C） 顺序文件各记录的长度可以不同 （ D）随机文件打开后，既可以进行读操作，也可以进行写操作 16 在长度为 64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为( )。 （ A） 63 （ B） 64 （ C） 6 （ D） 7 17 以下说法不正确的是 ( )。 （ A）使用 ReDim语句可以改变数组的维数 （ B）使用 R

7、eDim语句可以改变数组的类型 （ C）使用 ReDim语句可以改变数组每一维的大小 （ D）使用 ReDim语句可以对数组的所有元素进行初始 化 18 在窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数 ”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入 对话框中分别 （ A） 0 （ B

8、） 2 （ C） 3 （ D） 4 19 语句 Print“Sgn(-26)=“； Sgn(-26)的输出结果为 ( )。 （ A） Sgn(-26)=26 （ B） Sgn(-26)=-26 （ C） Sgn(-26)=+1 （ D） Sgn(-26)=-1 20 使两种完全不同的应用程序进行通信的技术称为 ( )技术。 （ A）动态数据交换 （ B）动态链接库 （ C）对象链接 （ D）对象嵌入 21 有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入 a的值 ”) a=Val(A) b=Inpu

9、tBox(“请输入 b的值 ”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值 30， 20，10， -1，输出结果为 ( )。 （ A） 6000 （ B） -10 （ C） 200 （ D） -6000 22 若要将窗体 Form1的标题栏文本改为 “欢迎使用本软件 !”，下列语句正确的是( )。 （ A） Form1.NAMF=“欢迎使用本软件 !” （ B） FormlCaption=“欢迎使用本软件 !” （ C） SetForml.Caption=“欢迎使用本软件 !” （ D） Forml.Caprion=“欢迎使用本软件 !”

10、23 如果 A为整数且 |A| 100。则打印 “OK”，否则打印 “Error”，表示这个条件的单行格式 If语句是 ( )。 （ A） If Int(A)=AAndSqr(A) 100ThenPrintI“OK“ElsePrint“Error“ （ B） If Fix(A)=AAndAbs(A) 100ThenPrint“OK“ElsePrint“Error“ （ C） If int(A)=AAnd(A =100,A =100)ThenPrint“OK“ElsePrint“Error“ （ D） If Fix(A)=AAndA =100AndA =100Thenhim“OK“ElsePri

11、nt“Error“ 24 设有如 下的记录类型： Type Student Number As String Name As String Age As Integer End Sub 则能正确引用该记录类型变量的代码是 ( )。 （ A） Student.name=“ （ B） Dim s As Students.name=“张红 ” （ C） Dims As Tye Students.name=“张红 ” （ D） DimsAsTypes.name=“张红 ” 25 设有如下通用过程： Public Sub Fun(a()， By Val x As Integer) Fori=1 To 5

12、 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i （ A） 10 （ B） 15 （ C） 25 （ D） 24 26 以下有关数组定义的语句序列中，错误的是 ( )。27 使用 PublicConst语句声明一个全局的符号常量时，该语句应放在 ( )。 （ A）过程中 （ B）窗体模块的通用声明段 （ C）标准模块的通用声明段 （ D）窗体模块或标准模块的

13、通用声明段 28 下面程序的运行结果是 ( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub （ A） 2 25 1.5 （ B） 1.5 2.25 （ C） 2.25 3.75 （ D） 0.75 1.5 29 下列能正确输出 2,345.67的语句是 ( )。 （ A） Print Format$(2345.668， “00000.00#)“ （ B） PrintFormat$(2345.668， “#， #.#“

14、) （ C） PrintFormat$(2345.668， “0,0000 00“) （ D） PrintFormat$(2345.668， “#.#“) 30 编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是 ( )。 （ A） 642 （ B） 246 （ C） 2

15、（ D） 6 31 在窗体上画一个命令按钮和一个文本框，其名称分别为 Commandl和 Text1，把文本框的 Text属性设 置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8和 10，则文本框中显示内容是 ( )。 （ A） 108 （ B） 18 （ C） 810 （ D）出错 32 要从自定义对话 框 Form2中退出，

16、可以在该对话框的 “退出 ”按钮 Chck事件过程中使用 ( )语句。 （ A） Form2.Unload （ B） Unload.Form2 （ C） Hide.Form2 （ D） Form2.Hide 33 在窗体上画两个单选按钮，名称分别为 Opfion1， Option2，标题分别为 “宋体 ”和“黑体 ”；一个复选框，名称为 Check1，标题为 “粗体 ”：一个文本框，名称为Text1， Text属性为 “改变文字字体 ”。要求程序运行时， “宋体 ”单选按钮和 “粗体 ”复选框被选 中，则能够实现上述要求的语句序列是 ( )。 （ A） Option1.Value=True C

17、heck1.Value=False （ B） Oprion1.Value=True Check1.Value=Tme （ C） Option2.Value=False Check1.Value=Tme （ D） Optionl.Value=True Check1.Value=1 34 下述程序的运行结果是 ( )。 j=0 DoWhilej 30 j=(0+1)*(0+2) k=k+1 Loop Printk;j （ A） 01 （ B） 3182 （ C） 3030 （ D） 430 35 3在窗体上画 1个命令按钮 (名称为 Commandl)和 1个文本框 (名称为 Text1)，然后编

18、写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1， 3 y=X*X CaseIS =10， IS =-10 y=X Case-10 To 10 y=-X End Select End S （ A）执行 y=x*x （ B）执行 y=-x （ C）先执行 y=x*x，再执行 y=-x （ D）程序出错 36 程序模块文件是一个 _文件，它不属于任何窗体。 37 耦合和内聚是评价模块独立性的两个主要标准，其中 _反映了模块内各成分之间的联系。 38 VB有两种类型的数组：固定大小的 _和在运行时可以

19、改变的动态数组。 39 组合框是组合了文本框和列表框的特性而组成的一种控件。 _风格的组合框不允许用户输入列表框中没有的项。 40 问题处理方案的正确而完整的描述称为 _。 41 在 3种不同类型的组合框中，只能选择而不能输入数据的组合框是 _。 42 Visual Basic中允许出现的数为 _。 25.74 3 47E-10 .368 1.87E+50 10(1.256) D32 2.5E 12E3 34.75D+6 0.258 43 在窗体上画一个命令按钮 (其 Name属性为 Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5

20、) Fori=0 To 4 A(i)=i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa 44 下面程序的功能是产生 10个小于 100(不含 100)的随机正整数，并统计其中 5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dima(10) Forj=1 To 10 a(i)=Int_ If a(j)Mod5=0 Then k=k+1 Printa(j) Nextj Print Printk/10

21、 End Sub 45 一个工程可以包括多种类型的文件，其中，扩展名为 .vbp的文件表示 2 文件；包含 ActiveX控件的文件扩展名为 3 。 46 设 A=27，则 Hex(A)= 8 ， Oct(A) 9 47 以下程序段在窗体上输出 12 ，在图片框中输出 name，在立即窗口中输出 13 。 A=“your“ B=“aname“ C=“iscr“ PrintRight(A,3) Picturel.PrintMid(B， 2， 4) Debug.PrintLeft(C， 2) VB笔试模拟试卷 197答案与解析 1 【正确答案】 C 2 【正确答案】 D 3 【正确答案】 A 4

22、【正确答案】 B 5 【正确答案】 B 6 【正确答案】 C 7 【正确答案】 C 8 【正确答案】 A 9 【正确答案】 D 10 【正确答案】 A 11 【正确答案】 A 12 【正确答案】 D 13 【正确答案】 D 14 【正确答案】 B 15 【正确答案】 B 16 【正确 答案】 B 17 【正确答案】 B 18 【正确答案】 B 19 【正确答案】 D 20 【正确答案】 A 21 【正确答案】 B 22 【正确答案】 D 23 【正确答案】 B 24 【正确答案】 B 25 【正确答案】 A 26 【正确答案】 D 27 【正确答案】 C 28 【正确答案】 C 29 【正确答

23、案】 B 30 【正确答案】 B 31 【正确答案】 A 32 【正确答案】 B 33 【正确答案】 D 34 【正确答案】 B 35 【正确答案】 A 36 【正确答案】 纯代码性质 37 【正确答案】 内聚 38 【正确答案】 静态数组 39 【正确答案】 下拉式列表框 40 【正确答案】 算法 或 程序 或 流程图 41 【正确答案】 下拉式列表框 (或下拉式 ) 42 【正确答案】 VisualBasic中允许出现的数 :3.47E-10 .368 12E3 34.75D+6 0.258 43 【正确答案】 123141 44 【正确答案】 (99*Rnd)+1 45 【正确答案】 工程 ,ocx 46 【正确答案】 &H1B,&033 47 【正确答案】 Our,is