vb习题new.ppt

1 VB集成的主窗口中不包括a 标题栏b 工具栏c 属性窗口d 菜单栏2 在VB中 被称为对象 a 窗体b 控件c 窗体和控件d 窗体 控件 属性3 以下为纯代码文件的是 a 工程文件b 窗体文件c 标准模块文件d 资源文件4 VB标题栏上显示了应用程序的 a 大小b 位置c 名称d 状态5 以下说法正确的是 a 窗体文件的扩展名为 vbpb 一个工程可以最多有256个窗体c 一个窗体对应一个文件d 一个工程只包含一个窗体6 窗体边框类型的默认值为 a Noneb FixeD Singlec Sizabled FixeD Dialog7 确定一个窗体或控件大小的属性是 a Width和Heightb Width或Heightc Top和Leftd Top或Left 第1 2章习题 8 以下说法正确的是 a 默认情况下Visible的值为Trueb Visible的值可设为0或1c 如果设置控件的Visible属性值为False 则该控件消失d 设置Visible属性与设置Enabled属性的功能是相同的 都是使控件处于失效状态9 以下可以设置断点的快捷键是 a F9b F5c F2d F410 以下控件可作为其他控件容器的是 a PictureBox和Imageb PictureBox和Framec Frame和ListBoxd Image和Data11 任何控件都有 属性a Nameb Captionc BackColord BorderStyle12 下列选项中 更改 属性 可以对窗体的标题内容进行设置a Textb Namec FontNamed Caption 第1 2章习题 续 13 想要设置窗体状态为不显示控制菜单 应设置下列 属性Styleb Picturec ContrilBoxd Caption14 能够改变窗体边框类型的属性是 Borderb BorderStylec BackStyped Style15 以下与Name一样的只读属性是 ControlBoxb Enabledc BorderStyled WindowState16 为了使标签能够显示所指定的文本 应设置 属性Captionb Textc SelTextd Name17 针对下列代码 说法正确的是 Text1 Top 2000Text1 Left 800a Text1对象左边界距窗体的左边界800twip 上边界距窗体的上边界2000twipb Text1对象左边界距屏幕的左边界800twip 上边界距屏幕的上边界2000twipc Text1对象的高度为800twip 宽度为2000twipd Text1对象的高度为800点 宽度为2000点 第1 2章习题 续 1 设置窗体属性 具体属性如下 Caption MaxButton MinButton BorderStyle Height Width Left Top WindowState ControlBox练习窗体的方法 Show Hide Cls Print Line2 在窗体启动时 弹出一个对话框 显示 你启动了一个窗体 当窗体关闭时 显示 你关闭了一个窗体 3 设计一个应用程序 要求如下 a 设计一个窗体 窗体上包括4个命令按钮 按钮上依次显示 左对齐 右对齐 居中 退出 一个标签控件 b 单击 左对齐 标签控件中文字左对齐 c 单击 右对齐 标签控件中文字右对齐 d 单击 居中 标签控件中文字居中 e 单击 退出 4 窗体事件的执行顺序 ActivateUnLoadClickLoadResizeDblClick 第3章 第4章 1 以下常数中 占用存储空间最多 a100b 9 43E6c 9 34D5d89898982 DimMyValueMyValue 10 4 返回 MyValue aBBBa Like a a 返回 MyValue F Like A Z 返回 MyValue F Like A Z 返回 3 下列选项中 为字符串常量的是 6 12 2001b 6 12 2001 c 6 12 2001 d 6 12 2001 4 下列选项中 合法的变量名是 c aaab sum 3c Elsed 5persons4 掌握以下函数 Int Fix Hex Asc Chr Cint CDbl CLng CSng Cvar Sgn Len Left Right Trim Ltrim RTrim 第4章 续 2 1234567D 6 2 123E 006 72 9 3Mod 1 2 3 2 72 3Mod 17 程序ia 12 ib 10 ia ib ia a Ltrim Str ib Str ia Printa 哪一个函数返回字符串 Chr InStr Val Asc八进制 16进制正误 第4章 续 设a 2 b 3 c 4 d 5 下列表达式的值是 Notaa c设a 5 b 10 则执行c Int b a Rnd a 1后 c值的范围为 语句Print5 4 6 5Mod2的输出结果是 VB表达式Sqr a b 3 2中优先进行运算的是 表达式2 4 2 2 6 3 3的值是 PrintSgn 6 2 Abs 6 2 Int 6 2 下列表达式的值为2123的是 B A Val 123asd 2000B Val 123asd 2000C Str 123 2000 D Str 123 2000 在下面的表达式中 x取任何值都成立的表达式是A Int x Abs x B Int x Abs x C Int x Abs x 代数式对应的VB表达式是 A Sin 3 14159 T 2 3 A B B Sin 3 14159 T 2 3 A BC Sin 3 14159 T 2 3 A B D Sin T 2 3 A B a 4 b 3 c 2 d 1打印结果是 0 Printa b 1Orc dAndbModc 2 3 2 4 2 2 3 2 A 4 b 5 c 6 执行printa bAndb c后 结果是 表达式3 2 5Mod3的值是 下列表达式中不能判断x是否为偶数的是 A x 2 Int x 2 B xMod2 0C Fix x 2 x 2D x 2 0下面可以正确定义2个整形变量和一个字符串变量的语句是 A Dimn masInteger aAsStringB Dima b cAsStringC DimaAsInteger b cAsStringD Dimx yAsInteger zAsString 以下关系表达式中 其值为True的是 A XYZ XYz B VisualBasic visualbasic the there D Interer Int 执行以下程序段a VisualBasicProgramming b C c Ucase Left a 7 b Right a 12 后 变量C的值为 第5章 1 默认情况下 InputBox函数的返回类型为 A字符串B变体C数值D数值或字符串2 MsgBox函数的返回类型为 3 PrintFormat 12345 67 000 000 000 输出 A1234567B123 456 700C012 345 670D1234567 04 程序的执行结果为 X 2 Y 1IfX Y0ATrueBFalseC 1D1 第5章 续 5 程序 PrivateSubCommand1 Click a InputBox 请输入一个整数 b InputBox 请输入一个整数 Printa bEndSub程序运行后 分别输入123和321 输出为 6 编写程序 当单击窗体时 窗体显示System WelcometoBeiJing隶书 北京欢迎您要求 英文字体为 system 中文为 隶书 字体大小 20 字体颜色为 红色 第5章 续 PrivateSubCommand1 Click a softwareandhardware b Right a 8 c Mid a 1 8 MsgBoxa b c 1EndSub 第6章 1 当复选框被选中时 Value属性的值为 A0b1c2dTrue2 组合框 只有将Style属性设置为 时 才能触发DblClick事件 A0b1c2d33 用 语句可以选择指定的表项或取消已选择的表项 AListX Selected Index bListx Selected Index True FalseCListx SelecteddListx Selected True False编程掌握List ComboBox第6章习题P154页第5题第6题 第7章 1 程序的执行结果是 A 1 B 0SelectCaseACase1SelectCaseBCase0Print 0 Case1Print 1 EndSelectCase2Print 2 EndSelect 第7章 续 2 程序的执行结果是 I 4 A 5DoI I 1A A 2LoopUntilI 7Print I IPrint A A3 程序的执行结果是 Dimk a bAsIntegera 20 b 2 k 2DoWhilek ab b 2k k 5LoopPrintb 第7章 续 4 程序的执行结果是 k 0ForI 1To5Forj 1To3IfjMod20Thenk k 1Endifk k 1NextjNextIPrintk5 1 编程求ax2 bx c 0的根 其中a0 2 从键盘输入两个数M和N 求出最大公因子 第7章 续 1 如果一个正整数的所有因子之和等于其本身 则此数称为 完数 根据欧几里德完数定理 若2n 1 1是一个质数 那么2n 2n 1 1 必是一个完数 本程序采用该定理求1 1000之间的完数 在画线处填入适当的内容 PrivateSubCommand1 click DimnAsInteger qAsInteger DimaAsDouble mAsDoubleDimIAsInteger tAsIntegern 1DoWhilea0ThenI I 1ElseT 0EndIFLoopIft 1ThenPrinta N n 1LoopEndSub 第7章 续 从键盘上输入若干个学生的考试分数 当输入负数时结束输入 然后输出其中的最高分和最低分数 Privatesubform click Dimxassingle amaxassingle aminassingleX inputbox enterascore Amax xAmin xDowhile Ifx amaxthenAmax xEndifIf thenAmin xEndifX inputbox enterascore LoopPrint max amax min aminEndsub 第8章 1 写出下列程序段的功能 DimMaxAsInteger iMaxAsIntegerMax iA 1 iMax 1 Sum iA 1 ForI 2To10Sum Sum iA I IfiA I MaxThenMax iA I iMax IEndIfNext2 程序运行结果为 PrivateSubCommand1 Click Dima 5 ForI 0To4a I I 1t I 1 第8章续 Ift 3ThenPrinta I Elsea t a I EndIfIfI 3Thena I 1 a t 4 a 4 1Printa I Next3 程序运行结果为 DimA 5 5 AsIntegerForI 1To5ForJ 1To5A I J I JPrintA I J NextJPrintNextI 第8章续 ForEachxInAs s xPrint s s4 编程题1 建立含有6个命令按钮的控件数组 当单击某个命令按钮时 分别在图片框中显示不同的图形或结束操作 2 随机生成10个100到200之间的正整数 按从大到小排序 并求出平均数 最后按从小到大打印 和平均数 第9章 1 PrivateSubValue ByvalmAsInteger ByvalnAsInteger m m 2 n n 5Printm nEndSubPrivateSubForm Click DimxAsInteger yAsIntegerx 10 y 5CallValue x y Printx yEndSub 单击窗体程序运行结果为 2 DimaasInteger bAsInteger cAsIntegerPrivateSubForm Click a 2 b 4 c 6CallProc1 a b Print a a b b c cCallProc2 a b Print a a b b c cEndSub 第9章续 PublicSubProc1 xAsInteger yAsInteger x 2 x y y 2 c x yEndSubPublicSubProc2 ByvalxAsInteger ByvalyAsInteger x 2 x y y 2 c x yEndSub3 PrivateSubForm Click DimFirstStrAsStringFirstStr abcdef PrintPickMid FirstStr EndSub 第9章续 PrivateFunctionPickMid xStrAsString AsStringDimTempAsString StrlenAsIntegerTemp Strlen Len xStr I 1DoWhileI Len xStr 3Temp Temp Mid xStr I 1 Mid xStr Strlen I 1 1 I I 1L