VB课后习题2.doc

习 题 1注：各章题目前加有“（2011年3月）”字样的，代表该题目为2011年3月全国计算机等级考试二级Visual Basic考题，其他年月字样类推。一、选择题1在Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是（ ）。A. 工程资源管理器窗口B. 窗体设计窗口 C. 属性窗口D. 代码窗口3在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（ ）。A. 工程资源管理器窗口 B. 属性窗口C. 工具箱窗口D. 代码窗口4（2008年9月）在设计窗体时双击窗体的任何地方，可以打开的窗口是（ ）。A. 代码窗口B. 属性窗口C. 工程资源管理器窗口D. 工具箱窗口5下列关于Visual Basic特点的叙述中，错误的是（ ）。A. Visual Basic是采用事件驱动编程机制的语言B. Visual Basic程序既可以编译运行，也可以解释运行C. 构成Visual Basic程序的多个过程没有固定的执行顺序D. Visual Basic程序不是结构化程序，不具备结构化程序的3种基本结构6退出Visual Basic 的快捷键是（ ）。A. Ctrl + Q B. Shift + Q C. Alt +Q D. Ctrl + Alt + Q7Visual Basic的特点不包括下面的（ ）。A. 不需要编程 B. 面向对象的程序设计C. 可视化程序设计 D. 事件驱动的程序设计8与传统的程序设计语言相比，Visual Basic 最突出的特点是（ ）。A. 程序开发环境 B. 事件驱动编程机制C. 程序调试技术 D. 结构化程序设计9Visual Basic 6.0集成开发环境的主窗口中不包括（ ）。A. 标题栏B. 菜单栏C. 状态栏D. 工具栏10Visual Basic集成环境中窗体设计器的主要功能是（ ）。A. 建立用户界面B. 编写源程序代码C. 添加图像D. 显示文字11下列不能打开属性窗口的操作是（ ）。A. 执行“视图”菜单中的“属性窗口”命令 B. 按F4键C. 按Ctrl+T D. 单击工具栏上的“属性窗口”按钮。12下列可以打开立即窗口的操作是（ ）。A. Ctrl+D B. Ctrl+E C. Ctrl+F D. Ctrl+G13用工具栏中的工具按钮不能执行的操作是（ ）。A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程14Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。A. 属性、控件和方法 B. 属性、事件和方法 C. 窗体、控件和过程 D. 控件、过程和模块二、填空题1Visual Basic是以_作为运行机制的新一代面向对象程序设计语言。2可以通过_快捷键或_快捷键退出Visual Basic。3Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在_状态、_状态或_状态。4在设计模式下，工程中的某个窗体没有出现，可通过双击_窗口中的相应窗体名来使之出现。5Visual Basic开发环境中，当属性窗口在界面上没有出现时，可使用_菜单中的_选项让它显示出来。6在属性窗口中，属性显示方式分为两种，即按_顺序和按_顺序，分别通过单击相应的按钮来实现。7调试窗口中的_窗口用来显示当前过程中的所有变量的值。8Visual Basic工程文件的扩展名是_，窗体文件的扩展名是_。9在Visual Basic 集成开发环境中，可以编辑程序代码，但不能修改用户界面的工作状态是_。习 题 2一、选择题1（2011年3月）假定编写了如下4 个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（ ）。ALoad BClickCLostFocus DKeyPress2以下叙述正确的是（ ）。A. 窗体的Name属性指定窗体的名称，用来标记一个窗体B. 窗体的Name属性的值是显示在窗体标题栏中的文本C. 可以在运行期间改变对象的Name属性的值D. 对象的Name属性值可以为空3下面对窗体属性设置描述错误的是（ ）。A. Caption属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置。B. BorderStyle属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置。C. Enabled属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置。D.字形属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置。4在界面设计时，要求改变窗体的标题时，应当在属性窗口中改变的属性是（ ）。ACaptionBNameCTextDLabel5若想要清除文本框Text1中的文本内容，其正确方法是（ ）。AText1.Text = BText1.Cls CText1.Text=Null DText1.Clear6在Visual Basic 工程运行状态，单击窗体上的关闭按钮，将触发（ ）事件。AForm_Unload( ) BForm_Load( ) CForm_Initialize( ) DForm_Click( )7保存新建的工程时，默认的路径是（ ）。AMy Documents BVB98 CWindows D 8Visual Basic工程文件的扩展名是（ ）。A.exe B.frm C.vbp D.bas9（2011年3月）为了使标签具有“透明”的显示效果，需要设置的属性是（ ）。ACaptionBAlignmentCBackStyleDAutoSize10（2009年9月）用来设置文字字体是否斜体的属性是（ ）。AFonUnderline BFontBold CFontslope DFontItalic11（2009年9月）在程序运行时，下面的叙述中正确的是（ ）。A用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_load事件过程。B用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程。C只装入而不显示窗体，也会执行窗体的Form_Load事件过程。D装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程。12 （2011年3月）窗体Form1 上有一个名称为Command1 的命令按钮，以下对应窗体单击事件的事件过程是（ ）。A. Private Sub Form1_Click() End SubB. Private Sub Form_Click() End SubC. Private Sub Command1_Click() End SubD. Private Sub Command_Click() End Sub13（2009年9月）名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click() Text1.Text = 程序设计 Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus() Text1.Text = 等级考试End Sub运行以上程序，单击命令按钮后（ ）。A. 文本框中显示的是“程序设计”，且焦点在文本框中。B. 文本框中显示的是“等级考试”，且焦点在文本框中。C. 文本框中显示的是“程序设计”，且焦点在命令按钮上。D. 文本框中显示的是“等级考试”，且焦点在命令按钮上。14 （2010年9月）在窗体上画一个文本框（名称为Text 1）和一个标签（名称为Label 1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（ ）。A. Private Sub Text1_Change（） Label1.Caption=Text1.Text End SubB. Private Sub Label1_Change（） Label1.Caption=Text1.Text End SubC. Private Sub Text1_Click（） Label1.Caption=Text1.Text End SubD. Private Sub Label1_Click（） Label1.Caption=Text1.Text End Sub15（2010年3月）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发（ ）。AText1的SetFocus事件BText1的GotFocus事件CText1的LostFocus事件D窗体的GotFocus事件16（2010年9月）以下说法中错误的是（ ）。A. 如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同B. 可以用多个命令按钮组成命令按钮数组C. 命令按钮只能识别单击（Click）事件D. 通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用17 （2009年3月）在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数，以下可以实现上述操作的事件过程是（ ）。APrivate Sub Text1_Change() Label1.Caption=str(Len(Text1.Text) End SubBPrivate Sub Text1_Click() Label1.Caption=str(Len(Text1.Text) End SubCPrivate Sub Text1_Change() Label1.Caption=Text1.Text End SubDPrivate Sub Label1_Change() Label1.Caption=str(Len(Text1.Text) End Sub18（2008年4月）为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（ ）。A0B1C2D319（2008年4月）若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是（ ）。A. 用鼠标右键单击此按钮B. 按键盘上的Esc键C. 按键盘上的回车键D. 用鼠标右键双击此按钮21（2010年9月）在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图2-26所示。则命令按钮的Top属性值是（ ）。A200 B300 C500 D70023Visual Basic中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（ ）。A这3个事件都会触发B只触发KeyPress事件C只触发KeyDown、KeyUp事件D不触发其中任何一个事件24（2010年3月）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（ ）。AForm1_MouseDownBWin_MouseDownCForm_MouseDownDMouseDown_Form125（2010年3月）要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（ ）。APrivate Sub P1_MouseMove(Button AS Integer,Shift As Integer, X As Single,Y As Single) Print X,Y End SubBPrivate Sub P1_MouseDown(Button AS Integer,Shift As Integer, X As Single,Y As Single) Print X,Y End SubCPrivate Sub P1_MouseMove(Button AS Integer,Shift As Integer, X As Single,Y As Single) P1.Print X,Y End SubDPrivate Sub Form_MouseMove(Button AS Integer,Shift As Integer, X As Single,Y As Single) P1.Print X,Y End Sub26（2009年9月）若看到程序中有以下事件过程，则可以肯定的是，当程序运行时（ ）。Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single) Print VB programEnd SubA. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C. 用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程27（2009年3月）以下说法中正确的是（ ）。A. 当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B. 因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C. 若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D. 在KeyPress事件过程中，KeyAscii参数可以省略二、填空题1Visual Basic的对象是_和_的总称。2Visual Basic程序设计中，对象的特征称为_，对象能够执行的操作称为_，对象能够识别的操作称为_。3要把窗体 Forml的标题改为“欢迎你”，可使用的语句是_。4在Visual Basic中，要将一个窗体装载到内存进行变量初始化等预处理，应选用的事件是_。5 在Visual Basic中，一个控件在窗体上的位置由_和_属性决定，其大小由_和_属性决定。6在刚建立工程时，要使窗体上的所有控件具有相同的字体格式，应对_的_属性进行设置。7假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为_。8（2008年9月）为了在运行时把d:pic 文件夹下的图形文件a.jpg 装入图片框Picture1，所使用的语句为_。习 题 3一、选择题1（2009年9月）以下变量名中合法的是（ ）。Ax2-1 BPrint CStr_n D2x2（2010年3月）设窗体文件中有下面的事件过程：Private Sub Command1_Click() Dim s a% = 100 Print aEnd Sub其中变量a和s的数据类型分别是（ ）。A整型，整型 B. 变体型，变体型C. 整型，变体型D. 变体型，整型3（2009年3月）执行语句 Dim X,Y As Integer 后（ ）。AX和Y均被定义为整型变量BX和Y均被定义为变体类型变量CX被定义为整型变量,Y被定义为变体变量DX被定义为变体类型变量,Y被，定义为整型变量4以下关系表达式中，其值为True的是（ ）。AXYZXYzBVisualBasicvisualbasicCthe=thereDIntegerInt5（2008年9月）若变量 a 未事先定义而直接使用（例如：a=0），则变量 a 的类型是（ ）。AIntegerBString CBooleanDVariant6（2008年9月）为把圆周率的近似值3.14159 存放在变量 pi 中，应该把变量 pi 定义为（ ）。ADim pi As IntegerBDim pi(7) As IntegerCDim pi As SingleDDim pi As Long7（2008年4月）以下选项中，不合法的Visual Basic变量名是（ ）。Aa5bB_xyzCa_bDandif8（2008年4月）在Visual Basic中，表达式3*25 Mod 3 的值是（ ）。A1 B0C3 D 出现错误提示9（2008年9月）表达式2*32+4*2/2+32 的值是（ ）。A30B31C49D4810（2008年9月）设a=4，b=5，c=6，执行语句Print ab And b2*b Or a=c And bc Or cdAFalseB1CTrueD-112（2011年3月）下面可以产生2030（含20 和30）的随机整数的表达式是（ ）。AInt（Rnd*10+20）BInt（Rnd*11+20）CInt（Rnd*20+30）DInt（Rnd*30+20）13（2010年9月）语句Print Sgn（-62）+ Abs（-62）+Int（-62）的输出结果是（ ）。A-36B1C-1D-7214（2010年3月）设x是整型变量，与函数IIf(x0,-x,x)有相同结果的代数式是（ ）。A|x|B-|x|CxD-x15（2009年9月）把数学表达式(5x+3)/(2y-6)表示为正确的VB表达式应该是（ ）。A(5x+3)/(2y-6)Bx*5+3/2*y-6C(5*X+3)D(X*5+3)/(y*2-6)16（2009年9月）可以产生3050 （含30和50）之间的随机整数的表达式是（ ）。AInt (Rnd*21+30) BInt(Rnd*20+30)CInt(Rnd*50-Rnd*30)DInt(Rnd*20+50)17（2009年3月）执行以下程序段a$=Visual Basic Programmingb$=C+C$=UCase(Left$(a$,7) & b$ & Right$(a$,12)后，变量C$的值为（ ）。AVisual BASIC Programming BVISUAL C+ ProgrammingCVisual C+ Programming DVISUAL BASIC Programming18（2009年3月）在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1），并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load() Show Text1.Text = Text1.SetFocusEnd SubPrivate Sub Command1_Click() Text1.Text = LCase(SaveAll) + SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮则文本框中显示的内容为（ ）。AvbVB B不显示任何信息CVBD出错19（2008年9月）以下不能输出“Program”的语句是（ ）。APrint Mid(VBProgram, 3, 7)BPrint Right(VBProgram, 7)CPrint Mid(VBProgram, 3)DPrint Left(VBProgram, 7)20（2008年4月）窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click() x=VisualBasicProgramming a=Right(x,11) b=Mid(x, 7, 5) c=MsgBox(a, , b)End Sub运行程序后单击命令按钮。以下叙述中错误的是（ ）。A信息框的标题是BasicB信息框中的提示信息是ProgrammingCc的值是函数的返回值DMsgBox的使用格式有错21（2008年4月）窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2)End Sub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（ ）。AABaCCDc22（2008年4月）设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click() Dim s As String, ch As String s= For k=1 To Len(Text1) ch=Mid(Text1, k, 1) s=ch+s Next k Text1.Text=sEnd Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（ ）。ABasicBcisaBCBASICDCISAB23（2010年9月）在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command1_Click() a$ = software and hardware b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1End Sub则在弹出的信息框标题栏中显示的标题是（ ）。Asoftware and hardwareBhardwareCsoftwareD125（2010年3月）下面不能在信息框中输出“VB”的是（ ）。AMsgBox VBBx=MsgBox(VB)CMsgBox (VB)DCall MsgBox VB26（2010年3月）下面程序运行时，若输入395，则输出结果是（ ）。Private Sub Command1_Click() Dim x% x = InputBox(请输入一个3位整数) Print x Mod 10, x 100, (x Mod 100) 10End SubA3 9 5B5 3 9C5 9 3D3 5 927（2009年3月）下列叙述中正确的是（ ）。AMsgBox语句的返回值是一个整数B执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作CMsgBox语句的第一个参数不能省略D如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空28（2008年9月）执行下列语句:strInput=InputBox (请输入字符串,字符串对话框,字符串)将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput 的内容是（ ）。A请输入字符串B 字符串对话框C字符串D空字符串二、填空题（每空2分，共30分）2（2008年9月）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() s$ = InputBox(请输入一个字符串) Text1.Text = s$End SubPrivate Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是_。习 题 4一、选择题1（2008年4月）窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：Private Type x a As Integer b As IntegerEnd TypePrivate Sub Command1_Click Dim y As x y.a=InputBox() If y.a2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是（ ）。Ax是用户定义的类型BInputBox函数弹出的对话框中没有提示信息C若输入的是偶数，y.b的值为该偶数的平方DFix(y.a / 2)把y.a / 2的小数部分四舍五入，转换为整数返回2（2010年9月）设a=5, b=6, c=7, d=8，执行语句x=IIf（ab）And （cd）, 10, 20）后，x的值是（ ）。A10B20C30D2003（2008年4月）现有语句：y=IIf(x0, x Mod 3, 0)，设x=10，则y的值是（ ）。A0B1C3D语句错误4（2011年3月）设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is = 20 Print 输入错误 Case Is 0 Print 20- x Case Is 10 Print 20 Case Is 4 x = x * y y = y + 1 Loop Print xEnd SubA1 B4 C8 D206（2010年3月）计算的近似值的一个公式是:某人编写下面的程序用此公式计算并输出的近似值：Private Sub Command1_Click() PI = 1 Sign = 1 n = 20000 For k = 3 To n Sign = -Sign PI = PI + Sign / k Next k Print PI * 4End Sub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是（ ）。A. 把For k=3 To n 改为 For k=1 To nB. 把n=20000改为n=20000000C. 把For k=3 To n改为 For k=3 To n Step 2D. 把PI=1改为PI=07（2009年9月）在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为（ ）。A5 3 1 1B5 4 3 2 1 1C4 3 2 1 1D4 4 3 2 1 18（2009年9月）为计算1+2+22+23+24+210的值，并把结果显示在文本框text1中，若编写如下事件过程：Private Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2 For k = 2 To 10 a = a * 2 s = s + a Next k Text1.Text = sEnd Sub执行此事件过程中发现结果是错误的，为能够得到正确结果，应做的修改是（ ）。A. 把s=1 改为 s=0B. 把For k=2 to 10 改为 For k=1 to 10C. 交换语句 s=s+a和a=a*2的顺序D. 同时进行B、C两种修改9（2009年3月）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print _ NextEnd Sub程序运行后,单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为（ ）。ARight(c1,i)BLeft(c1,