2022年新编VisualBasic程序设计教程答案.docx

《2022年新编VisualBasic程序设计教程答案.docx》由会员分享，可在线阅读，更多相关《2022年新编VisualBasic程序设计教程答案.docx（80页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选学习资料 - - - - - - - - - 新编 Visual Basic程序设计教程习题解答陈斌著南京师范高校生命科学学院20XX 年 8 月名师归纳总结 - - - - - - -第 1 页,共 43 页精选学习资料 - - - - - - - - - 第一章 Visual Basic 概述1 VB 是用于开发 _环境下应用程序的工具；（B）A. DOS B. Windows C. DOS 和 Windows D. UNIX 2 VB6.0 是_位操作系统下的应用程序开发工具；（A）A. 32 B. 16 C. 32 或 16 D. 64 3 一个对象可执行的动作与可被一个对象所识别

2、的动作分别称为 _（B）A. 大事、方法 B.方法、大事 C.属性、方法 D. 过程、大事4 有一个红色、 布满氢气的气球,假如人不当心松开手抓的引线,请问,对于气球对象,哪些是属性、哪些是大事、哪些是方法？就会飞走； 假如用针刺它,就会爆破；答： 属性是红色、氢气；大事是松开、针刺；方法是飞走、爆破；5 简述大事驱动过程程序的设计原理？答： 使用 VB 不仅可以特别便利地设计出Windows 应用程序的窗口界面,设置界面中各种对象的属性,而且可以通过编写程序代码段,为对象规定在被某个“ 大事 ” 激活时应发生的各种动作以及所要进行的信息处理的详细内容,这样的代码段称为 就构成一个完整的应用程

3、序；6 VB 的集成开发环境都有哪些元素些组成？“ 过程 ” ；为各个对象编写的过程集合在一起,答： VB 的集成开发环境由标题条、菜单条、弹出式菜单（上下文菜单）、工具栏、控件工具箱、初始 窗体、工程资源治理器子窗口、属性子窗口、窗体布局子窗口、代码编辑器窗口、立刻、本地和 监视窗口等；7 简述用 VB 开发应用程序的一般步骤？答： VB 开发应用程序的一般步骤是：创建程序的用户界面；设置界面上各个对象的属性；编 写对象响应大事的程序代码；储存工程；测试和调试应用程序,检查并排除程序中的错误；创建可执行程序；名师归纳总结 - - - - - - -第 2 页,共 43 页精选学习资料 - -

4、 - - - - - - - 其次章 程序设计与算法（问题求解）1.设 X 与 Y 是同一类型的变量,试设计一个算法,把 答： S1：输入 X 与 Y S2：X = A S3：Y = X S4：A = Y S5：输出 X 与 Y 程序代码如下：Option Explicit Dim A As String, B As String, temp As String Private Sub Command1_Click A = Text1.Text B = Text2.Text temp =A A =B B = temp Text1.Text = A Text2.Text = B End Sub

5、Private Sub Command2_Click Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub Command3_Click Unload Me End Sub X 与 Y 中的数据相互交换；2. 设 A、B、C 是同一类型的变量,并分别被给予不同大小的数据,设计一个算法,使得执行的结果为 ABC 答： S1：输入 A 、 B、C S2：假如 AB ,就 A 与 B 交换 S3：假如 AC ,就 A 与 C 交换 S4：假如 BC ,就 B 与 C 交换 S5：输出 A 、B、C 程序代码如下：Option Exp

6、licit Private Sub Command1_Click Dim a As Integer, b As Integer, c As Integer Dim t As Integer a = Text1.Text: b = Text2.Text: c = Text3.Text If a b Then: t = a: a = b: b = t: End If a c Then: t = a: a = c: c = t: End 名师归纳总结 - - - - - - -第 3 页,共 43 页精选学习资料 - - - - - - - - - If b c Then: t = b: b = c

7、: c = t: End Text4.Text = a Text5.Text = b Text6.Text = c End Sub Private Sub Command2_Click Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocus End Sub Private Sub Command3_Click Unload Me End Sub 3. 设计一个可以判定某数是否是素数的算法；答： S1：输入一个正整数 N S2：I=2 S3：假如 N 能被 I 整数,

8、就转 S7 S4：I=I+1 S5：假如 I 小于等于 N-1 就转 S3 S6：输出 N 是素数,程序终止 S7：输出 N 不是素数,程序终止 程序代码如下：Option Explicit Dim x As Long Private Sub Command1_Click Dim i As Integer For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i = x Then Text2.Text = 是素数 Else Text2.Text = 不是素数 End If End Sub Private Sub Command2_C

9、lick Unload Me End Sub 名师归纳总结 - - - - - - -第 4 页,共 43 页精选学习资料 - - - - - - - - - Private Sub Text1_Change x = ValText1.Text End Sub 4. 设计一个判定某正整数是一个回文数的算法；所谓回文数是指左右数字完全对称的自然数；答 ：S1：输入一个数字字符串 S S2：I=1 S3：假如第 I 个数字与倒数第I 个数字不同,就转S7 S4：I=I+1 S5：假如 I 小于等于字符串长度的一半,就返回 S3 S6：输出 S 是回文数,程序终止 S7：输出 S 不是回文数,程序终

10、止；程序代码如下：Option Explicit Private Sub Command1_Click Dim x As String, i As Integer x = Text1.Text For i = 1 To Lenx / 2 If Midx, i, 1 Midx, Lenx - i + 1, 1 Then Exit For Next i If i Lenx / 2 Then Label1.Caption = 是回文数 Else Label1.Caption = 不是回文数 End If End Sub Private Sub Command2_Click Label1.Captio

11、n = Text1.Text = End Sub Private Sub Command3_Click Unload Me End Sub 5. 设计一个算法,求出给定的自然数的全部因子；答： S1：输入一个正整数 N S2：I=1 S3：假如 N 能被 I 整数,就输出 I S4：I=I+1 S5：假如 I 小于等于 N 就转 S3 S6：程序终止 程序代码如下：Option Explicit Private Sub Form_Click Dim x As Long, i As Long, j As Long 名师归纳总结 - - - - - - -第 5 页,共 43 页精选学习资料 -

12、- - - - - - - - x = InputBox 请输入一个自然数： Print x & 的全部因子如下： For i = 1 To x If x Mod i = 0 Then Print i; j = j + 1 If j Mod 10 = 0 Then Print End If Next i Print Print 共有 ; j; 个； End Sub 名师归纳总结 - - - - - - -第 6 页,共 43 页精选学习资料 - - - - - - - - - 第三章 常用控件与界面设计1 窗体的属性主要可分为几类？Caption 属性和 Name 属性有何不同？答： 窗体的属

13、性主要可分为：杂项、外观、行为、字体、位置等五类；Caption：窗体标题,是显现在窗体标题栏上的文本内容；Name：窗体名称,在程序代码中被作为对象的标识名；2 以下窗体名中哪些是非法的窗体名？（A B D E ）A. aform B. 3frm C. f_1 D. frm 5 E. f_1* 3 VB 为什么要供应多种窗体边框风格？试从已学习过的各种Windows 应用程序的窗口中举例说明？答： VB 中供应了六种窗体的边框风格,如设定值为 1 和 3,它表示 Windows 应用程序中的对话框,其大小不行转变；设定值为 2 表示 Windows 应用程序中的窗口,其大小可以转变；4 在桌

14、面上存在多个窗口时,转变窗口的工作状态会引发何种大事？转变窗口大小呢？答： 转变窗口的工作状态会引发激活大事和失去激活大事；转变窗口大小会引发 Resize 大事；5 略 6 有程序代码如下：Form2.Caption=”Help ”,试问： Form2、Caption 和 Help 分别代表 _ _ （C）A. 对象、值、属性 B.值、属性、对象C.对象、属性、值 D.属性、对象、值7 VB 的常用控件中,哪些控件具有 Caption 属性,而没有 Text 属性？哪些控件具有 Text 属性,却没有Caption 属性？答： 具有 Caption 属性而没有Text 属性的控件有：标签、命

15、令按钮、复选框、选项按钮、框架；具有Text 属性而没有 Caption 属性的控件有：文本框、组合框、列表框；8 对象的属性是否只能在设计界面时在属性窗口中进行设置？属性窗口中的属性列表是否包括了一个对象的全部属性？答： 属性的设置既可以在属性窗口中进行设置,也可以在程序代码中进行设置,但有些对象的有些属性只能在属性窗口中进行设置,如文本框的多行属性,有些对象的有些属性只能在程序代码中进行设置,如列表框的列表项数目属性；属性窗口中的属性列表中不包括一个对象的全部属性,如列表框的ListIndex 属性、 ListCount 属性就不在属性列表中；9 除窗体之外,仍有哪些控件可作为其他控件的容

16、器使用？答： 仍有：框架、图片框10常用控件中具有 Value 属性的控件有哪些？它们的取值及类型有何异同？答： 常用控件中具有 Value 属性的控件有：选项按钮、复选框、滚动条：1选项按钮的取值为规律型,选中该选项按钮时,其值为 True,未选中该选项按钮时,其值为 False；2复选框的取值为数值型,选中该复选框时,其值为 1,未选中该复选框是,其值为 0,复选框变灰时,其值为 2；3滚动条的取值为数值型,其值为滚动块在滚条中的位置；11哪些控件对象可以获得焦点？某程序的界面上有多个文本框,仍有命令按钮, 假如没有特殊设置,在程序启动时,哪个控件将具有焦点？答：可以获得焦点的控件对象：平

17、滚动条、垂直滚动条）文本框、 命令按钮、 选项按钮、 复选框、 列表框、 组合框、 滚动条 （水假如没有特殊设置,在程序启动时,第一设置具有焦点的控件将具有焦点；12以下使用方法的代码中,正确选项 _ （C）A. Label1.SetFocus B. Form1.Clear C. Text1.SetFocus D. Combo1.Cls 将复选框的 Value 属性设为 2,其成效与把它的 Enabled 属性设置为 False有何异同？如把一个控件的Visible 属性设为 False,意味着什么？名师归纳总结 - - - - - - -答： 将复选框的Value 属性设为 2,表示该复选框

18、临时变灰,启动后仍旧可以对其操作,而将复选框的 Enabled 属性设置为False,表示该复选框灰化,启动后不行以对其操作,直到将Enabled 属性设置第 7 页,共 43 页精选学习资料 - - - - - - - - - 为 True,才能对其操作；如把一个控件的Visible 属性设为 False,表示该控件不行见；14如何给一个列表框或组合框控件增加列表项？已有的列表项如何删除？答：给列表框或组合框控件增加列表项,可用属性窗口中的 List 属性,或在程序代码中使用 AddItem方法；假如删除全部的列表项可用 Clear 方法,假如删除某一列表项可用 RemoveItem 方法；

19、附： 显示、清除、删除方法1. 显示方法：1窗 体 窗体名 .Print 内容例： Form1.Print 学习 Visual Basic 2文本框 文本框名 .Text=内容例： Text1.Text= 学习 Visual Basic 3标 签 标签名 .Caption= 内容例：Label1.Caption= 学习 Visual Basic 4图片框 图片框名 .Print 内容例：Picture1.Print 学习 Visual Basic 5列表框 列表框名 .AddItem 内容 , 位置号 例： List1. AddItem 学习 Visual Basic List1. AddIt

20、em 学习 Visual Basic,6 6组合框 组合框名 .AddItem 内容 , 位置号 例： Combo1. AddItem 学习 Visual Basic Combo1. AddItem 学习 Visual Basic,6 2. 清除方法1窗体窗体名 .Cls 例： Form1.Cls 2文本框 文本框名 .Text= 例： Text1.Text= 3标 签 标签名 .Caption= 例：Label1.Caption= 4图片框 图片框名 .Print 内容例：Picture1.Cls 5列表框 列表框名 . Clear 例： List1. Clear 6组合框 组合框名 . C

21、lear 例： Combo1. Clear 3. 删除方法名师归纳总结 1列表框列表框名 .RemoveItem 位置号第 8 页,共 43 页例： List1. RemoveItem List1.ListIndex 2组合框组合框名 .AddItem 内容 , 位置号 例：Combo1. RemoveItem Combo1.ListIndex - - - - - - -精选学习资料 - - - - - - - - - 第四章 数据、表达式与简洁程序设计1 假如编写的过程要被多个窗体及其对象调用,应将这些过程放在哪一类模块中？（ B）A. 窗体模块 B.标准模块 C.工程 D.类模块 2 大事

22、过程与通用过程的主要区分是什么？答：大事过程是指为窗体以及窗体上的各种对象编写的用来响应由用户或系统引发的各种大事的代码 行；通用过程是指一个应用程序中的多个窗体可以共享一些代码,或者一个窗体内不同的大事过程可 以共享的一些代码；大事过程是由用户或系统响应某个大事而执行的,通用过程是由大事过程或其他 通用过程调用而执行的；3 通用过程只能存在于标准模块中,这种说法对吗？答： 不对,通用过程既可存在于标准模块中,也可存在于窗体模块中；4 VB 有哪些数据类型？答： VB 中的数据类型有：整型、长整型、单精度、双精度、定长字符型、变长字符型、规律型、字 节型、日期型、货币型、对象型、变体型；5 字

23、符型常量与日期型常量在使用时有何区分？以下常量中哪些是字符串型常量,哪些是日期型常量？哪些什么也不是？A. “I am a student.B. “江苏南京 ”C. #02/25/1999# ”#号；字符型常量有：A、B；D. #January 1,1993# E. “02/25/199 9# F. #January 1,1993答： 字符型常量在使用时要加西文的双引号,日期型常量再使用时要加日期型常量有：C、D；什么也不是：E、F；6 以下符号中哪些是VB 合法的变量名？A. blnFrag B. _a5b C. lngNum D. Area_Triangle E. User&Input F

24、. 5Name 答： 合法的变量名有：A、C、 D 7 变量作用域包括几个等级？说明的方式有何区分？答： 变量作用域包括三个等级：过程级、窗体级、全局级；局部（过程级）：用 Dim 、Static 在过程中 定义,作用范畴：该过程,脱离该过程后无效,也就是在其它过程中无效；Static：静态变量,脱离 该过程后,变量的值不消逝,用于子过程或函数过程中；窗体（模块）级：用 Private、Dim 在通用 / 脱离该窗体后无效,也就是在其它窗体的过程中无效；声明部分定义, 作用范畴： 该窗体中全部过程,全局（公有的） ：用 Public 在通用 /声明部分定义；假如在标准模块中定义,就作用范畴为该

25、工程的所 有窗体,调用时直接使用变量名；假如在窗体模块中定义,就作用范畴为该工程的全部窗体,但本窗 体调用时直接使用变量名,该工程中其它窗体调用时,须加定义时的窗体名作为前缀；8 写出下面数学式对应的算术表达式；名师归纳总结 1bacby1a/b+c/d第 9 页,共 43 页d23xx2x+Sqrx*x+11/332y2*y/a*x+b*y*a*x-b*yaxbyax41111 m1+1/1+1/m51 2d 32xd/32*x/2- - - - - - -精选学习资料 - - - - - - - - - 6lnycos2 x Logy+cosx27|exsin3x|1zzcos3AbsEx

26、px+Sinx3/x+yxy8lnexy| tanx|yxLogExpx*y+AbsTanz-1+Cosx3/x+y-z 9 指出并改正下面数学式对应的 VB 算术表达式中的错语；a b1 a b A+B/A-B A+B/A-Babc2 d 1 y ABC/D+1*Y A*B*C/D+1*Y3 xy 5 XY5 X*Y510将下面的条件用 VB 的规律表达式表示；1 X+Y 小于 10 且 X-Y 要大于 0 2 X、 Y 都是正整数或都是负整数3 A、 B 之一为零但不得同时为零4 C1+C2+C3 大于等于 255 或 C1 与 C2 分别大于 90 且 C3 大于 80 答： 1X+Y0

27、 2X*Y0 And X=IntX And Y=IntY 3A*B=0 And AB 或 A=0 Xor B=0 4C1+C2+C3=255 Or C190 And C290 And C380 11求以下表达式的运算结果：Mid “Visual Basic”,1,12=Right“Programming Language Visual Basic True”,12“ABCRG”=“abcde ” FalseInt134.69=Cint134.69 False78.9/32.77-4.98 FalseStr32.345=Cstr32.345 False12以下语句代码哪些可正常执行（正常执行是指

28、系统不给出出错提示）？A. Print 32765+3 溢出B. Print 5+7=14 FalseC. Print 256/128 2 D. Print “14”+ 32 46E. Print “14”& 32 “1432 ”答： 能正常执行的语句有：B、C、 D、 E,详细执行结果见上；13在文本框 Text1 与 Text2 中分别输入 35 与 48,变量 S 与 X 分别为字符型与整型,试问以下赋值语句的执行结果是什么？名师归纳总结 1S=T ext1.Text + Text2.Text “3548 ”第 10 页,共 43 页2X=Text1.Text + Text2.Text

29、3548 3S=T ext1.Text & Text2.Text “3548 ”4X=Text1.Text & Text2.Text 3548 5S=ValText1.Text + Text2.Text “83”- - - - - - -精选学习资料 - - - - - - - - - 6X=ValText1.Text + Text2.Text 83 7S=ValText1.Text & Text2.Text “3548 ”8X=ValText1.Text & Text2.Text 3548 14 VB 只有求自然对象的函数 LogX ,假如运算式中需要使用常用对数或以 2 为底的对数, 应如

30、何处理？答： 使用换底公式；常用对数：Lnx 应用 Logx/Log10 表示； Log 2x 应用 Logx/Log2 表示；15执行语句代码Print Format7543.568, “#,#0.00,以下答案中那一个是正确的结果；（C）A. 7543.57 B. 7,543.56 C. 7,543.57 D. 7543.56 16依据下图填空：z = InputBox 输入一个数： , 程序示例 , 1.5 18. 写出显示如下图所示信息框的 MsgBox 函数；MsgBoxZ 的值 & Strz & 大于 0 , 48 , 程序示例 名师归纳总结 - - - - - - -第 11 页

31、,共 43 页精选学习资料 - - - - - - - - - 第五章 挑选分支与循环1 阅读程序,写出执行结果；1Private Sub Form_Click Dim a As Integer, b As Integer a = 1: b = 0 Do While a = 20 Then Exit For Next i Print i, p End Sub 运行结果为：6 5 4Private Sub Form_Click Dim p As Integer, i As Integer, n As Integer p = 2: n = 20 For i = 1 To n Step p p =

32、p + 2 n = n - 3 i = i + 1 If p = 10 Then Exit For Next i Print i, p, n End Sub 名师归纳总结 - - - - - - -第 12 页,共 43 页精选学习资料 - - - - - - - - - 运行结果为：11 10 8 10.编写程序, 随机生成 100 个两位整数, 并统计出其中小于等于40、大于 40 且小于等于70 及大于 70 的数据个数；Option Explicit Option Base 1 Private Sub Command1_Click Dim a100 As Integer, i As I

33、nteger, m As Integer, n As Integer, k As Integer Picture1.Print 生成 100 个两位随机整数 For i = 1 To 100 ai = IntRnd * 90 + 10 Picture1.Print ai; If i Mod 10 = 0 Then Picture1.Print Next i m = 0: n = 0: k = 0 For i = 1 To 100 If ai 40 And ai = 70 Then n = n + 1 Else k = k + 1 End If Next i Picture1.Print 统计情

34、形： Picture1.Print 小于等于 40 的数有 ; m Picture1.Print 小于等于 70 的数有 ; n Picture1.Print 大于 70 的数有 ; k End Sub Private Sub Command2_Click Picture1.Cls End Sub Private Sub Command3_Click Unload Me End Sub 11. 随机生成 20 个 100 以内的正整数,将其中的奇数和偶数分两行显示在窗体上；Option Explicit Option Base 1 Private Sub Command1_Click Dim

35、a20 As Integer, i As Integer ,m As String, n As String Picture1.Print 生成 20 个 100 以内的正整 数 For i = 1 To 20 ai = IntRnd * 100 + 1 Picture1.Print ai; 名师归纳总结 - - - - - - -第 13 页,共 43 页精选学习资料 - - - - - - - - - If i Mod 10 = 0 Then Picture1.Print Next i For i = 1 To 20 If ai Mod 2 0 Then m = m + Strai Els

36、e n = n + Strai End If Next i Picture1.Print 奇数行 Picture1.Print m Picture1.Print 偶数行 Picture1.Print n End Sub Private Sub Command2_Click Picture1.Cls End Sub Private Sub Command3_Click Unload Me End Sub 12. 编写程序求出100 以内的全部勾股数,所谓勾股数是指满意条件a 2+b2=c2a b的自然数无参考界面 Option Explicit Private Sub Form_Click Di

37、m a As Integer, b As Integer, c As Integer ,j As Long For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a b Then If a * a + b * b = c * c Then Print a; *; a; +; Print b; *; b; =; Print c; *; c; ; j = j + 1 If j Mod 2 = 0 Then Print End If End If Next c Next b Next a End Sub 名师归纳总结 13. 设计一个用二分法求方

38、程x3-x4+4x2-1=0 在区间 0, 1上的一个实根；第 14 页,共 43 页- - - - - - -精选学习资料 - - - - - - - - - Option Explicit Private Sub Command1_Click Dim a As Single, b As Single ,c As Single, fa As Single ,fb As Single, fc As Single Do a = 0: b = 1 fa = a 3 - a 4 + 4 * a 2 1 1 fb = b 3 - b 4 + 4 * b 2 If fa * fb = 0 Then a = c: fa = fc Else b = c: fb = fc End If Loop Until Absa-b 0.0000001 And fc1E-7 Text1.Text = x= & Formatc, #0.0000000 Exit Do Else Text1.Text = 方程在此区间无解！Exit Do End If Loop End Sub Private Sub Command2_Click Unload Me End Sub 名师归纳总结 - - - - - - -第 15 页,共 43 页精选学习资料 - - - - - - - - - 第六章数组1. 随机生成