2011-7VB复习题.doc

VB复习题一.选择题1.在设计窗体时双击窗体的任何地方，可以打开的窗口是_。A）代码窗口B）属性窗口C）工程资源管理器窗口D）工具箱窗口2在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是 A工程资源管理窗口B窗体设计窗口C属性窗口D代码窗口3.假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是 ALoadBClickCLostFocusDKeyPress4.以下叙述中错误的是_。A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）窗体文件包含该窗体及其控件的属性5.以下关于Visual Basic特点的叙述中，错误的是_。A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构6.以下叙述中，错误的是_。A）在Visual Basic中，对象所能响应的事件是由系统定义的B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法7.若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是_。A）IntegerB）StringC）BooleanD）Variant8.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为_。A）Dim pi As IntegerB）Dim pi(7) As IntegerC）Dim pi As SingleD）Dim pi As Long 9.表达式2*32+4*2/2+32的值是_。A）30B）31C）49D）4810.以下不能输出“Program”的语句是_。A）Print Mid(VBProgram, 3, 7)B）Print Right(VBProgram, 7)C）Print Mid(VBProgram, 3)D）Print Left(VBProgram, 7)11.以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是_。A)Form1.Name=“VisualBasic窗体”B)Form1.Title=“VisualBasic窗体”C)Form1.Caption=“VisualBasic窗体”D)Form1.Text=“VisualBasic窗体”12.设a = 5，b = 10，则执行 c = Int(b - a) * Rnd + a) + 1 后，c值的范围为 A）510 B）69 C）610 D）5913.设有如下语句： Dim a,b As Integerc=”VisualBasic”d=#7/20/2005#以下关于这段代码的叙述中，错误的是_。 A）a被定义为Integer类型变量 B）b被定义为Integer类型变量C）c中的数据是字符串 D）d中的数据是日期类型14.以下能从字符串“Visual Basic”中直接取出子字符串“Basic”的函数是_。A）Left B）Mid C）String D）Instr15.执行以下程序段后，变量c$的值为_。 a$ = Visual Basic Programming b$ = Quick c$ = b$ & Ucase(Mid$(a$,7,7) & Right(a$,12) A）Visual BASIC Programming B）Quick Basic ProgrammingC）QUICK Basic ProgrammingD）Quick BASIC Programming16.为了使标签具有“透明”的显示效果，需要设置的属性是 ACaptionBAlignmentCBackStyleDAutoSize 17.下面可以产生20-30（含20和30）的随机整数的表达式是 AInt(Rnd*10+20)BInt(Rnd*11+20)CInt(Rnd*20+30)DInt(Rnd*30+20)18.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load() Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是_。 A）BeijingChina B）China C）Beijing D）BeijingC19以下Case语句中错误的是A)Case 0 To 10B)Case Is10C)Case Is10 and Is1020在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1. Text=”Visual” Me. Text1=”Basic”Text1=”Program”End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是_。A)VisualB)BasicC)ProgramD)出错21.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox(请输入一个整数)Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是_。A)123B)456C)579D)12345622.在窗体上画一个名称为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 i 10 Then Exit For Next i Text1.Text = nEnd Sub运行程序后，单击命令按钮，在文本框中显示的值是_。A）2B）3 C）4D）523.下列程序的运行结果是_。Private Sub Command1_Click() For i = 1 To 10 s = s +1 Next i Text1 = sEnd SubA）55B）10 C）0D）不定图1-124.在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮，其名称为Command1，外观如图1-1所示。编写如下程序：Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text= f(x,y)End SubFunction f(ByVal x as Integer, ByVal y as Integer)Do While y0 tmp=x Mod yx=yy= tmp Loopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮