【图文】vb调试与错误处理_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
vb调试与错误处理
上传于|0|0|暂无简介
大小：278.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢zgh 后缀是ZGHYZB的文件怎么打开_教师百科
当前位置： >
zgh 后缀是ZGHYZB的文件怎么打开
话题0：后缀是ZGHYZB的文件怎么打开 回答：
先复制个副本,再把副本后缀改成“doc”试试用word打开。 如果不行,就去原来网页看说明!
话题1：分别以zgh 开头的英文句子 回答：
没有这个字,只有zebra这个字,意思是斑马。 斑马是斑马亚属(学名:Hippotigris)和细纹...
话题2：要恢复访问的网址:/zs.html?3 回答：
空间过期了
话题1：有这个 邮箱吗 回答：
有这个 邮箱吗?zgh
188****5135 您的回答被采纳后将获得: ...
话题0：zgh用这3个字母想一个人的名字 越多越好 我猜不到这个人的名字 回答：
曾国辉 张国华 郑桂华 朱国豪 曾耿海 就想了这些
话题1：请问:黄山 中国红.ZGH 红色硬盒 焦油量11mg 烟碱1.1mg 一氧化碳12mg 多少钱一盒 回答：
类型:烤烟型 规格:84mm 硬 焦油量:11mg 烟气烟碱量:1.1mg 烟气一氧化碳量:12mg...
话题2：VB:缺少子程序、函数或属性是怎么回事? 回答：
这个源代码有2个地方错误: 1、经调试,Picture1.Print a(j).zgh; a(j)....
话题1：如何上传文件到。edu。cn 回答：
你好,这应该是一个邮箱zgh@,发送邮件到这个邮箱就行,你要是文件的话可以添加附...
话题0：nyzb是什么文件 回答：
nzb文件 NZBGet是一个新闻采集器,其中从新闻组下载的资料格式为nzb文件。它可用于单机和服务...
☆ 欢迎您转载分享：
zgh 后缀是ZGHYZB的文件怎么打开，zgh是由安心技术网自动信息技术收集, 不少网友认为对自己有帮助。
本月热门文章当前位置： >>
VB习题及答案(江西高校出版社)
第 1 章 习题与答案一、 选择题 1. 在 VB 集成环境创建 VB 应用程序时，除了工具箱窗口、窗体窗口、属性窗 口外，必不可少的窗口是:C （A）窗体布局窗口 （B）立即窗口 （C）代码窗口 （D）监视窗口 2. 保存新建的工程时，默认的路径是:B （A）My Documents （B）VB98 （C）\ （D）Windows 3. 将调试通过的工程经“文件”菜
单的“生成.exe 文件”编译成.exe 后，将 该可执行文件转到其他机器上不能运行的主要原因是:A （A） 运行的机器上无 VB 系统所需的动态连接库 （B） 缺少.frm 窗体文件 （C） 该可执行文件有病毒 （D） 以上原因都不对 4.当需要上下文帮助时，选择要帮助的“难题”，希望出现 MSDN 窗口及显示 所需“难题”的帮助信息。应按的键的 D （A）Help （B）F10 （C）Esc （D）F1 5.Visual Basic 中提供的 On Error Resume Next 错误陷阱语句的功能是:C （A） 当发生错误时，使程序跳转到语句标号为 0 的程序块 （B） 当发生错误时，不使用错误处理程序块 （C） 当发生错误时，忽略错误行，继续执行下一语句 （D） 当发生错误时，终止本过程程序执行，继续执行下一过程 6.在 VB 环境中，工程文件的扩展名是:C （A）.frm （B）.bas （C）.vbp （D）.frx 7.将一个 VB 程序保存在磁盘上，至少会产生的文件是:C（A）.doc、.txt （B）.com、.exe （C）.vbp、.frm （D）.bat、.sys 8.下面关于对象的描述中，错误的是:C AAAAAAA （A） 对象就是自定义结构变量 （B） 对象代表正在创建的系统中的一个实体 （C） 对象是一个状态和操作（或方法）的封装体 （D） 对象之间的信息传递是通过消息进行的 9.下面 4 项中不属于面向对象系统三要素的是 D AAAAAA (A)变量 （B）事件 （C）属性 （D）方法 10.下面各种高级语言中，不是面向对象程序设计语言的是 C （A）Visual Basic （B）C++ （C）Pascal （D）Java 二、填空题 1． 当进入 VB 集成环境后，发现没有显示“工具箱”窗口，应选择 视图 菜单的 【2】工具箱 选项，使“工具箱”窗口显示。 2． VB 是一种面向 编程机制。 【3】对象 的程序设计语言，采用了 【1】【4】事件驱动3． 在 VB 中，要显示程序代码，必须在 运行界面，必须在 【6】窗体 窗口。【5】代码窗口；要设计程序的4． 窗体是一种对象，由 【7】属性 定义其外观，由 【8】方法 其行为，由 【9】事件 定义其与用户的交互。 5． 对象的属性是指 6． 对象的方法是指定义【10】对象的性质，来描述和反映对象特征的参数 【11】对象的动作、行为 【12】对象 和 。 【13】事件 构成。。7． 在 VB 中，事件过程名由8． 在 VB 中设置或修改一个对象的属性的方法有两种，它们分别是 属性窗口内修改 和 【15】代码窗口内修改 。【14】参考答案1． C 一、 选择题 9．A 10．C 二、填空题 1．【1】视图 2．【3】对象 3．【5】代码 4．【7】属性2． B3． A4． D5． C6． C7． C8． A【2】工具箱 【4】事件驱动 【6】窗体 【8】方法 【9】事件5．【10】对象的性质，来描述和反映对象特征的参数 6．【11】对象的动作、行为 7．【12】对象 【13】事件 【15】代码窗口编程8．【14】属性窗口设置第 2 章 习题与答案一、 选择题 1．在一个语句内写多条语句时，用来分隔每条语句的符号是 （A），（B）：（C）、（D）； 2．一句语句要在下一行继续写，续行符是 （A）+（B）-（C）_（D）… 3．下面 4 项中合法的变量名是 （A）X_yz（B）123abc（C）integer（D）X-Y 4．下面 4 项中不合法的整常数是 （A）100（B）&O100（C）&H100（D）%100 5．下面 4 项中合法的字符常数是 （A）ABC$（B）“ABC”（C）‘ABC'（D）ABC6．下面 4 项中合法的单精度型变量是 （A）num!（B）sum%（C）xinte$（D）mm# 7．下面 4 项中不合法的单精度常数是 （A） 100！（B）100.0（C）1E+2（D）100.0D+28．表达式 16/4-2^5*8/4MOD5\2 的值为 （A）14（B）4（C）20（D）2 9．数学关系 3≤x＜10 表示成正确的 VB 表达式为 （A） 3＜=x＜10（B）3＜=x AND x＜10 （C）x＞=3 OR x＜10（D）3＜=x AND ＜10 10．\、/、Mod、*这 4 个算述运算符中，优先级别最低的是 （A）\（B）/（C）Mod（D）* 11．数学表达式 对应 VB 不正确的表达式是 （A）a*b/(3*c*d) （B）a/3*b/c/d（C）a*b/3/c/d（D）a*b/3*c*d 12．Rnd 函数的值不可能为 （A）0（B）1（C）0.1234（D）0.0005 13．Int(198.555*100+0.5)/100 的值为 （A）198（B）199.6（C）198.56（D）200 14．已知 A$=“”，则表达式 Val(Left$(A $,4)+Mid$(a $,4,2))的 值为 （A）123456（B）123445（C）8（D）6 15．Print DateAdd(“m”,1#1/30/2000#)语句显示的结果是 （A）00-2-29（B）00-2-28（C）00-2-30（D）00-1-31 16．表达式 DateDiff（“y”,#12/30/1999#,#1/13/2000#）的结果是 （A）1（B）11（C）14（D）9917．表达式 Len(“123 程序设计 ABC”)的值是 （A）10（B）14（C）20（D）17 18．表达式 LenB(“123 程序设计 ABC”)的值是 （A）10（B）14（C）20（D）17二、填空题 1．Trim(“□□ASCII□□”)的结果 RTrim(“□□ASCII□□”)的结果 LTrim(“□□ASCII□□”)的结果 注“□”表示空格。 2． 整型变量 x 中存放了一个二位数， 要将二位数交换位置， 例如， 变成 31， 13 实现的表达式是 (4) 。 3．数学表达式 sin15°+ -ln(3x)的 VB 算术表达式为 4．数学表达式 的 VB 算术表达式为 (6) 。 (7) 。 (5) 。 (1) (2) (3) ； ； ；5．表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为6．已知 a=3.5,b=5.0,c=2.5,d=True,则表达式：a&=0 AND a+c&b+3 OR NOT d 的值是 (8) 。 7．Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5) 的值分别是 (9) 、 (10) 、 (11) 、 (12) 、 (13) 、 (14) 。 8．表达式 Ucase(Mid(“abcdefgh”,3,4))的值是 (15) 。9．在直角坐标系中，x、y 是坐标系中任意点的位置，用 x 与 y 表示在第一或 第三象限的表达式是 (16)。 10．要以××××年××月××日形式显示当前机器内日期的 Format 函数表 达式为 (17) 。 11．假定 2008 年奥运会于 2008 年 10 月 5 日在北京召开，计算距今天有多少 。 天的函数表达式是 (18)12．.计算离你毕业还有多少个星期的函数表达式是(19)。13．表示 s 字符变量是字母字符（大小写字母不区分）的逻辑表达式为 (20) 。 14．将数字字符串转换成数值，用 (21) 函数，判断是否是数字字符串， 用 (22) 函数，取字符串中的某几个字符，用 (23) 函数。 15．Mid（“什么是 ASCII 编码”。5，6）的结果 (24) 。 ；16．InStr(7，“什么 ASCII 是 ASCII 编码”，“ASCII”)的结果 (25) 。 InStr(“什么 ASCII 是 ASCII 编码”，“ASCII”)的结果 (26)17．在 VB 中，&、1..2346D+5 这 4 个常数分别表示 (27) 、 (28) 、 (29) 、 (30) 类型。 18．Visual Basic 提供的标准数据类型，整型类型声明时，其类型关键字是 (31) ；其类型符是 (32) 。参考答案 一、选择题 1.B 2.C 3.A 4.D 11.D 12.B 13.C 14.B 二、填空题 1.(1) ASCII 去除两边的空格； ASCII□□ 去除左边的空格； 2.(4)(x Mod 10)*10+x\10 利用 x mod 10 和 x\10 运算可将一个二位数分离出来，要连接起来，通过乘 10 再加个位数。VB 中由于 Mod 运算比乘法“*”运算级别低，必须加括号改变优 先级。 3.（5）Sin(15*3.14/180)+Sqr(x+Exp(3))/Abs(x-y)-Log(3*x) Sin( )的自变量是弧度，ln(3x)不要写成 Log(3 x),3x 是非法的自变量名。 4.（6）（a+b）/(1/(c+5)-c*d/2) 不要忘记加括号改变运算次序。 （2） □□ASCII 去除右边的空格； （3） 5.B 15.A 6.A 16.C 7.D 8.B 9.B 17.A 18.C 10.C5.（7）x mod 5=0 OR x mod 9=0 如果写成 x mod 5 =0 AND x mod 9=0 则表 示 x 既是 5 的倍数又是 9 的倍数。 6.（8）False 按照运算符的优先级别来判断。 7.（9）-4 （10）3 Int(x)函数取不大于 x 的整数。 （11）-3 （12） 3 Fix(x)函数取除小数部分。 （13）-4 （14）4 Round(x)四舍五入取整。 8.（15）CDEF 9.（16）x＞0 And y＞0 Or x＜0 And y＜0 10.(17)Format(Date,“yyy 年 mm 月 dd 日”) 11.(18)DateDiff(“d”,#10/5/2008#,Now)+1 Now 和 Date 都是求当前机器内 日期，不同之处在于 Now 函数除日期外还带回时间。 12.(19)DateDiff(“w”,Now,#7/3/2002#) 13.(20)Ucase(s) ＞=“A”And Ucase(s) ＜“Z”或者 Lcase(s) ＞=“a”And Lcase(s) ＜=“z” 14.(21)Val 使用 Val 函数转换时，若出现非数字字符，转换到此结束，函数 返回在此前的数值。例如：Val（“12.3df”）返回 12.3。 （22）IsNumeric 若自变量是数字字符，函数返回 True,否则为 False。 （23）Mid 15.(24)SCII 编码 Mid 表示按字符取子串，在 VB 中，中文与西文字符都算一 个字符。 16.(25) 9 表示从第 7 个字符开始找子串； （26）3 默认表示从第 1 个字符开始找子串； 17. (27)整型 度型 18.（31）Integer (28)长整型 (29)单精度型 (30)双精（32）%第 3 章 习题与答案一、 选择题 1.对于窗体，下面各属性在程序运行时其属性设置起作用的是（A）MaxButton （C）Name（B）BorderStyle （D）Left2.要使 Print 方法在 Form_Load 事件中起作用，要对窗体的属性进行设置，该属 性是 （A）BackColor （C）AutoRedraw （B）ForeColor （D）Caption3.若要使标签控件显示时不覆盖其背景内容，要进行设置的属性是 （A）BackColor （C）ForeColor （B）BorderStyle （D）BackStyle4.若要使命令按钮不可操作，要设置的属性是 （A）Enabled （C）BackColor 5.文本框所没有的属性是 （A）Enabled （C）BackColor 6.不论何控件，共同具有的属性是 （A）Text （C）ForeColor （B）Name （D）Caption （B）Visible （D）Caption （B）Visible （D）Caption7.要使 Form1 窗体的标题栏显示“欢迎使用 VB”，以下语句正确的是 （A）Form1.Caption=“欢迎使用 VB” （B）Form1.Caption=@欢迎使用 VB@ （C）Form1.Caption=欢迎使用 VB （D）Form1.Caption=欢迎使用 VB 8.要使某控件在运行时不可显示，通过设置可达到此要求的属性是（A）Enabled （C）BackColor（B）Visible （D）Caption9.要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮， 通过设置 可达到此要求的属性是 （A）MaxButton （C）Width （B）BorderStyle （D）MinButton10.当运行程序时，系统自动启动窗体的事件过程是 （A）Load （B）Click（C）UnLoad （D）GotFocus 11.当文本框的 ScrollBars 属性设置了非零值，没有效果，其原因是 （A）文本框中没有内容 （B）文本框的 MultiLine 属性为 False （C）文本框的 MultiLine 属性为 True （D）文本框中的 Locked 属性为 True 12.要判断在文本框是否按了 Enter 键，文本框中可用于此目的的事件是 （A）Change （B）KeyDown （C）Click （D）KeyPress13.若要禁止窗体被用户移动，通过设置可达此要求的窗体的属性是 （A） MaxButton （B） Moveable （C） Move （D） ControlBox14.若要使某个控件获得焦点，则要实现可通过的方法是 （A）GetFocus SetFocus （B）TabIndex （C）Refresh （D）15.要设置命令按钮的背景图形，必须设置的两个属性是 （A） Style 和 Picture （D）Value 和 Icon （B） Style 和 Icon （C） Caption 和 Picture16.若要定义全局的结构类型，应在其中定义的模块是(A) 窗体级模块(B)工程(C)类模块(D)标准模块二、填空题 1.将文本框的 ScrollBar 的属性设置为 2(有垂直滚动条)，但没有垂直滚动条显 示，原因是没有将 (1) 属性设置为 True。 2.在代码窗口对窗体的 BorderStyle、MaxButton 属性进行了设置，但运行后没 有效果，原因是这些属性 (2) 。 3.当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示 所需的图形，原因是没有将 (3) 属性设置为 1(Graphical)。 4.若已建立了 Form1 和 Form2 两个窗体，默认启动窗体为 Form1。通过 (4) 菜单的 (5) 命令的 (6) 选项卡，可将启动窗体设置为 Form2。在程 序中若要显示 Form1 窗体，则执行 (7) 语句。 5.在文本框中，通过 (8) 属性能获得当前插入点所在的位置。6.想对文本框中已有的内容进行编辑，可是按下键盘上的按键不起作用，原因是 属性为 True。 设置了 (9) 7.在窗体上已建立多个控件如 Text1、Label1 和 Command1,若要使程序一运行时 焦点就定位在 Command1 控件上，应对 Command1 控件设置 (10) 属性的值为 (11) 。8.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 (12) 的 (13) 属性进行设置。 字符开头，续行符采用 (16) 字符分隔。 (15) ，若一行上9.VB 的注释语句采用 (14) 书写多句语句，则各语句间用参考答案 一、 选择题 1、D 2、C 3.D 4.A 5.D 6.B 11.B 12.D 13.B 14.D 15.A 16.D 二、填空题 7.D 8.B 9.B 10.A1.(1)MultiLine 2.(2)在运行时设计是无效的，在 VB 中有些属性只能在设计时设置，例如， BorderStyle、MaxButton 等；有些只能在运行时设置，如 SelStart、SelLength 等，只能在运行时设置的属性在属性窗口是不可见的。 3.(3)Style 4.(4)工程 (5)工程属性 (6)通用 体的操作，详细介绍见第四章循环结构。 5.(8)SelStart 6.(9)Locked 7.(10)TabIndex 每个在窗体上的控件,都有一个 TabIndex,决定了焦点在 各个控件窗体上移动的次序。TabIndex 的值从 0 开始，虽然 Label 控件有 TabIndex 的值，但焦点是到不了的。 8.(12)Form 窗体 (13)Font (11)0 (7)Form1.Show 多个窗当首先对 Form 窗体的 Font 属性进行设置后， 以后在该窗体上建立的控 件字体格式都自动设置成 Form 窗体的 Font 属性， 除非用户对某个控件再重新设 置， 但不影响其他控件。当然，若对 Form 窗体的 Font 窗体的 Font 属性没 有设置， 要使其他控件具有相同的字体格式， 必须分别一一设置， 这就太繁琐了。 5.（14）′ （15）_ 下划线 （16）： 冒号第 4 章 习题与答案一、 选择题 1. VB 提供了结构化程序设计的 3 种基本结构，这 3 种基本结构是 （A）递归结构，选择结构，循环结构 程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构 环结构，顺序结构 （B）选择结构，过（D）选择结构，循2. 结构化程序由 3 种基本结构组成，下面属于 3 种基本结构之一的是 （A）递归结构（B）选择结构（C）过程结构（D）输入、输出结构 3.下面正确的赋值语句是 （A）x+y=30（B）y=π*r*r（C）y=x+30（D）3y=x 4.为了给 x,y,z 这 3 个变量赋初值 1，下面正确的赋值语句是 （A）x=1：y=1：z=1 （B）x=1,y=1,z=1 （C）x=y=z=1 （D）xyz=15.赋值语句：a=123+MID(“123456”,3,2)执行后，a 变量中的值是 （A）“12334”（B）123（C）12334（D）157 6.赋值语句：a=123&MID(“123456”,3,2)执行后，a 变量中的值是 （A）“12334”（B）123（C）12334（D）157 7.下面程序段： Dim x x=Int(Rnd)+5 Select Case Case 5 Print“优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“不通过” End Select 显示的结果是 x（A）优秀（B）良好（C）通过（D）不通过 8.下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的 人数，不正确的语句是 （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 Then（B） sex= If “男” And age＜40 And (duty= “教授” duty= Or “副教授” ) n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授”Then n=n+1（D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 9.下面程序段求两个数中的大数，不正确的是 (A) Max=IIf(x＞y,x,y) （C）Max=x If y＞x Then Max=y 10.下面语句： w=Choose(Weekday( “” “Red”“Green”“Blue”“Yellow” ), , , , ) 执行后，变量 w 中的值是 （A）Null（B）“Red”（C）“Green”（D）“Yellow” 11.下面程序段： Dim If x x Then Print x Else Print x+1 （B）If x＞yThen Max=x Else Max=y （D）If y＞=x Then Max=y Max=x运行后，显示的结果是 （A）1（B）0（C）-1（D）显示出错信息 12.语句 If x=1 Then y=1,下列说法正确的是 （A） （B） x=1 和 y=1 均为赋值语句 x=1 和 y=1 均为关系表达式（C）x=1 为关系表达式，y=1 为赋值语句（D） x=1 为赋值语句， y=1 为关系表达式x＞=1 13.用 If 语句表示分段函数 f(x)= （A） If （B） f=x*x+3 x＞=1 Then If If （C） If f=sqr(x+1) f=sqr(x+1) x2+3 x＜1 ,下列不正确的程序段是x＞=1 Then x＜1 Thenf=x*x+3 f=sqr(x+1)x＞=1 Thenf=x*x+3 （D） If x＜=1 Then f=x*x+3 Else f=sqr(x+1)14.计算分段函数 0 1 y = 2 3 下面程序段中正确的是 (A)If If If If (B) If If x＜0 Then y=0 x＜1 Then y=1 x＜2 Then y=2 x＞=2 Then y=3 x＞=2 Then y=3 x＞=1 Then y=2 x&0 0≤x&1 1≤x&2 x≥2If Ifx＞0 Then y=1 x＜0 Then y=0(C)If x＜0 Then y=0 ElseIf x＞0 Then y=1 ElseIf x＞1 Then y=2 Else y=3 End If (D) If x＞=2 Then y=3 ElseIf x＞=1 Then y=2 ElseIf x＞0 Then y=1 Else y=0 End If二、填空题 1.下面程序运行后输出的结果是 (1) 。x=Int(Rnd)+3 If x^2＞8 Then y=x^2+1 If x^2=9 Then y=x^2-2 If x^2＜8 Then y x^3 Print y 2.下面程序的功能是: Dim n%,m% Private Sub Textl _ KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If IsNumeric(Textl) Then Select Case Textl Mod 2 Case 0 N=n+Text1 Case 1 m=m+Text1 End Select End If Text1 =“” Text1.SetFocus End If End Sub 3.下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结 果。本程序在文本框输入表达式，边输入，边统计，以回车符作为表达式输入结 束，然后显示结果。请在下划线处填入相应的内容。 (2) 。Dim count1% Private Sub Text1_ KeyPress(KeyAscii As Integer) If (3) =“(”ThenCount1=count1+1 ElseIf (5) End If If KeyAscii=13 Then If (6) Then (4) =“)”ThenPrint“左右括号配对” ElseIf (7) ThenPrint“左括号多于右括号”；count1;“个” Else Print“右括号多于左括号”；-count1;“个” End If End If End Sub [注意] 该题中统计括号个数的变量 count1 在通用声明段声明，若在 Text1_KeyPress 内声明，程序会产生什么结果？ 4.输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写， 直接按 Enter 键结束，并显示结果。其中，CountY 中放元音字母个数，CountC 中放其他字符数。 Dim CountY%,CountC% Private Sub Text1_KeyPress(KeyAscii As Integer)Dim C$ C= (8)If“A”＜=C And C＜=“Z”Then Select Case Case (10) (9)CountY=CountY+1 Case (11)CountC=CountC+1 End Select End If If (12) ThenPrint“元音字母有”；CountY；“个” Print“其它字母有”；CountC；“个” End If End Sub参考答案 一、 选择题 1． D 10．C 2． B 3． C 4． A 5． D 11．A 12．C 13. C 6． A 14．D 7． A 8． D 9． D二、 填空题 1．(1) 72．(2)分别统计输入的若干数的奇数和与偶数和，并将它们分别存放在 m、 n中3．(3)Chr(KevAscii) (4)Chr(KeyAscii) (5)countl=countl-1 (6)countl=0 (7)countl＞0KeyAscii 转换成字符。若遇右括号，括号数减 1。括号配对。 左括号多于右括号，多于的个数是 countl 的值。 大小写不区分，转换成大写：4．(8)UCase(Ch，(KeyAscii)) (9) C(10)“A”，“E”，“I”，“O”，“U”是元音字母。 (11)Else 其他字符。(12)KeyAscii=13第 5 章 习题与答案一、 选择题 1.以下正确的 For…Next 结构是 （A） For x=1 To Step 10 … Next x （B）For x=3 To -3 … Next x （C）For x=1 To 10 re: … Next x If i=10 Then GoTo re Step -3（D）For x=3 To 10 … Next yStep 32.下列循环能正常结束循环的是 （A）i=5 Do i=i+1 Loop Until i＜0 （B） i=1 Do i=i+2 Loop Until i=10 （C）i=10 Do i=i+1 Loop Until I＞0 (D) i=6 Do i=i-2 Loop Until I=1 3.下面程序段： For I=3 To 1 Step -1Print Spc(5-i)； For j=1 To 2*I-1Print “*”； Next j Print Next i 的运行结果为 （A）* *** ***** 4.下列程序： Private Sub Textl _Change() Print Textl； End Sub 当在文本框输入“ABCD”这 4 个字符时，窗体上显示的是 （A） ABCD （B）A (C)AABABCABCD B C D (D)A AB ABC ABCD （B）* *** ***** （C）* *** ***** （D）***** *** *5.不能分别正确显示 1!、2!、3！、4！值的程序段是 （A） For I=1 To 4 N=1 For j=1 To I N=n*j Next j Print nNext i （B）For I=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i （C）n=1 For j=1 To 4 n=n*j Print n Next （D）n=1 j=1 Do While j＜=4 n=n*j Print n j=j+1 Loop j二、填空题 1. 要使用下列 FOR 语句循环执行 20 次，请在下划线处填入正确的值。 For k= (1) To C5 Step -22.下面程序段显示 For I=1 To 5 For j=2 To I Print“*”； Next j Next i 3.下列第 40 句共执行了 次。 30 For j= 1To 12 Step 3 40 41 42 For k= 6To 2 Step C2 Print j, k Next k（2）个“*”。(4)次， 41 句共执行了 第(5)43 Next j 4.下面程序运行后输出的结果是 Private Sub Command1_Clik() For I=3 To 13 Step 3 K=I Next I Print I,k End Sub 5.下面程序运行后输出的结果是 Private Sub Command1_Click() For i=0 To 3 Print Tab(5*i+1);“2”+i;“2”&i; (6) 。 (6) 。Next i End Sub 6.下面程序运行后输出的结果是 Private Sub Command1_Click() a$=“*”：:B$=“$” For i=1 To 4 If i Mod 2=0 Then (7) 。x$=String(Len(a$)+i,B$) Else x$=String(Len(a$)+i,a$) End If Print x $ Next i End Sub 7.输入任意长度的字符串， 要求将字符顺序倒置， 例如， 将输入的 “ABCDEFG” 变换成“GFEDCBA”，请在下划线处填入相应的内容。 Private Sub Command1_Click() Dim a $,i%,c$,d$ a=ImputBox $(“输入字符串”) n= (8) (9)For i=1 ToC=Mid(a,i,1) Mid(a,i,1)= (11) (10) =cNext i Print a End Sub 8.下列程序段找出被 3、5、7 除，余数为 1 的最小的 5 个正整数，请在下 划线处填入相应的内容。 Private Sub Command1_Click() Dim CountN%,n% CountN=0 n=1 Do n=n+1 If (12) ThenPrint n CountN=CountN+1 End If Loop End Sub 9.某次大奖赛，有 7 个评委打分，如下程序对一名参赛者，输入 7 个评委 的打分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的 得分。请在下划线处填入相应的内容。 Private Sub Command1_Click() Dim mark!,aver!I%,max1!min1! aver=0 For i=1 To 7 Mark=InputBox(“输入第”&i&“位评委的打分”) (13)Ifi=1 Then Max1=mark: (14)Else If mark＜min1 Then (15) ElseIf (16) End If End If (17) Next i Aver= Print aver End Sub 10.如下程序将一个正整数分解为质因数乘积。例如，234=2*3*3*13。请在 下划线处填入相应的内容 Private Sub Command1_Click() Dim n%,Factor%,First As Boolean n=InputBox(“输入一个正整数”) Factor=2 First=True Do Do While If First (19) Then 内循环考虑到有多个相同的质因数 (18) mark＞max1 ThenP“=”；Factor； Else Print“*”；Factor； End If (20) First=False Loop Factor=Factor+1 Loop Until Factor＞n End Sub参考答案 一、选择题 1．B 二、填空题 1．(1)33 2．(2)10 3．(3)4 (4)12 4．(5)15 根据循环次数计算公式得。 该题相当于统计两重循环执行了多少次。 相当于统计外循环体执行多少次。 相当于统计两重循环体执行多少次。 12 出了循环，循环控制变量 i 是在循环语句退出时赋的值。 主要目的搞清(1)在循环中 Tab 函数的作用； 2．C 3．D 4．C 5．B5．(6)2 20 3 21 4 22 5 23 (2)“+”和“＆”当运算符两边数值和数字字符混合时的区别。 6．(7)**$$$****$$$$$ i 为奇数和偶数时决定显示的内容和个数问题。7．(8)Len(a)解该题的思路是将字符串从两头往中间对应交换位置 (9)Int(n\2) (10)Mid(a，n-i+1，1) (11)Mid(a，n-i+1，1) 8．(12)n Mod 3=1 And n Mod 5=1 And n Mod 7=1 (13)Until CountN=5 或 While CountN＜5 9 .(14)min1=mark#对最低分初始化。 （15）min1=mark (16)max1=mark (17)aver=aver+mark (18)(aver-max1-min1)/5 解该题的思路是每输入一个分数，和最高分和 最低分比较。一旦小于最低分，当前输入的分数作为最低分；最高分计算的方法 也如 此。初始化时假定第一个分数既是最高分又是最低分，然后进行其余分 数的比较。 10.(19)n Mod Factor=0 (20)n=n\Factor 解该题的思路是将输入的数 n 不断除以因子 Factor,每除 一次因子，n 缩小 Factor 倍，Factor 增大，期间还要考虑有重复，直到因子大 于 n。第 6 章 习题与答案一、 选择题1.若要清除列表框的所有内容，可用来实现的方法是 （A）RemoveItem （C）Clear （B）Cls （D）以上均不可以2.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 （A）Timer1.Visible=False （B）Timer1.Enabled=False（C）Timer1.Interval=1000（D）Timer1.Index=03.为了对文本框控件识别输入的 F1~F12 功能键，应使用的事件是 （A）KeyPress （C）Change （B）MouseDown （D）KeyDown4.要获得用户在组合框输入的内容，应利用的组合框的属性是 （A）List （C）ListIndex （B）Selected （D）Text5.当窗体被启动时，不被自动激发的事件是 （A）Load （C）Click （B）Activate （D）Resize6.下列控件中，没有 Caption 属性的是 （A）框架 （C）复选框 （B）列表框 （D）单选按钮7.复选框的 Value 属性为 1 时，表示 （A）复选框未被选中 （B）复选框被选中（C）复选框内有灰色的勾（D）复选框操作有错误 8.用来设置粗体字的属性是 （A）FontItalic （C）FontBold （B）FontName （D）FontSize9.将数据项“China”添加到列表框（List1）中成为第一项应使用的语句是 (A)List1.AddItemChina,0 (Ｂ)List1.AddItemChina,1(C)List1.AddItem 0, China(D)List1.AddItem 1,China 10.引用列表框(List1)最后一个数据项应使用的语句是 (A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1) 11.假如列表框(List1)有４个数据项，那么把数据项“China”添加到列表框的 最后，应使用的语句是 (A)List1.AddItem3，China (B)List1.AddItemChina,List1.ListCount-1 (C)List1.AddItemChina,3 (D)List1.AddItemChina,List1.ListCount 12.执行了下面的程序： Sub Form_Click() For i=1 To 6 List1.AddItem i Next For i=1 To 3 List1.RemoveItem i Next End Sub 列表框中的数据项为 (A)1,5,6 (B)2,4,6 (C)4,5,6 (D)1,3,513.如果列表框(List1)中没有被选定的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是 (A)移去第一项 对 (B)移去最后一项 (C) 移去最后加入列表的一项(D)以上都不14.如果列表框(List1)中只有一个项目被用户选定，则执行 Debug.Print List1.Selected(List1.ListIndex)语句的结果是(A)在 Debug 窗口输出被选定的项目的索引值 (B)在 Debug 窗口输出 True (C)在窗体上输出被选定的项目的索引值 (D)在窗体上输出 True 15.假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True,并且有下面的 事件过程，计算机将发出 Beep 声的次数是 Sub Timer1_Timer() For i=1 To 10 Beep Next i End Sub (A)1000 次 (B)10000 次 (C)10 次 (D)以上都不对16.在下列说法中，正确的是 (A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择 (C)在列表框中能够将项目按字母顺序从大到小排列 (D)框架也有 Click 和 DblClick 事件 17.文本框(Text1)中有选定的文本，执行 Text1.SelText=Hello的结果是 (A)“Hello”将替换掉原来选定的文本 (B)“Hello”将插入到原来选定的文本之前 (C)Text1.SelLength 为 5 (D)文本框中只有“Hello” 18.为了防止用户随意将光标置于控件之上，需做的工作是 (A)将控件的 TabIndex 属性设置为 0(B)将控件的 TabStop 属性设置为 True (C)将控件的 TabStop 属性设置为 False (D)将控件的 Enabled 属性设置为 False 19.下列语句中将按钮(Command1)的标题赋值给文本框(Text1)Text 属性的是 (A)Text1=Command1 (C)Text1.Text=Command1 (B)Text1=Command1.Caption (D)Text1.Text=CStr(Command1)20.下面关于拖放和 OLE 拖放的叙述中，正确的是 (A)只要对控件的属性进行适当的设置，就能将控件从一个地方移动到另一个地 方 (B)文本框、图片框和列表框完全支持自动 OLE 拖放 (C)当 OLEDropMode 属性为 1 时，控件自动实现 OLE“放”操作 (D)当控件的 DragMode 设置为 1 时，它不能接收 Click 和 MouseDown 事件 21.当用户按下并且释放一个键后会触发 KeyPress、KeyUp 和 KeyDown 事件，这 3 个事件发生的顺序是 (A)KeyPress、KeyDown、KeyUp (C)KeyDown、KeyPress、KeyUp (B)KeyDown、KeyUp、KeyPress (D)没有规律22.窗体的 KeyPreview 属性为 True，并且有下列程序： Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) KeyCode=KeyCode+1 End Sub 当焦点在窗体上的文本框时按下“a”键，文本框接收到的字符是 (A) ″a″ (B) ″b″ (C)空格 (D)没有接收到字符23.在下列关于键盘事件的说法中，正确的是 (A)按下键盘上的任意一个键都会引发 KeyPress 事件 (B)大键盘上的“1”键和数字键盘的“1”键的 KeyCode 码相同(C)KeyDown 和 KeyUp 的事件过程中有 KeyAscii 参数 (D)大键盘上的 “4” 键的上档字符是 “＄” 当同时按下 Shift 和大键盘上的 ， “4” 键时，KeyPress 事件过程中的 KeyAscii 参数值是“＄”的 ASCII 值 24.在 KeyDown 或 KeyUp 的事件过程中，能用来检查 Ctrl 和 F3 是否同时按下的 表达式为 (A)(button=vbCtrlMask) And (KeyCode=vbKeyF3) (B)KeyCode=vbKeyControl+vbKeyF3 (C)(KeyCode=vbKeyF3) And (Shift And vbCtrlMask) (D)(Shift And vbCtrlMask) And (KeyCode and vbKeyF3) 二、填空题 1.将 2.将 (1) (2) 属性设置为 1，单选按钮和复选框的标题显示在左边。 属性设置为 1，单选按钮和复选框以图形方式显示。3.在程序运行时，如果将框架的 (3) 属性设为 False，则框架的标题呈 灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。 4.列表框中项目的序号是从 5. (5) (4) 开始的。表示列表框中最后一项的序号。 (6) 和 (7) 属性是数组。6.列表框中的 7. (8)方法可清除列表框的所有内容。 (9) 风格8.组合框是组合了文本框和列表框的特性而形成的一种控件。 的组合框不允许用户输入列表框中没有的项。 9.滚动条响应的重要事件有 (10) 和 Change。 (11)10.当用户单击滚动条的空白处时，滑块移动的增量值由 11.滚动条产生 Change 事件是因为 (12) 值改变了。属性决定。12.如果要每隔 15 秒产生一个计时器事件，则 Interval 属性应设置为 (13) 。参考答案 一、选择题 1.C 11.D 2.B 12.D 3.D 4.D 5.C 6.B 7.B 8.C 9.A 10.B13.A 14.B 23.D 24.C 二、填空题 1.(1)Alignment 2.(2)Style 3.(3)Enabled 4.(4)015.D16.D17.A18.D19.B20.D21.C22.A5.(5)ListCount-1 6.(6)List (7)Selected 7.(8)Clear 8.(9)下拉式列表框 9.(10)Scroll 10.(11)LargeChange 11.(12)Value 12.(13)250第 7 章 习题与答案一、 选择题1.如下数组声明语句，正确的是 （A）Dim a[3,4]As Integer （C）Dim a(n,n) As Integer （B）Dim a(3,4)As Integer （D）Dim a(3,4)As Integer2.要分配存放如下方阵的数据： 1.1 4.4 7.7 2.2 5.5 8.8 3.3 6.6 9.9数组声明语句能实现（不能浪费空间）的是 (A) Dim a(9) As Single （B）Dim a(3,3) As Single（C）Dim a (-1 To 1,-5 To -3) As Single （D）Dim a (-3 To 1,-5 To 7) 3.如下数组声明语句： Dim a(3,-2 To 2,5) 则数组 a 包含的元素的个数为 （A）120 4.以下程序 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Next i Print a(i) 输出结果是 （A）49 （B）0 （C）不确定 （D）程序出错 （B）75 （C）60 （D）13 As Integer5.以下程序 Option Base 1 Private Sub Command1 _Click()Dim a%(3,3) For i=1 To 3 For j=1 To 3 If j＞1 And i＞1 Then a(i,j)=a(a(i-1,j-1),a(i,j-1))+1 Else a(i,j)=i*j End If Print a(I,j);“”; Next j Print Next i End Sub 输出结果是 （A）1 2 3 2 3 2 3 1 3 （B）1 1 1 2 2 2 3 3 3 （C）1 2 3 2 4 6 3 6 9 （D）1 2 3 1 2 3 1 2 36.以下程序 Option Base 1 Private Sub Command1_Click() Dim a,B(3,3) a=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3B(i,j)=a(i*j) If(j＞=i) Then Print Tab(j*3);format(B(i,j),“###”); Next j Print Next I End Sub 输出结果是 (A)1 4 7 5 8 2 6 9 3 (B)1 4 7 5 8 9 (C)1 2 3 4 6 4 6 9 7 (D)1 4 2 6 9 37.要存储 n 个单精度数，下列语句正确的是 (A)n=InputBox(“input n”) Dim a (1 To n)As Single (B)Dim a()As Single n=InputBox(“input n”) ReDim a(1 To n) (C)Dim a()As Integer n=InputBox(“input n”) ReDim a(n) Single 8.已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元 素，正确的是 （A）a(-1,2) （B）a(4) （C）a[-1,2] （D）a(0,6) (D)Dim a(n)As Single9.下列有关控件数组与一般控件的区别的叙述中，最合理的是 (A) 控件数组一定由多个同类型的控件组成，一般控件只有一个控件； (B) 控件数组的 Index 为 0，而一般控件的 Index 为空； (C) 控件数组的 Index 为 1，而一般控件的 Index 为 0； （D）控件数组的建立通过 Dim 语句声明，而一般控件不必声明。二、填空题 1.矩阵转置 矩阵转置就是将一个 n×m 的矩阵行和列互换。例如矩阵： a= ,转置后的矩阵为 b= 要实现如本例所示的功能，程序如下： Option Base 1 Private Sub Command1_Click() Dim a%(2,3),b(3,2),i%,j%,n% n=5 For i=1 To 2 For j=1 To 3 (1) n=n+5 Print a(I,j); Next j Print Next i For i=1 To 3 For j=1 To 2 (2) Print b(i,j); Next j PrintNext i End Sub 2.下面的程序是将输入的一个数插入到递减的有序数列中， 插入后使该序列仍然 有序递减。请在程序中下划线处填入相应的内容。 Private Sub Form_Click() Dim a,i%,n%,m% A=Array(19，17，15，13，11，9，7，5，3，1) n=Ubound(A) ReDim (3)m=Val(InputBox(“输入欲插入的数”)) For i=Ubound(a)-1 To 0 Step-1 If m＞=a(i)Then (4) If i=0 Then a(i)=m Else (5) Exit For End If Next i For i=0 To Ubound(A) Print a(i) Next i End Sub 3.冒泡法排序在教程中已介绍选择法、合并法排序，上例使用插入法排序，常用的排序方 法还有冒泡法。 冒泡法排序与选择法排序相似，选择法排序在每一轮排序时找最大（递减顺序） 数的下标，出了内循环（一轮排序结束），再交换最大数的位置；而冒泡法排序 在每一轮排序时将相邻的数比较，当顺序不对就交换位置，出了内循环，最大数 已冒出。 按递增顺序排序的程序如下： Private Sub Form_Click() Dim a,n%,j%,i%,t a=Array(19,5,15,7,11,9,23,6,3,1) n=Ubound(a) For i=0 To n-1 For j=0 To n-i-1 If a(j)＞a(j+1)Then (6) End If Next j Next i For i=0 To Ubound(a) Print a(i)； Next I End Sub 请在程序中下划线处填入相应的内容。 为了提高效率， 若在某一轮排序时， 未发生位置交换， 说明欲排序的序列已有序， 排序就可结束。程序中只要增加一个逻辑变量来进行判断。程序如下： Private Sub Form_Click() ： (7) ：:a(j+1)=tDim a,n%,m%,I%,Tag As Boolean a=Array(1,5,6,7,4,13,23,26,31,51) n=Ubound(A) For i=0 To n-1 Tag=False For j=0 To n-1-i If a(j) ＞a(j+1)Then (8) (9) End If Next j If Next I For I=0 To Ubound(a) Print a(i)； Next i End Sub (11) : (10) :a(j+1)=t参考答案 一、选择题 1.B 二、填空题 1．(1)a(i，i)=n (2)b(i，j)=a(j，i) 2.C 3.A 4.D 5.A 6.D 7.B 8.A 9.B2．(3)Preserve a(n+1) 留原数据。插入一个数，先要使数组加一个元素，而且要保(4)a(i+1)=a(i) 找插入的位置。 找到插入位置，插入到数组中。 3.(6)t=a(i) (7) a(j)=a(j+1) 为 True，说明数次序不对，进行过交换。 (9)t=a(i) (10)a(j)=a(j+1)(5)a(i+1)=m新数据(8)Tag=True Tag(11)Not Tag Then Exit For 在某一轮比较时没有发生过数据位置交换， 说明数组已有序，不必再进行下一轮的比较。第 8 章 习题与答案一、 选择题 1. 设有如下说明： Public Sub F1(n%) … n=3*n+4 … End Sub Private Sub Command1_Click() Dim n%,m% N=3：m=4… 调用 F1 语句 … End Sub 则在 Command1_Click 事件中有效的调用语句是 （A）F1 n+m (B)F1 m (C)F1 5 (D)F1 m+52.下面子过程语句说明合法的是 （A）Sub f1(ByVal n%) (B)Sub f1(n%)As Integer f1%(f1%) (D)Function f1(ByVal n%) (C)Function3.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 （A）Sub f2(ByVal n%,ByVal m%) (B) Sub f1(n%,ByVal m%) (C) Sub f1(n%,m%) (D) Sub f1(ByVal n%,m%) 4.下面过程运行后显示的结果是 Pubic Sub F1(n%,ByVal m%) N=n Mod 10 M=m\10 End Sub Private Sub Command1_Click() Dim x%,y% x=12:y=34 Call F1(x,y) Print x,y End Sub （A）2 34 (B)12 34 (C)2 3 (D)12 35.如下程序： Private Sub Command1_Click() Print p1(3,7) End Sub Public function p1!(x!,n%) If n=0 Then P1=1 Else If n Mod 2=1 Then P1=x*p1(x,n\2) ElsePl=pl(x,n\2)\x End If End If End Function 运行的结果是 （A）18 (B)7 (C)14 (D)276.如下程序： Dim a%，b%，c% Public Sub p1 (x%，y%) Dim c% X=2*x：y=y+2：c+y End Sub Public Sub p2 (x%，,Byval y%) Dim c% X=2*x：:y=y+2：c=x+y End Sub Private Sub Command1_Click() A=2：b=4：c=6 Call p1(a,b) Print“a=”;“b=”;“c=”；c Call p2(a,b) Print“a=”;“b=”;“c=”;c End Sub 运行的结果是（A） a=2 b=4 c=6 a=4 b=6 c=10 (C) a=4 b=6 c=6 a=8 b=6 c=6 7.如下程序： Public Sub Proc(a%()) Static I% Do A(i)=a(i)+a(I+1) I=I+1 Loop While I&2 End Sub(B) a=4 b=4 c=10 a=8 b=8 c=16 (D) a=4 b=6 c=14 a=8 b=8 c=6Private Sub Command1_Click() Dim m%,I%,x%(10) For i=0 To 4：x(i)=I+1：Next i For i=0 To 2：Call Proc(x)：Next i For i=0 To 4：Print x(i)；：Next I 运行的结果是 （A）3 4 7 5 6 (B)3 5 7 4 5 (C)2 3 4 4 5 (D)4 5 6 7 8二、填空题 1.如下程序，运行的结果是 (1) ，函数过程的功能是 (2) 。Public Function f(ByVal n%,ByVal r%) If n&&0 ThenF=f (n\r，r) Print n M End If End Function Private Sub Command1_Click() Print f(100,8) End Sub 2.如下程序，运行的结果是 Public Function f(m%,n%) Do While m&&n Do While m&n：m=m-n：Loop D o While n&m：n=n-m：Loop Loop F=m End Function Private Sub Command1_Click() Print f(24,18) End Sub 3.两质数的差为 2，称此两质数为质数对，下列程序是找出 100 以内的质数对， 并成对显示结果。其中，函数 IsP 判断参数 m 是否为质数。请在程序中下划线处 填入相应的内容。 Public Function IsP(m)As Boolean Dim I% (5) For I=2 To Int(Sqr(m)) (3) ,函数过程的功能是 (4) 。If Next I(6)Then IsP=FalseEnd Function Private Sub Command1_Click() Dim I% P1=IsP(3) For I=5 To 100 Step 2 P2=IsP(I) If P1 Next I End Sub 4.子过程 MoveStr()是把字符数组移动 m 个位置，当 Tag 为 True 时左移，将前 m 个字符移到字符数组尾，例如，“abcdefghij”左移 3 个位置后，结果为 “defghijabc”;当 Tag 为 False 时右移，将后 m 个字符移到字符数组前，如 “abcdefghij”右移 3 个位置后，结果为“hijabcdefg”。 子过程如下： Public Sub MoveStr(a$(),m%,Tag As Boolean) Dim I%,j%,t$ If (9) Then (7) (8) Then Print I-2,IFor I=1 To m (10) For j=0 To A(j)=a(j+1) Next j (11)(12) Next I Else For I=1 To m (13) For j=Ubound(A) A(j)=a(j-1) Next j (15) Next I End If End Sub 请在程序中下划线处填入相应的内容。 5.统计输入的文章中的单词数，并将出现的定冠词 The 全部去除，同时统计删除 的定冠词个数。假定单词间以一个空格分隔。解决此题有多种方法，这里使用最 方便的两种方法。 其一，利用 VB 6.0 提供的 Split 函数将单词分离，Filter 函数去除定冠词，再 利用 Join 函数合并字符数组。当然，若不统计单词数，可直接利用 Replace 函 数更方便地解决。其二，利用 InStr 函数实现。 方法一子过程如下： '为处理的字符串，CountWord 为统计的单词数，CountThe 为统计的定冠词数 Public Sub Pword(s$,CountWord%,CountThe%) A=Split(s,“”) CountWord= B=Filter(a, (16) (17 ) (14)CountThe S=Join(B) End Sub(18)方法二子过程如下： Public Sub Pword(s$,CountWord%,CountThe%) Dim lens%,I%,at $ CountThe=0：CountWord=0 ‘ 开始求单词数 st=Trim(s) (19) Do While I&0 CountWord=CountWord+1 St= (20)I=InStr(st“”) Loop CountWord=CountWord+1 ‘ 开始求定冠词数和删除定冠词 st=Trim(s) (21) Do While I&0 CountThe=CountThe+1 St= (22)I=InStr(at,“The”) Loop(23) End Sub参考答案： 参考答案： 一、 选择题 1.B 二、填空题 1.(1)1 4 4 (2)是用递归函数实现将十进制数 n 以 r 进制显示 2.D 3.C 4.A 5.D 6.C 7.B2.(3)6 (4)用辗转相减法求 m、n 的最大公约数。求最大公约数 通常是用辗转相除法。 3.(5)IsP=True 初值假定为质数。 (6)m Mod I=0 只要被 I 整除，m 就 不是质数。 (7)p1 And p2 相邻的两个是质数，则打印质数对。 (8)=p2 为下一个相邻的质数作准备。 （10）c=a(0) 将最4.（9）Tag Tag 为 True 左移。 左边的元素移出。（11）Ubound(a-1) 数组上界减一个，循环完成，所有元素左移一次， 最右边空出位置，留给最左边的刚移出元素 a(0)。 （12）a(Ubound(a))=c 最左边的刚移出元素移到最右边。 c=a(Ubound(a)) 将最右边的元素移出。 （13）（14）To 1 Step-1 意义同 11，仅是右移。右移从右边开始逐一往右移， 最左空出位置，留给最右边的刚移出元素 a(Ubound(a))。 （15）a(0)=c 一次右移完成。5.(16)Ubound(a)+1 数组元素个数就是单词个数。 (17)“The”,False False 表示过滤掉“The”,这样在数组中就保留了没有“The”的字符。注意： “The” 后面有一个空格，不要写成“The”，否则会把“The”开头的单词也 考虑在内，如“There”、“Then”等。(18)CountWord-Ubound(B)-1 将单词减去非“The”的个数就是“The”的 个数。 (19)I=InStr(st,“”)在 st 中找第一个出现的空格，当 I 大于零；I 前 的为一个单词。 (20) Mid(st,I+1)在 st 中去除空格前的子字符串，为下一个单词作准备。 本题中 st 一直在缩短，直到 st 中无空格，剩下最后一个单词为止。 (21)I=InStr(st, “The”)在 st 中找第一个出现的“The”。 (22)Left(st,i-1)+Mid(st,I+4) 在 st 中去除“The”。(23)s=st st 中已无“The”，结果给 s，通过地址传递返回给主调程序。第 9 章 习题与答案一、 选择题1. 下面关于顺序文件的描述正确的是 (A)每条记录的长度必须相同 (B)可通过编程对文件中的某条记录方便地修改 (C)数据只能以 ASCII 码形式存放在文件中，所以可通过文本编辑软件显示 (D)文件的组织结构复杂 2.下面关于随机文件的描述不正确的是 (A)每条记录的长度必须相同 (B)一个文件中记录号不必惟一 (C)可通过编程对文件中的某条记录方便地修改 (D)文件的组织结构比顺序文件复杂 3.按文件的组织方式分有 (A)顺序文件和随机文件 (B)ASCII 文件和二进制文件(C)程序文件和数据文件 (D)磁盘文件和打印文件 4.下面关于顺序文件的描述正确的是 (A)文件中按每条记录的记录号从小到大排序好 (B)文件中按每条记录的长度从小到大排序好 (C)文件中按记录的某关键数据项从大到小的顺序排序 (D)记录按进入的先后顺序存放，读出也是按原写入的先后顺序读 5.下面关于随机文件的描述正确的是 (A)文件中的内容是通过随机数产生的 (B)文件中的记录号通过随机数产生 (C)可对文件中的记录根据记录号随机地读写 (D)文件的每条记录的长度是随机的 6.文件号最大可取的值为 (A)255 (B)511 (C)512 (D)2567.KILL 语句在 VB 语言中的功能是 (A)清内存 (C)删除磁盘上的文件 (B)清病毒 (D)清屏幕8.PRINT #1,STR1 $中的 PRINT 是 (A)文件的写语句 (C)子程序名 (B)在窗体上显示的方法 (D)以上均不是9.为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成， 应使用(A)记录类型 (C)字符串类型(B)数组 (D)变体类型10.要从磁盘上读入一个文件名为c:\t1.txt的顺序文件， 如下语句中正确的 是 (A) F=c:\t1.txt Open F For Input As #1 (B) F=c:\t1.txt Open FFor Input As #1 (C)Open c:\t1.txtFor Output As #1 (D)Open c:\t1.txt For Input As #1 11.要从磁盘上新建一个名为c:\t1.txt的顺序文件，如下语句中正确的是 (A)F=c:\t1.txt Open F For Append As #2 (B)F=c:\t1.txtOpen FFor Output As #2 (C)Open c:\t1.txt For Output As #2 (D)Open c:\t1.txtFor Output As #2 12.可在其中定义记录类型的模块是 (A)窗体模块 (C)窗体模块和标准模块 (B)标准模块 (D)除窗体模块和标准模块之外的其他模块13.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓 名、三门课程成绩(百分制)组成，如下程序段中正确的是 (A)Type stud no As Integer name As Stringmark(1 To 3)As Single End Type (B)Type stud no As Integer name As String * 10 mark() As Single End Type (C)Type stud no As Integer name As String * 10 mark(1 To 3)As String End Type (D)Type stud no As Integer name As String * 10 mark(1 To 3)As Single End Type 14.为了使用上述定义的记录类型，对一个学生的各数据项通过赋值语句获得， 其值分别为 9801、李平、78、88、96,如下程序段中正确的是 (A)Dim S As stud stud.no=9801 stud.name=李平 (B) Dim S As stud S.no=9801 S.name=李平stud.mark=78,88,96S.mark=78,88,96(C)Dim s As stud s.no=9801 s.name=李平 s.mark(1)=78 s.mark(2)=88 s.mark(3)=96(D) Dim s As stud stud.no=9801 stud.name=李平 stud.mark(1)=78 stud.mark(2)=88 stud.mark(3)=9615.对已定义好的学生记录类型，要在内存存放 10 个学生的学习情况，如下数组 声明：Dim s10(1 to 10) As Stud 要表示第 3 个学生的第 3 门课程和该生的姓名，正确的是 (A)s10(3).mark(3),s10(3).Name (B)s3.mark(3),s3.Name (C)s10(3).mark,s10(3).Name (D)With s10(3) .mark .Name End With 16.要建立一个学生成绩的随机文件，文件名为stud.dat,该文件由第 14 题 赋值的一条记录组成，如下程序段正确的是 (A)Open stud.dat For Random As #1 Put #1,1,s Close #1(B)Open stud.datFor Random As #1 Put #1,1,s Close #1 (C)Open stud.datFor Output As #1 Put #1,1,s Close #1 (D)Open stud.dat For Random As #1 Put #1 s Close #1二、填空题 1.文件列表框的 FileName 属性 (1) 路径，使用文件列表框的 Path 属性，必 须要考虑 (2) 与 (3) 使用差别。 2.文件列表框的 Path 与目录列表框的 Path 都表示 3.根据访问模式文件分成 4.随机文件按 (8) (5) 、 (6) 、 (4) 。 (7) (9) 。 为单位读出。为单位读出；二进制文件按5.按文件号为 1 建立一个顺序文件 SEQNEW.DAT,用于写入数据，语句为 (10) 。 6.按文件号 2 打开顺序文件 SEQOLD.DAT，用于从该文件读出数据，语句为 (11) 。 7.EOF 函数判断 (13) 。 (12) 是否到了文件结束标志。LOF 函数返回文件的8.以下代码建立文件名为“c:\stud1.txt”的顺序文件，内容来自文本框，每按 一次回车键写入一条记录，然后清除文本框的内容，直到文本框内输入“END” 字符串。 Private Sub Form_Load() Openc:stud1.txtFor Output As #1 Text1= End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Close #1 End Else (15) Text1= End If End If End Sub 9.将 C 盘根目录下的一个文本文件“OLD.DAT”复制到新文件“NEW.DAT”中，并 利用文件操作语句将“OLD.DAT”文件从磁盘上删除。 Private Sub Command1_Click() Dim strl $ Open c:\old.dat (16) As #1 (14) ThenOpen c:\new.dat Do While (19) Print #2,strl Loop (20) (21) End Sub (18)(17)10.随机文件的修改。对已建立的有若干条记录的文件名为 c:\stud.dat 的随机 文件，记录类型见选择题中第 13 题正确的结构。要读出记录号为 5 的那条记录， 显示在窗体上， 然后将其第 2 门课程成绩加 5 分， 再写入原记录的位置， 再读出， 显示修改成功与否。 Private Sub Command1_Click() Dim s As stud, (22)Open c:\stud.datFor Random As #1 (23) Print s.no，s.name，s.mark(1)，s.mark(2)，s.mark(3) (24) Put #1，5，s (25) Print d.no，d.name，d.mark(1)，d.mark(2)，d.mark(3) Close #1 End Sub11.磁盘文本文件 c:\my\zg.dat 的工资和职称情况，每条记录由工号、工资、职 称组成，现对有职称的职工加工资，规定“教授”或“副教授”加原有工资的 15%，“讲师”加原有工资的 10%，“助教”加原有工资的 5%，其他人员不加工 资。本程序要求根据加工资的条件修改原文本文件内各类人员的相应工资。 分析：文本文件不能直接进行修改，只能增加一个临时文件，顺序地从老文件读 出内容，判断是否要修改。若不修改，则将原内容写到临时文件中；若修改，则 将新内容写入临时文件中，直到文件结束。 然后，通过临时文件将内容重新依次写回老文件。由此可见顺序文件修改某一条 记录比较麻烦，但适合于批量数据的整体修改或处理。当然，也可通过 VB 提供 的文件操作命令，删除老文件，将临时文件改名为老文件或将临时文件复制为老 文件。 Private Sub Command1_Click() Dim no%,gz!,zc$ Openc:\my\zg.txtFor Input As #1 Openc:\my\lszg.txtFor Output As #2 Do While Not EOF(1) (26) Select Case zc (27) gz=gz*1.15 Case 讲师 (28) Case 助教 Gz=gz*1.05 End Select(29) Loop Close #1,#2 Openc:\my\zg.txt Open c:\my\lszg.txt Do While Not EOF(2) Input #2,no,gz,zc (32) Loop Close #1,#2 End Sub (30) (31)参考答案 一、选择题 1.C 2.B 3.A 4.D 5.C 6.B 11.D 12.B 13.D 14.C 15.A 16.B 二、填空题 1.(1)不包含 2.(4)当前路径 3.(5)顺序文件 4.(8)记录 (6)随机文件 (7)二进制文件 (2)根目录 (3)子目录的 7.C 8.A 9.A 10.A(9)字节5.(10)OpenSEQNEW.DATFor Output As #16.(11)Open SEQOLD.DATFor Input As #2 7.(12)文件指针 (13)字节数8.(14)UCase(Text1)= END 大小写均可满足，程序可操作性强 (15)Print #1,Text1 文本框内容写到文件中 (17)For Output As #2 写方式打开 (19)Line Input #1,str1 按行读入到9.(16)For Input 读入方式打开 (18)Not EOF(1) 字符串变量中 (20)Close #1,#2文件没有到结束标志(21)KILLc:\old.dat删除老文件10.(22)d As stud (23)Get #1,5,s 读入记录号为 5 的记录，放入 s 记录变量 中 (24)s.mark(2)=s.mark(2)+5 第 2 门课程加 5 分 (25)Get #1,5,d 读入记录号为 5 的记录，放入 d 记录变量中，检验修改成功否 (27)Case教授，副教授 判断职称是教授 职称为讲师，加 10%工资 (31)For Input As #211.(26)Input #1,no,gz,zc 或副教授 (28)gz=gz*1.1 (29)Write #2,no,gz,zc (32)Write #1,no,gz,zc(30)For Output As #1第 10 章 习题与答案一、 选择题1. 在用菜单编辑器设计菜单时，必须输入的项是 (A)快捷键 (B)标题 (C)索引 (D)名称2．在下列关于菜单的说法中，错误的是 (A)每个菜单项都是一个控件，与其他控件一样有自己的属性和事件 (B)除了 Click 事件之外，菜单项还能响应其他的(如 DblClick 等)事件 (C)菜单项的快捷键不能任意设置(D)在程序执行时， 如果菜单项的 Enabled 属性为 False， 则该菜单项变成灰 色，不能被用户选择 3．在下列程序中，不论使用鼠标右键还是左键，弹出菜单中的菜单项都响应鼠 标单击的是 (A)Sub Form-MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Button=2 Then PopupMenu End Sub (B)SubForm_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) PopupMenu Menu_Test，0 End Sub (C)Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) PopupMenu Menu_Test 1 End Sub (D)Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Menu_Test End Sub 4．在下列关于通用对话框的叙述中，错误的是 (A)CommonDialogl．ShowFont 显示字体对话框 (B)在“打开”或“另存为”对话框中，用户选择的文件名可以经 FileTitle 属性返回 (C)在“打开”或“另存为”对话框中，FileName 属性返回所选的文件名及 其路径 Menu_Test，2(D)通用对话框可以用来制作和显示帮助对话框 5．以下语句正确的是 (A)CommonDialogl.Filter=All Files |*.*| Pictures (*.Bmp) |*.Bmp (B)CommonDialogl.Filter=”All Files” | ”*．*” | ”Pictures (*．Bmp)” | ”*.Bmp” (C)CommonDialogl.Filter=”All Files| *.* | Pictures(*.Bmp)|*.Bmp” (D)CommonDialogl.Filter={All Files| *.* | Pictures(*.Bmp)|*.Bmp| 6．在下列关于自定义对话框的叙述中，错误的是 (A)对话框的窗体的 BorderStyle、ControlBox、MaxButton 和 MinButton 应分别被设置为 1、True、False 和 False (B)语句 frmAbout．Show vbModeless，frmMain 将 frmAbout 作为 fmlMain 的无模式子窗体显示 (c)可以将对话框分成两种类型：模式的和无模式的 (D)语句 frmAbout.Show 将 frmAbout 作为无模式对话框显示 7．在窗体从内存卸载的过程中会发生许多事件，这些事件发生的顺序是 (A)Terminate，QueryUnload，Unload (B)QueryUnload，Unload，Terminate (C)Query-Unload，Terminate，Unload (D)Unload，QueryUnload，Terminate 8．在下面关于窗体事件的叙述中，错误的是 (A)在窗体的整个牛命周期中，Initialize 事件只触发一次 (B)在用 Show 显示窗体时，不一定发生 Load 事件 (C)每当窗体需要重画时，肯定会触发 Paint 事件 (D)Resize 事件在窗体的大小有所改变时被触发 9．下面关于多重窗体的叙述中，正确的是(A)作为启动对象的 Main 子过程只能放在窗体模块内 (B)如果启动对象是 Main 子过程，则程序启动时不加载任何窗体，以后由该 过程根据不同情况决定是否加载及加载哪一个窗体 (C)没有启动窗体，程序不能执行 (D)以上都不对 10．如果 Forml 是启动窗体，并且 Forml 的 load 事件过程中有 form2.show，则 程序启动后 (A)发生一个运行错误 (B)发生一个编译错误 (C)在所有的初始化代码运行后，Form1 是活动窗体 (D)在所有的初始化代码运行后，Form2 是活动窗体 11．当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 (A)发生 DeActivate 事件 (B)发生 LostFocus 事件 (C)发生 DeActivate 和 LostFocus 事件 (D)DeActivate 和 LostFocus 事件都不发生二、填空题 1．如果建立菜单时在标题文本框中输入―个 分隔符。 2．如果把菜单项的 (2) (1) ,那么显示时形成一个属性设置为 True，则该菜单项成为一个选定项。 (3)3．不论是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以用 方法把它们作为弹出菜单在程序运行期间显示出来。键和菜单项标题中的一个字符来打开菜单。建 4．菜单的热键指使用 (4) 热键的方法是，在菜单标题的某个字符前加上一个 (5) 符号，则菜单中 这一字符自动加上 (6) ，表示该字符是热键字符。5． 假定有一个通用对话框控件 CommonDialogl， 除了用 CommonDialogI.Action=3 显示颜色对话框之外，还可以用 (7) 方法显示。 6．在显示字体对话框之前必须设置 的错误。 (8) 属性，否则将发生字体不存在7．在用 Show 方法显示自定义对话框时，如果 Show 方法后带 就将窗体作为模式对话框显示。 8．在用 Unload 方法把窗体从内存卸载的过程中，将依次发生 Unload 和 (11) 事件。(9)参数，(10)、9．每当一个窗体成为活动窗口时触发 (12) 事件，当另一个窗体或应用程， 被激活时在原活动窗体上产生 (13) 事件。 10. 在 Visual Basic 中，除了可以指定某个窗体作为启动对象之外，还可以指 定 (14) 作为启动对象。 11．Microsoft Windows Common Control 6．0 部件包含 (15) 、TreeView、ListView、ImageList、 StatusBar、 (16) ImageCombo 等控件。 12．在程序中使用 Show 方法，不一定会引发 13．窗体成为活动窗体(具有焦点)时触发 (19) (18) 事件。 事件。 、ToolBar、 (17) 和14．在一个窗体的程序代码中可以访问另一个窗体上的控件的属性，访问时控件 名之前必须加上 (20) 。参考答案 一、选择题 1．D 10．C 2．B 11．D 3．A 4．D 5．C 6．A 7．B 8．C 9．B二、填空题 1．(1)下划线(或者“_”) 2．(2)Checked 3．(3)PopupMenu4．(4)Alt (5)& (6)下划线 5.(7)CommonDialog1.ShowColor 6.(8)Flags 7.(9)vbModal 8.(10)QueryUnload (11)Terminate 9.(12)Activate (13)Deactivate 10.(14)Main 子过程 (15)TabStrip (16)ProgressBar (17)Slider 12.(18)Load 13.(19)Activate 14.(20)所在窗体的名称第 11 章 习题与答案一、 选择题1. 可用来改变坐标度量单位的是 (A)Drawstyle 属性 (C)Scale 方法 (B)DrawWidth 属性 (D)ScaleMode 属性2．以下的属性和方法中，可重定义坐标系的是(A)Drawstyle 属性 (C)Scale 方法(B)DmwWidth 属性 (D)ScaleMode 属性3．当使用 Line 方法画直线后，当前坐标在 (A)(0，0) (B)直线起点 (C)直线终点 (D)容器的中心4．指令&Circle()，500，8，-6，-3”将绘制 (A)画圆 (B)椭圆 (C)圆弧 (D)扇形5．执行指令“Line()-Step()，，B”后，CurrentX= (A)2200 (B)1200 (C)1000 (D)17006．没置对象的边框类型的属性是 (A)Drawstyle (B)DrawWidth (C)Borderstyle (D)ScaleMode7．下列四种途径中在程序运行时不能将图片添加到窗体、图片框或图像框的 Picture 属性的是 (A)使用 LoadPicture 方法 (c)通过剪贴板复制图片 (B)对象间图片的复制 (D)使用拖放操作8．设计时添加到图片框或图像框的图片数据保存在 (A)窗体的 Frm 文件 (C)图片的原始文件内 (B)窗体的 Frx 文件 (D)编译后创建的 Exe 文件9．窗体和各种控件都具有图形属性，下列四项属性可用于显示处理的是 (A)DrawStyle，DrawMode (C)FillStyle，FillColor (B)AutoRedraw，ClipControls (D)ForeColor，BorderColor10．当窗体的 AutoRedraw 属性采用默认值时，若在窗体装入时使用绘图方法绘 制图形，则应将程序放在 (A)Paint 事件 (B)Load 事件 (C)Initialize 事件 (D)Click 事件11．当使用 Line 方法时，参数 B 与 F 可组合使用，下列组合中不允许的是 (A)BF (B)F (C)B (D)不使用12．下列所使用的方法中，不能减少内存的开销的是 (A)将窗体设置得尽量小 (C)设置 AutoRedraw=False (B)使用 ImageBox 处理图形 (D)不设置 DrawStyle13．当对 DrawWidth 进行设置后，将影响 (A)Line、Circle、Pset 方法 (C)Line、 Circle、 Point 方法 控件 14．命令按钮、单选按钮、复选按钮上都有 Picture 属性，可以在控件上显示图 片，但需要通过别的属性来控制，该属性是 (A)Appearance 属性 (C)DisabledPicture 属性 (B)Style 属性 (D)DownPicture 属性 (B)Line、Shape 控件 (D)Line、 Circle、 Pset 方法和 Line、 Shape15．CLS 可清除窗体或图形框中的内容是 (A)Picture 属性设置的背景图案 (C)程序运行时产生的图形和文字 (B)在设计时放置的控件 (D)以上 A~C 全部二、填空题 1．改变容器对象的 ScaleMode 属性值，容器的大小 上的位置 (2) 改变。 2．容器的实际可用高度和宽度由 (3) 和 (1) 改变，它在屏幕(4)属性确定。3．设 Pieturel．ScaleLefi=-200，Picture1．ScaleTop=250， Picture1．ScaleWidth=500，Picture1．ScaleHeight=-400。则 Picturel 右下 角坐标为 (5) 。 4．窗体 Forml 的左上角坐标为(-200，250)，窗体 Forml 的右下角坐标为(300， -150)。X 轴的正向向 (6) ，Y 轴的正向向 (7) 。 5．当 Scale 方法不带参数时，则采用 (8) 坐标系。 (9) 能自动调整6．PictureBox 控件的 Autosize 属性设置为 True 时， 大小。7．使用 Line 方法画矩形，必须在指令中使用关键字 8．用 Circle 方法画扇形，起始角、终止角取值范围为 9．Circle 方法正向采用 (12) 时针方向。(10) (11)。 。10．DrawStyle 属性用于设置所画线的形状，此属性受到 制。(13)属性的限11． 请在下列程序的空格处填入正确的代码， 使之实现对标签添加滚动条的功能。 在窗体上放置一个图形框，图形框内放置一个标签、一个垂直滚动条。当标签中 的文本内容大于图形框显示区域时，可使用垂直滚动标签中的文本内容。要求滚 动条最小变化为 50，最大变化为 100。 Private Sub Form_Load() Label1.Top=0 Label1.Left=0 Vscroll1.Max=Label1.Height-Picture1.Height Vscroll1.SmallChange=50 (14) If End Sub Private Sub Vscroll1_Change() (16) End Sub Private Sub Vscroll1_Scroll() (17) End Sub = -Vscroll1.Value (Label1.Height-Picture1.Height)&=0 Then (15)参考答案一、选择题 1．D 9．B 2．C 3．C 4．D 10．A 11．B 12．D 14．B 15．C 5．A 6．C 7．D 8．B13．A 二、填充题1．(1)不会改变 (2)不会改变 2．(3)ScaleHeight (4)ScaleWidth 3．(5)(300，-150) 4．(6)右 (7)上 5．(8)默认坐标系 6．(9)图形框 7．(10) B 8．(11)在 0 ~ -2π 9．(12)逆时针方向 10．(13)DrawWidth 7 种线型仅当 DrawWidth 属性值为 1 时才能产生 11．(14)Vscroll1．LargeChange=100 (15)VScrolll．Visible=False (16)Label1.Top (17)Label1.Top=-Vscroll1.Value
VB课后习题答案_小学作文_小学教育_教育专区。第一章 1 第二章 2 第3章 3 第4章 4 第5章 8 第六章 11 第 7 章 14 第 8 章 17 第九章 18 第十...VB习题及习题解答_IT认证_资格考试/认证_教育专区。习题一一、简答题 1. 简述...3-109 习题一 参考答案一、简答题 1.答:Visual Basic 是 Microsoft 公司与 ...vb习题集和答案_其它课程_高中教育_教育专区。第一章 选择题 1. VB 是一种面向对象的可视化程序设计语言,采取了( (A)事件驱动 (C)从主程序开始执行 2. 以下...vb习题及部分答案_从业资格考试_资格考试/认证_教育专区。对话框,菜单编辑器,文件的写入与打开1. 在名称为 Form1 的窗体上画一个名称为 Command1、标题为“保存...vb课后习题答案_理学_高等教育_教育专区。A2 Public Class SyA_2 Private Sub ...(&欢迎您使用 VB.NET!&) End Sub End Class A3 Public Class SyA_3 ...考试题型 一、单项选择题(每题 1 分,共 35 分) 二、判断题(每题 1 分,共 15 分;正确的打√,错误的打。) 三、填空题(每空 1 分,共 10 分) 四...VB教材习题_参考答案 vbvb隐藏&& Visual Basic 程序设计教程 (李杰主编 清华大学出版社 2011.2) 习题答案 习题 2 参考答案 2.2 单选题 1、B 6、B 2、C ...VB教材习题参考答案_其它_高等教育_教育专区。清华大学出版社 《 Visual basic程序设计》 白康生 等 编著教材习题的参考答案 第1章 选择题 1C 2 A 3A 4C 5 ...VB复习题及参考答案_IT认证_资格考试/认证_教育专区。VB试题 复习题及参考答案 一、选择题 (1) 使“Microsoft”在当前窗口上输出的语句是( B )。 A)Picture...VB 课后习题解答第一、二章: 1、 简述 VB6.0的主要特点 答:方便、直观的可视化设计工具;面向对象程序设计方法;事件驱动的编程机制;易学易用的应用程 序集成开发...
All rights reserved Powered by
copyright &copyright 。文档资料库内容来自网络，如有侵犯请联系客服。