VB课后习题.doc

习题1一.单项选择题，要求在四个备选答案中选出一个正确答案。1Visual Basic是一种（D ）的可视化程序设计语言。 A面向机器 B面向过程 C面向问题 D面向对象2Visual Basic主窗口中不包括（B ）。 A标题栏 B状态栏 C工具栏 D菜单栏3窗体编辑器的主要功能是（ C ）。 A设计窗体的外观 B编写源程序代码 C. 建立用户界面 D设置对象属性4为了在属性窗口中设置窗体的属性，预先要执行的操作是（ A ）。 A单击窗体上没有控件的地方 B单击任一个控件 C双击任一个控件 D双击窗体上没有控件的地方5要设置窗体上各控件的属性，可在（ C ）中进行。 A窗体布局窗口 B工程资源管理器窗口 C属性窗口 D窗体窗口6在代码窗口中，当从对象框中选定了某一对象后，在（ A ）中会列出适用该对象的事件。 A过程框 B属性窗口 C工具箱 D工具栏7创建一个简单的应用程序，该程序只有一个窗体，则该工程有（B ）个文件需要保存。 A1 B2 C3 D48程序运行中用鼠标双击当前窗体时，会触发窗体的（ C ）事件。 ALoad BUnload CDblClick DKeyPress9在Visual Basic 6.0集成开发环境中，可以（ D ）。 A编辑、调试、运行程序，但不能生成可执行程序 B编辑、运行程序，生成可执行程序，但不能调试程序 C编辑、调试程序，生成可执行程序，但不能运行程序 D编辑、调试、运行程序，并能生成可执行程序10以下叙述正确的是（ C ）。 A用属性窗口只能设置窗体的属性 B用属性窗口只能设置工具箱中标准控件的属性 C用属性窗口可以设置窗体和控件的属性 D用属性窗口可以设置任何对象的属性11.在Visual Basic程序运行期间，若改变窗体大小，则自动触发的窗体事件是（ B ） A. Click B. Resize C. Load D. Unload12.以下为窗体文件扩展名的是（ C ） A. .bas B. .cls C. .frm D. .ers13.在Visual Basic中，被称为对象的是（ C ） A. 窗体 B.控件 C. 窗体和控件 D. 窗体、控件、属性 14.确定控件尺寸的是（ A ） A.Width和Height B.Top和Left C. Width或Height D.Top或Left15.以下说法正确的是（A ）A.对象的可见性可设为1或0 (严格讲为:-1或0)B.标题的属性值可设为任何文本 C.如果属性的值不设置，默认为空 D.属性窗口中属性只能按字母顺序排列二. 多项选择题，要求在五个备选答案中选出多个正确答案。1下列论述中，正确的是（ACDE ）。 AVisual Basic用于开发Windows环境下的应用程序 BVisual Basic只能采用解释方式执行程序 C对象是代码和数据的集合。例如，Visual Basic中的窗体是对象 D事件就是在对象上所发生的事情，Visual Basic中的事件有Click，DblClick等 E一个对象可以响应的事件可以有多个，用户不能建立新的事件2在设计阶段，从窗体窗口切换到代码窗口，可以采用的操作是（BCDE ）。 A单击窗体 B双击窗体 C单击工程资源管理器窗口中的“查看代码”按钮 D单击代码窗口中任何可见部位 E选择“视图”菜单中的“代码窗口”命令3在设计阶段，从代码窗口切换到窗体窗口，可以采用的操作是（CD ）。 A双击代码窗口 B单击代码窗口 C. 单击工程资源管理器窗口中的“查看对象”按钮 D选择“视图”菜单中的“对象窗口”命令 E单击工程资源管理器窗口中的“切换文件夹”按钮4在工程资源管理器中“移除”一个文件后，该文件（CE ）。 A在磁盘上删除掉 B移入Windows回收站中 C仍存在于磁盘中 D仍存在于当前工程中 E从当前工程中删除掉5. 能使窗体Form1不可见的语句有（CE ）A. Form1.Height = 0 B. Form1. Width = 0 C. Form1. Visible = 0D. Form1.BorderStyle = 0 E. Form1.Hide6.确定一个窗体或控件大小及位置的属性是（AB ）AWidth B Height CTop DLeft EEnable三. 填空题1 Visual Basic采用 事件驱动的 编程机制。2Visual Basic提供两种运行程序的方式，一种是 解释运行 方式，另一种是 编译运行 方式。3Visual Basic的三种工作状态(或称工作模式)是 设计模式 、 运行模式 和 中断模式 。4对象的三要素是 属性 、 事件 和 方法 。5如果要在单击窗体时执行一段代码，则应将这段代码写在窗体的 Cliclk(单击) 事件过程中。6在设计阶段，当双击窗体上某个控件时，所打开的是 代码 窗口。7新建工程时，将其窗体的Name属性设置为MyForm，则默认的窗体文件名为 Form1.frm 。习题一单选题1下列各项中，只有（ D ）才是常量；各项中，（ D ）不是常量。 A. E-3 B. E+03 C. 103 D. 1.E03 A. 1E-3 B. 13 C. abc D. Xl*32. 下列各项中，可以作为变量名的是（ A ）；各项中，（ C ）不能作为变量名。 A. a1_0 B. Dim C. K6/600 D. CD1 A. ABCabc B. A12345 C. 18AB D. Namel3. 空字符串是指（ A ）。 A. 长度为0的字符串 B. 只包含空格字符的字符串 C. 长度为1的字符串 D. 不定长的字符串4. 使用变量x存放数据12345678.987654，应该将x声明为（ B ）类型。 A. 单精度(Single) B. 双精度(Double) C. 长整型(Long) D. 货币型(Currency)5. 表达式32*12-4(2/4)的值为（ B ）。 A. 104 B. 106 C. 108 D. 出错6. 表达式33 Mod 17 3 * 2的值为（ B ）。 A. 10 B. 1 C. 2 D. 3注：所涉及的三个运算的优先级由高到低的关系是：* Mod7. 表达式Int(-20.9) + Int(20.9 + 0.5) - Fix(-17.9)的值为（ C ）。 A. -17 B. 16 C. 17 D. 188.设a=3,b=2,c=-3,则表达式Abs(b + c) + a * Int(Rnd + 3) + Asc(Chr(65 + a)的值是（ D ）。 A.10 B.68 C.69 D.789. 设m=morning，取值为mor的表达式是（ B ）。 A. Mid(m,5,3) B. Left(m,3) C. Right(m,4,3) D. Mid(m,3,1)10. 表达式Sin(a + b) 6所表示的代数式是（ BC ）。 A.sin(a+b)6 B.sin6(a+b) C.sin6(a+b) D.6sin(a+b)11. 如果x是一个正实数，对x的第3位小数四舍五入的表达式是（ A ）。 A. 0.01 * Int(100 * x + 0.5) B. 0.01 * Int(10 * x + 0.5) C. 0.01 * Int(x + 0.5) D. 0.01 * Int(x + 5)12. 求一个三位正整数n的十位数的方法是（ A ）。 AInt(n / 10) - Int(n / 100) * 10 BInt( n / 10) - Int(n / 100) Cn - Int(n 100) * 100 DInt(n - Int(n / 100) * 100)13设A=12345678，则表达式Val(Left(A,4)+Mid(A,4,2)的值是（B ）。 A123456 B123445 C8 D614要使Int(x+2)=16成立，x应取（ A ）。 A14x15 B14x15 C14x15 D14x1515在下列函数中，（ B ）函数的执行结果与其他三个不一样。 AString(3,5) BStr(555) CRight(5555,3) DLeft(55555,3)注：Str(555)值为“ 555 ”，前面有一个字符的符号位，后面有一个空格16设A=-2，则（ A ）函数的执行结果与其他三个不一样。 AVal(A) BInt(A) CFix(A) D-Abs(A)17要在窗体Forml的标题栏上显示统计程序，可用的语句是（ B ）。 AForml.Name=统计程序 BForm1.Caption=统计程序 C. Forml.Caption=统计程序 DForml.Name=统计程序18函数String(n, str)的功能是（B ）。 A把数值型数据转换为字符串 B返回由n个字符组成的字符串 C从字符串中取出n个字符 D从字符串中第n个字符的位置开始取子字符串注：严格讲是返回串中第一个字符重复n次构成的字符串19设x=1，以下函数返回值最大的是（B ）A.Sin(x)B.Exp(x)C.Sqr(x) D.Log(x)20. 将代数式cos2（c+d）写成VB表达式的正确形式是（ B ）ACos2(c+d) BCos(c+d)2 Cos(c+d) 2) DCos(c2+d2)21. 函数表达式Val(16 Hour)的值为（B ）A1 B16 C160 D96022.在VB中，可以使用未经声明的变量，在未赋值前，该变量的数据类型为（ D ）AInteger BLong CStringDVariant23在VB中，对于没有赋值的数值变量，系统默认的值是（ A ）A0 B1 C”0” D-124在VB中，对于没有赋值的字符串变量，系统默认的值是（ B ）A0 B” (长度为0) C”0” D“ ” (空格,长度为1)25.X是一个数值变量，下列函数表达式中要求X的值必须为正的是（D ） A. Sgn (X) B. Sqr (X) C. Abs (X) D. Sin (X)26仅当X为小于100的非负数（包括0）时取值才为True的表达式是（ A ）A. 0=X And X100 B. 0X And X100 C. 0=X And X=100 D. 0X Or Xb，cd，下列表达式中值为0的有（AC ） ASgn(b-a)+Sgn(c-d) BSgn(a-b)-Sgn(d-c) CSgn(b-a)-Sgn(d-c) DSgn(a-b)+Sgn(c-d) ESgn(b-a)+Sgn(d-c)17为了求一个正整数n除以8所得的余数，可以采用的表达式是（AD ） An Mod 8 Bn - Int(n / 8) Cn 8 Dn - Int(n 8) *8 En - Int(n 8)三. 填空题1把下列数学式写成等价的Visual Basic表达式。(1)sin50写成 Sin(3.14525 * 50 / 180) 。(2)写成 (2 + x * y) / (2 - y * y) 。(3)写成 a * a - 3 * a * b / (3 + a) 。(4)写成 (x 3) (1 / 8) + Sqr(y * y + 4 * a 2 / (x + y 3) 。2要产生5055范围内(含50及55)的随机整数，采用的Visual Basic表达式是 Int(Rnd * 5 + 0.1) + 50 。3写出下列表达式的值。(1)Val(15 3)-Val(15-1a3)的值是 138 。(2)7 Mod 3 + 8 Mod 5 * 1.2-Int(Rnd)的值是 3 。(3)Val(120)+Asc(abc)-Instr(JKLHG，LH)的值是 214 。(4)Mid(China,3,2)+Lcase(China)的值是 inchina 。(5)Len(Chr(70)+Str(0)+Asc(Chr(67)的值是 70 。(6)Mid(Trim(Str(345),2)的值是 45 。(7)Year(Now)-Year(Date)的值是 0 。注:可以编程序来验证上述结果:Private Sub Form_Load() Show Print Val(15 3) - Val(15-1a3) Print 7 Mod 3 + 8 Mod 5 * 1.2 - Int(Rnd) Print Val(120) + Asc(abc) - InStr(JKLHG, LH) Print Mid(China, 3, 2) + LCase(China) Print Len(Chr(70) + Str(0) + Asc(Chr(67) Print Mid(Trim(Str(345), 2) Print Year(Now) - Year(Date)End Sub习题3一单项选择题1语句s=s+1的正确含义是（C ） A. 变量s的值与s+1的值相等 B. 将变量s的值存到s+1中去 C. 将变量s的值加1后赋给变量s D. 变量s的值为12假设已使用变量声明语句：Dim date_1 As Date，则为变量date_1正确赋值的语句是（B ） A. date_1=date(1/1/2005) B. date_1=#112005# C. date_1=1/1/2005 D. date_1=#112000#注:表示日期的字符串转换为日期类型的数据用函数CDate(1/1/2005)3. 下列叙述中正确的是（D ） A一个程序代码行只能写入一个语句。 B当用Print输出多个输出项时，可以使用冒号“：”作为输出项间的分隔符 C赋值语句结束时，可以使用分号或逗号作为结束符 D在字符型数据中，起止界限符必须使用英文的双撇号，而不能使用中文双引号4下列程序段执行后，输出结果是（D ） a = 0: b = 1 a = a + b: b = a + b Print a; b a = a + b: b = a + b Print a; b a = b - a: b = b - a Print a; b A1 2 B3 5 C1 2 D1 2 3 4 2 3 3 4 3 5 3 4 1 2 2 3 2 35语句Print Sqr(16)=;Sqr(16)的输出结果为（B ） ASqr(16)=Sqr(16) BSqr(16)=4 C4=4 D4=Sqr(16)6设a=12，b=34,下列语句能显示34-12的是（ C ） APrint Val(b)-Val(a) BPrint b-a CPrint b;Chr(45);a DPrint Asc(a) & - & Asc(b)7以下程序段的输出结果是（B ） x = ABC: y = abc m = LCase(x): n = UCase(y) Print Mid(m + n, 3, 2) ACa BcA Ccea Dca8下列程序段执行后，输出结果是（ D ） Dim a As String * 4 a = Computer a$ = Internet Print a Print a$ AComputer BComp CComp DInte Internet Internet Inte Inte9以下程序段的运行结果是（ D ） Const st As String = ABCD st = 1234 st = st + 6 AABCD B1234 CABCDl234 D显示出错信息 10以下（A ）控件不支持DblClick。 ACommandButton BPictureBox CLabel DTextBox11要使某控件在程序运行时不起作用，应对其（A ）属性进行设置。 AEnabled BCaption CFont DVisible12要在Form_Load事件过程中用Print方法在窗体上输出结果，应先调用窗体的（ C ）方法。 AMove BCls CShow DCircle13若将文本框的（ C ）属性设置为True，则运行时用户不能修改文本框中的内容。 AEnabled BVisible CLocked DMuhiLine14为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的（ B ）属性值设置为True。 AValue BDefault CCancel DEnable15假设Text1是某一个文本框的名称，下列语句中正确的是（ A ） AText1.Height=600 BText1.Print 123 CText1.Caption=新标题 DText1.Name=文本框16在Command1_Click ( ) 事件过程中用Dim语句定义一个变量，则（ A ）A、该变量在Command1_Click ( ) 事件过程中有效 B、该变量在Command1的所有事件过程中有效C、该变量在本窗体内的所有函数或过程中有效 D、该变量在本工程所有窗体和模块中的函数或过程中有效17设有语句:Label1.Caption=InputBox(输入标题,新标题,旧标题)，执行后，在输入对话框中不输入内容就直接按下回车键，则（ B ） A标签Labell的标题内容是“新标题” B标签Labell的标题内容是“旧标题” C标签Labell的标题内容不能确定 D标签Labell的标题内容为空白注:inputbox的格式为: InputBox(prompt, title , default , xpos , ypos , helpfile, context) 即第三个字符串参数为默认值.18.执行语句M = MsgBox(结束运行吗?, vbYesNoCancel + vbQuestion)时，显示的消息框是：AABCD19.在默认情况下，InputBox函数返回值的类型为 ( A ) A.字符串 B.变体 C.数值 D.数值或字符串20MsgBox函数的返回值类型是（ A ）A.数值 B.日期 C.字符串 D.变体注:MsgBox函数的返回值为Long类型.21要声明一个长度为64个字符的定长字符串变量String1，以下正确的语句是（D ）A. Dim String1 As String B. Dim String1 As String(64)C. Dim String1 As String64 D. Dim String1 As String*6422能够产生下图所示对话框的正确Visual Basic语句是：BA. x = InputBox(请输入一个整数：+ vbCrLf + (10-99之间), 计算, 10)B. x = InputBox(请输入一个整数： + vbCrLf + (10-99之间), 计算, 10)C. x = InputBox(请输入一个整数：(10-99之间) + vbCrLf, 计算, 10)D. x = InputBox(请输入一个整数：(10-99之间) + vbCrLf , 计算, 10)23程序运行时，要使文本框（TextBox）获得焦点，则需使用（ B ）方法。 A.Change B.SetFocus C.GotFocus D.Move24在窗体上画出一个名为HScroll1的水平滚动条和一个名为Label1的标签。要想通过改变滚动条滑块的位置来调节标签中显示文字的大小，可满足此功能的语句是（ C ）A.Label1.FontName = HScroll1.Max B.Label1.FontSize = HScroll1.MinC.Label1.FontSize = HScroll1.Value D.Label1.FontBold = HScroll1.Value25要使某控件在程序运行时起作用或不起作用，应对其( A )属性进行设置。A.Enabled B.Caption C.Font D.Visible注:本题与11题相同26为了使文本框(TextBox)能够显示多行文字，必须设置的关键属性是（B ）AMaxLength0 BMultiLine=True CScrollBars=Both DBorderStyle=None27.能在当前窗体上输出信息的语句是（B ）APicture1.Print “你好！” BPrint “你好！” CPrinter.Print “你好！” DDebug.Print “你好！”28单击滚动条两端的任一个滚动箭头，将触发该滚动条的 （ C ） 事件。AScroll BKeyDown CChange DDragOver注：当拖动滚动块时才触发Scroll事件，且释放滚动块后才触发Chang事件。29.标签和文本框都可以显示文本，它们的主要区别是：（A ）中文本是只读文本，（A ）中的文本为可编辑文本。A标签；文本框 B文本框；标签 C标签；标签 D文本框；文本框30.标签控件能显示文本信息，其内容只能用（ C ）属性获得AAlignment BVisible CCaption DBorderStyle二多项选择题1要使文本框Textl中的内容为空字符串，可采用（ AC ）形式语句 AText1.Text=Space(0) BText1.Text=0 CText1.Text= DText1.Text=Space(1) ECls Textl.Text2下列叙述中，正确的是（AC ） ASpace函数既可以用于表达式，也能用于Print方法 BSpace函数只能用于表达式，不能用于Print方法 CSpc函数只能用于Print方法，不能用于表达式 DSpc函数既可以用于表达式，也能用于Print方法 ESpc函数与Space函数均能生成空格，作用完全相同3下列关于Name属性的论述中，正确的是（ABCF ） A所有窗体和控件都有Name属性，其值不能为空 B对象的Name属性指定对象的名称，用来标识一个对象 CName属性值必须以字母(或汉字)开头 D标签的Name属性值是显示在标签标题(Caption)中的文本 EName属性值可以在属性窗口中修改，也可以通过代码来修改 FMyForm.frm是一个非法的对象名4关于消息框函数（MsgBox）描述正确的是（ABCD ）A.消息框可以用来显示字符形式的提示信息 B.消息框中至少包含一个选择按钮C.消息框出现后，用户必须按下其中的一个选择按钮，程序才能继续运 D.用户按下消息框中的一个选择按钮，则获得反映该按钮类型的相应数值 E.消息框中的提示示信息可以有多行，最大长度为1024个字符5.为了使文本框Text1显示垂直滚动条，必须设置的属性值是（BD ）AAutoSize = True BMultiLine = True CMaxLength = 20 DScrollBars = Vertical EBorderStyle = 1三填空题1为了使文本框具有垂直滚动条，应将 MultiLine 属性设置为True，再将 ScrollBars 属性设置为 True 。2要在标签Label1上显示a*b=，所使用的语句是 Label1.Caption = a*b 。3确定一个控件大小的属性是 Height 和 Width 。4为了使标签中的标题(Caption)内容居中显示，应将Alignment属性值设置为 2 。5要使文本框Textl具有焦点，应执行的语句是 文本框对象名.SetFocus 。6在窗体上已经建立了1个文本框Text1和1个标签Label1，下面程序运行后，在文本框中显示的内容是 编程技术 ，在标签上显示的内容是 程序设计 。 Private Sub Form_Load() Show Text1.Text = 编程技术End SubPrivate Sub Text1_Change() Label1.Caption = 程序设计End Sub7设在窗体上已经建立了2个文本框Text1，Text2和1个标签Label1，简单说明以下事件过程代码的作用(说明当发生什么事件时完成什么功能)。 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text2_Change() Label1.Caption = Text1.TextEnd SubText2发生 Change 事件，完成 Text1的文本内容在Label1中显示 功能。Text1发生 GotFocus 事件，完成 选中Text1中的所有文本，并将输入点置于输入框的起始位置 功能。8在窗体上画1个滚动条HScroll1和1个文本框Text1，要使每次单击滚动条两端箭头、单击滚动的滚动块与两端箭头之间的空白区域以及拖动滚动条的滚动块时，文本框的内容能够反映滚动条的值，请完成以下程序代码。Private Sub HScroll1_Change() Text1.Text = HScroll1. Value End SubPrivate Sub HScroll1_Scroll() Text1.Text = HScroll1. Value End Sub习题4一. 单选题1设a=-1，b=2，下列逻辑表达式为真值的是（ C ） ANot a = 0 And b 2 Ba * b -5 And a / b = 0 Or Not a - b = 0 Da = -2 * b Or a 0 And b 02描述条件“a是大于b的奇数”的逻辑表达式是（ A ） Aa b And Int(a - 1) / 2) = (a - 1) / 2 Ba b Or Int(a - 1) / 2) = (a - 1) / 2 Ca b And a Mod 2 = 0 Da b Or (a - 1) Mod 2 = 03表示条件“X是大于等于5，且小于95的数”的条件表达式是（ C ） A5 = X 95 B5 = X, X = 5 And X = 5 And 954关于语句“If s = 1 Then t = 1”，下列说法正确的是（ C ） As必须是逻辑型变量 Bt不能是逻辑型变量 Cs=1是关系表达式，t=1是赋值语句 Ds=1是赋值语句，t=1是关系表达式5在运行期间用鼠标单击单选按钮时，按钮的（ B ）属性变为真值。 ACaption BValue CVisible DTabIndex6下列程序段的执行结果是（A ） x = 2: y = 1 If x * y 0 ATrue BFalse C-1 D17下列程序段的执行结果是（ D ） a = abcde: b = cdefg c = Right(a, 3): d = Mid(b, 2, 3) If c d Then y = c + d Else y = d + c Print y Aabcdef Bedebcd Ccdeefe Dcdedef8执行下述语句之后，变量B1的值应为（C ）Dim B1 As BooleanB1 = -1A. 1 B. -1 C. True D. False9. A是 一个整数类型变量，能正确判断A是奇数或是偶数的语句是（ A ）A. If A2 = Int (A/2) Then Print A; “是偶数” B. If A/2 = Int (A/2) Then Print A; “是偶数” C. If A2 = Int (A2) Then Print A; “是偶数” D. If Fix (A/2) = Int (A/2) Then Print A; “是偶数”10.变量A，B不等值，将A，B中较大的数放入变量A，较小的数放入变量B的语句是（C ）A. If A B Then A = B : B=A B. If A B Then B=A : A=B C. If A B Then T=A : A=B : B=T D. If A B Then T=A : A=B : B=A11.执行语句 Check1.Value = 1 之后，复选框Check1的状态应为（ B ）A. B. C. D. 出错12.在二个框架Frame中各有一组单选按钮OptionButton，其作用为（ C ）A两组单选按钮中只有一个能被选中 B因有两组单选按钮，无一可被选中 C两组单选按钮中各有一个能被选中 D两组单选按钮中各有一个以上的能被选中13在二个框架Frame中各有一组复选框CheckBox，其作用为（ D ） A. 两组复选框中只有一个能被选中 B. 因有两组复选框，无一可被选中 C. 两组复选框中各有一个能被选中 D. 两组复选框中各有多个被选中注:准确的叙述为:两组复选框中各有多个能被选中14.设置计时器Timer1触发的时间间隔为0.5秒，应将Timer1的Interval属性置为（C ）A0.5 B5 C500D500015.执行下列程序段后，变量x的值是（ B ） x = -3 If Abs(x) = 2 Then x = x - 1 Else x = x + 8 Select Case x Case Is 5