VB 真题.docx

1、VB 真题下列叙述中正确的是_。A、一个算法的空间复杂度大，则其时间复杂度也必定大B、一个算法的空间复杂度大，则其时间复杂度必定小C、一个算法的时间复杂度大，则其空间复杂度必定小D、上述三种说法都不对数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_。A、编码设计 B、测试阶段C、运行阶段 D、物理设计数据库技术的根本目标是解决数据的_。A、存储问题B、共享问题C、安全问题D、保护问题设有如下三个关系表 R S T 下列操作中正确的是_。A、T=RSB、RSC、D、T=RS从工程管理角度，软件设计一般分为两步完成，它们是_。A、概要设计与详细设计B、过程控制C、软件结构设计与数据设计D、

2、程序设计与数据设计在数据库系统中，用户所见数据模式为_。A、概念模式B、外模式C、内模式D、物理模式对下列二叉树进行中序遍历的结果是_。A、ACBDFEGB、ACBDFGEC、ABDCGEFD、FCADBEG在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_。A、63B、64C、6D、7下列选项中不属于软件生命周期开发阶段任务的是_。A、软件测试 B、概要设计C、软件维护 D、详细设计下列选项中不符合良好程序设计风格的是_。A、源程序要文档化 B、数据说明的次序要规范化C、避免滥用goto语句 D、模块设计要保证高耦合、高内聚设有如下的用户定义类型：Type Student

3、number As String name As string age As IntegerEnd Type则以下正确引用该类型成员的代码是_。A、Student name=李明B、Dim s As Student s.name=李明C、Dim s As Type Student s.name=李明D、Dim s As Type s.name=李明在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click() a=0 For i=1 To 10 a=a + 1 b=0 For j=1 T

4、o 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是_。A、10和20B、20和110C、200和110D、110和20在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(KeyAscii As Integer).End Sub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是_。A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘

5、上的某个键在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim A(4) As Integer,B(4) As Integer For k=0 To 2 A(k+1)=InputBox(请输入一个整数) B(3-k)=A(k+1) Next k Print B(k)End sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为_。A、0B、2C、3D、4有以下程序：Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i

6、End SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为_。A、2 4 6 8B、5 6 7 8C、10 12 14 16D、出错设有语句：Open d:Test.txt For Output As #1，以下叙述中错误的是_。A、若d盘根目录下无Test.txt文件，则该语句创建此文件B、用该语句建立的文件的文件号为1C、该语句打开d盘根目录

7、下一个已存在的文件Test.txt，之后就可以从文件中读取信息D、执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息以下叙述中错误的是_。A、顺序文件中的数据只能按顺序读写B、对同一个文件，可以用不同的方式和不同的文件号打开C、执行Close语句，可将文件缓冲区中的数据写到文件中D、随机文件中各记录的长度是随机的设有如下通用过程：Public Function Fun(xStr As String) As String Dim tStr As String,strL As Integer tStr= strL=Len(xStr) i=1 Do While ib) And

8、(cd),10,20)A、10B、20C、TrueD、False以下叙述中正确的是_。A、一个Sub过程至少要有一个Exit Sub语句B、一个Sub过程必须有一个End Sub语句C、可以在Sub过程中定义一个Function过程，但不能定义Sub过程D、调用-个Function过程可以获得多个返回值在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：Dim S1 As String,S2 As StringPrivate Sub Form_Load() Text1.Text= Text2.Text=End SubPrivate Sub

9、 Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii)End SubPrivate Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1= S2=End Sub程序运行后，在Text1中输入abc，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为_。A、abc和ABCB、abc和abeC、

10、ABC和abcD、ABC和ABC以下叙述中正确的是_。A、窗体的Name属性指定窗体的名称，用来标识一个窗体B、窗体的Name属性值是显示在窗体标题栏中的文本C、可以在运行期间改变窗体的Name属性的值D、窗体的Name属性值可以为空在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是_。A、Private Sub Text1_Click() Label1.Caption=Text1.Text End SubB、Private Sub Text1_Change()

11、Label1.Caption=Text1.Text End SubC、Private Sub Label1_Change() Label1.Caption=Text1.Text End SubD、Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10

12、Then Exit For Next Text1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。A、5B、4C、3D、2设a=2，b=3，c=4，下列表达式的值是_。Not a =c Or 4*c=b2 And b a + cA、-1B、1C、TrueD、False执行以下程序段后，变量c$的值为_。a$=Visual Basic Programmingb$=Quickc$=b$ UCase(Mid$(a$,7,6) Right$(a$,12)A、Visual BASIC ProgrammingB、Quick Basic ProgrammingC、QUI

13、CK Basic ProgrammingD、Quick BASIC Programming在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Filter=All Files(*.*)|*.*|Text Files &_ (*.txt)|*.txt|Executable Files(*.exe)|*.exe CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileN

14、ameEnd Sub程序运行后，单击命令按钮，将显示一个打开对话框，此时在文件类型框中显示的是_。A、AllFiles(*.*)B、Text Files(*.txt)C、Executable Files(*.exe)D、不确定在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_。A、Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Te

15、xt End SubB、Private Sub List1_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End SubC、Private Sub List1_Click() Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End SubD、Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub在窗体上画一个名称为Comm

16、and1的命令按钮，然后编写如下程序：Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。A、1 2 3 2 4 6 3 6 9B、2 3 4 3 4 5 4 5 6C、1 4 7 2 5 8 3 6 9D、1 2 3 4 5 6 7 8 9以下叙述中错误的是_。A、一个工程

17、中可以包含多个窗体文件B、在一个窗体文件中用Public定义的通用过程不能被其他窗体调用C、窗体和标准模块需要分别保存为不同类型的磁盘文件D、用Dim定义的窗体层变量只能在该窗体中使用以下说法中正确的是_。A、任何时候都可以通过执行工具菜单中的菜单编辑器命令打开菜单编辑器B、只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C、任何时候都可以通过单击标准工具栏上的菜单编辑器按钮打开菜单编辑器D、只有当代码窗口为当前活动窗口时，才能打开菜单编辑器_的任务是诊断和改正程序中的错误。标准答案为：程序调试 或 调试考生答案为：按先进后出原则组织数据的数据结构是_。标准答案为：栈考生答案为：下列软件系统

18、结构图的宽度为_。 标准答案为：3 或 三考生答案为：一个关系表的行称为_。标准答案为：元组 或 记录考生答案为：数据结构分为线性结构和非线性结构，带链的队列属于_。标准答案为：线性结构考生答案为：在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：Private Sub Command1_Click() Dim inData As String Text1.Text= Open d:myfile.txt For _ As #1 Do While _ Input #1,inData Text1.Text=Text1.Text + inData L

19、oop Close #1End Sub程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。标准答案为：Input 与 Not EOF(1)考生答案为：在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。Private Sub Form_Load() Command1.Enabled=FalseEnd subPrivate Sub Text1_ _() Command1.Enabled=TrueEnd S

20、ub标准答案为：change考生答案为：描述X是小于100的非负整数的Visual Basic表达式是_。标准答案为：x=0 或 x=0 And x100考生答案为：在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为城市名称和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示已成功添加新输入项。，如图所示。如果输入的项目己存在，则在Label2中给出提示输入项已在组合框中。请填空。 Private Sub Combo1_KeyPress(K

21、eyAscii As Integer) If KeyAscii=13 Then For i= 0 To Combo1.ListCount-1 If Combo1.Text= _ Then Label2.Caption=输入项已在组合框中。 Exit Sub End If Next i Label2.Caption=已成功添加新输入项。 Combo1._ Combo1.Text End IfEnd Sub标准答案为：Combo1.list(i) 与 AddItem考生答案为：以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B

22、(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。Option Base 1Private Sub Form_Click() Dim i As Integer,j As Integer Dim A(1 To 100) As Integer Dim B(1 To 10,1 To 10) As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To _ For j=1 To _ B(i,j)= _ Print B(i,j)

23、; Next j Print Next iEnd Sub标准答案为：10 与 10 与 A(10*(i-1)+j) 或 A(10*i-10+j) 或 A(j+10*i-10)考生答案为：在窗体上画一个名称为Command1的命令按钮。然后编写如下事件过程Private Sub Command1_Click() Dim a As String a=123456789 For i=1 To 5 Print Space(6-i);Mid$(a,_ ,2*i-1) Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789请填空。标准答案为：6-i 或 -i+6考生答案为：