模拟试题VB.docx
《模拟试题VB.docx》由会员分享，可在线阅读，更多相关《模拟试题VB.docx（31页珍藏版）》请在冰豆网上搜索。
模拟试题VB
（1）下列叙述中正确的是
A）算法的效率只与问题的规模有关，而与数据的存储结构无关B）算法的时间复杂度是 指执行算法所需要的计算工作量C）数据的逻辑结构与存储结构是一一对应的D）算法的时间复杂度与空间复杂度一定相关
（2）在结构化程序设计中，模块划分的原则是
A）各模块应包括尽量多的功能B）各模块的规模应尽量大C）各模块之间的联系应尽量紧密D）模块内具有高内聚度、模块间具有低耦合度
（3）下列叙述中正确的是
A）软件测试的主要目的是发现程序中的错误B）软件测试的主要目的是确定程序中错误的位置C）为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作 D）软件测试是证明软件没有错误
（4） 下面选项中不属于面向对象程序设计特征的是
A）继承性 B）多态性 C）类比性 D）封装性
（5） 下列对队列的叙述正确的是
A）队列属于非线性表B）队列按“先进后出”原则组织数据C）队列在队尾删除数据 D）队列按“先进先出”原则组织数据
（6） 对下列二叉树
A
B C
D E F X
Y Z
进行前序遍历的结果为
A）DYBEAFCZX
B）YDEBFZXCA
C）ABDYECFXZ
D）ABCDEFXYZ
（7）某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
A）n+1
B）n-1
C）2n
D）n/2 （8）在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是）
A）并
B）交
C）投影
D）笛卡儿乘积
（9）在E—R图中,用来表示实体之间联系的图形是
A）矩形
B）椭圆形
C）菱形
D）平行四边形
（10）下列叙述中错误的是
A）在数据库系统中,数据的物理结构必须与逻辑结构一致
B）数据库技术的根本目标是解决数据共享问题
C）数据库技术是指己有数据管理系统的基础上建立数据库
D）数据库系统需要操作系统的支持
11）下面可以正确定义2个整形变量和1个字符串变量的语句的是
A）Dim n,m AS Interger,s AS String
B）Dim a%,b$,c AS String
C）Dim a AS Integer,b,c AS String
D）Dim x%,y AS Integer,z AS String
（12）下列表述中不能判断x是否为偶数的是
A）x/2=Int（x/2）
B）x Mod 2=0
C）Fix（x/2）=x/2
D）x\2=0
13）设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是）
A）窗体的Click事件过程的过程名是Myform_Click
B）命令按钮的Click事件过程名是C1_Click
C）命令按钮的Click事件过程的过程名是Command1_Click
（14）设窗体上有1个滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是
A）Max B）Min C）SmallChange D）LargeChang
（15）1个二维数组可以存放1个矩形.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵（即只有12个元素）的
A）Dim a（-2 To 0,2） AS Integer
B）Dim a（3,2） AS Ingeger
C）Dim a（4,3）AS Ingeger
D）Dim a（-1 To -4,-1 To -3）AS Ingeger
（16）若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是
A）8个”$” B）1个”$”C）8个”*D）无任何内容
（17）设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是
A）Combo1.RemoveItem Combo1.Text B） Combo1.RemoveItem4C） Combo1.RemoveItem Combo1.ListCount D） Combo1.RemoveItem5
（18）工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是
A）Private Sub Command1_Click（ ） B） Private Sub Command1_Click（ ）
Form2.Show Form2.Visible
End Sub End Sub
C） Private Sub Command1_Click（ ） D）Private Sub Command1_Click（ ）
Load Form2 Form2.Load
End Sub End Sub
（19）若在某窗体模块中有如下事件过程
Private Sub Command1_Click（Index AS Integer）
……
End Sub
则以下叙述中正确的是
A） 此事件过程与不带参数的事件过程没有区别B） 有1个名称为Command1的窗体,单击此窗体则执行此事件过程 C） 有1个名称为Command1的空件数组,数组中有多个不同类型控件D） 有1个名称为Command1的空件数组,数组中有多个相同类型控件
（20）以下循环语句中在任何情况下都至少执行一次循环体的是
A）Do While <条件> B）While <条件>
循环体 循环体
Loop WendC）Do D）Do Until <条件>
循环体 循环体
Loop Until <条件> Loop
（21）在窗体上有1个名为Cd1的通用对话框 ,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是
A）Cd1.Action=2 B）Cd1.Action=1 C）Cd1.ShowSave=Ture D）Cd1.ShowSave=0（22）下面关于菜单的叙述中错误的是
A）各级菜单中的所有菜单项的名称必须唯一
B）同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同
C）弹出式菜单也用菜单编辑器编辑
（23）已知有下面的过程
Private Sub proc1（a As Integer,b As String,Optional x As Boolean）
……
End Sub
正确调用此过程的语句是
A）Call procl（5）
B）Call proc1 5,”abc”,False
C）proc1（12,”abc”,True）
D）proc1 5, “abc”
（24）在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。
下面能够正确实现上述功能的程序
A）Private Sub Command1_Click（） B） Private Sub Command1_Click（）
Text1.Left=100 T ext1.Left= Text1.Left-100
End Sub End Sub
C）Private Sub Command1_Click（） D） Private Sub Command1_Click（）
Text1.Move.Text.Left+100 Text1.Move.Text.Left
End Sub End Sub
（25）某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是
A）在工程属性对话框中把“启动对象”设置为Form2
B）在Form1的Load事件过程中加入语句 Load Form2
C）在Form2的Load事件过程中加入语句Form2.Show
D）在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２
（26）窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。
要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。
下面能够实现上述功能的程序是
A）Private Sub Command1_Click（） B） Private Sub Command1_Click（）
Open “out.txt” For Inpit As#1 Open “out.txt” For Outpit As#1
Print#1,Text1.Text Print#1,Text1.Text
Close#1 Close#1
End Sub End Sub
C） Private Sub Command1_Click（） D） Private Sub Command1_Click（）
Open “out.txt” For Append As#1 Open “out.txt” For Random As#1
Print#1,Text1.Text Print#1,Text1.Text
Close#1 Close#1
End Sub End Sub
（27）为计算1+3+5+……+99的值，某人编程如下
k=1
s=0
While k<=99
k=k+2 :
s=s+k
Wend
Print s
在调试时发现运行结果有错误，需要修改。
下列错误原因和修改方案中正确的是（D）
A）While …Wend循环语句错误，应改为For k=1 To 99 …Next kB）循环条件错误，应改为Whlie k<99C）循环前的赋值语句k=1错误，应改为k=0D）循环中两条赋值语句的顺序错误，应改为s=s+k :
k=k+2
（28）下面程序在调试时出现了死循环
Private Sub Command1_Click（）
n=InputBox（“请输入一个整数”）
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是
A）只有输入的n是偶数时才会出现死循环，否则不会B）只有输入的n是奇数时才会出现死循环，否则不会C）只有输入的n是大于1000的整数时才会出现死循环，否则不会D）输入任何整数都会出（29）在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。
要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。
以下是Command1_Click事件过程的两种算法
Private Sub Command1_Click（）
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As#1
End Sub
算法2：
Private Sub Command1_Click（）
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>””Then
Open CommonDialog1.FileName For Input As#1
End If
End Sub
下面关于这两种算法的叙述中正确的是
A） 显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
B） 显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会C） 两种算法的执行结果完全一样D） 算法1允许输入的文件名中含有空格，而算法2不允许（30）窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：
还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序 Private Sub Command1_Click（）
Dim str As String, s As String, k As Integer
s=Text1
Str=””
For k=List1.ListCount-1 to 0 Step-1
If InStr（List.List（k）,s）>0 then
str=str&List.List（k）&” ”
End If
Next k
If str=””Then
Text2=”没有匹配的项目”
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是
A） 京 B） 北京 南京 C） 南京 D） 没有匹配的项目
（31）在窗体上画1一个名称为Command1的命令按钮，并编写以下程序
Private Sub Command1_Click（）
Print fun（“ABCDEFG”）
End Sub
Function fun（st As String） As String
stlen=Len（st）
temp=””
For k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是
A）ABCDEFG B）AGBFCE C）GFEDCBAD）AGBFCED
（32）在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将banana.DragMode属性设置为1。
要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。
能实现此功能的事件过程是
A） Priate Sub Form_DragDrop（Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y）
End Sub
B）Private Sub banana _DragDrop（Source As Control,X As Single,Y As Single ）
Source.Move Picture1.Left+X.Picture1.Top+Y
End Sub
C） B）Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ）
Source.Move Picture1.Left+X.Picture1.Top+Y
End Sub
D） B）Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ）
banana.Move banana.Left+X, banana.Top+Y
End Sub
（33）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click（）
Dim a（5.5） As Integer
For i=1 To 5
a（I,j）*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a（i,i）
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（A）
A） 15 B）13 C）11 D）9
（34）在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是）
A）Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 or a<=100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox（“分数错”）
End If
End If
End Sub
B） Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 And a<=100 Then
Text1.SetFocus
Else
Text2. SetFocus ; MsgBox（“分数错”）
End If
End If
End Sub
C） Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a<0 And a>100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox（“分数错”）
End If
End If
End Sub
D） Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 And a<=100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox（“分数错”）
End If
End If
End Sub
（35）在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序
Const n=5,m=4
Dim
升级会员 