VisualBasic程序设计教程自学指导书

1、Visual Basic程序设计教程自学指导书作业及答案：一 、选择题 1为了使文本框显示滚动条，必须首先设置的属性是（    ）   AAutoSize       BAlignment       CMultiline         DScrollBars 2改变控件在窗体中的上下位置应修改控

2、件的（    ）属性。   ATop     BLeft     CWidth         DHeight 3 在form1 窗体启动时，为使form1.text1文本框首先获得焦点，可以在窗体的form1_Load事件过程中加入（     ）语句。   

3、Atext1.Index=0           Btext1.TabIndex=0   Ctext1.Appearance        Dtext1.tag=0  4将命令按纽Command1设置为不可见，应修改该命令按纽的（    ）属性。 AVisible     

4、60; BValue       CCaption        DEnabled 5摇改变Label控件中文字的颜色，可以设置Label控件的（     ）属性。 AFontColor       BFillColor       CForeCol

5、or       DBackColor 6执行后将会删除文本框Text1中选中的文本的语句是（      ）。 AText1.Text=”              BText1.SelText=”    CText1.Clear=     

6、;         DText1. SelText.Clear= 7以下控件中没有Caption属性的是（     ）。 A标签框      B文本框       C框架      D命令按纽 8复选框对象是否被选中，是由其（   

7、; ）属性决定的。 AChecked      BValue       CEnabled     DSelected 9要使ListBox可以单击或按空格键来实现复选，则属性MultSelect的值应设为（    ）   A1         B2 

8、;         C3 10以下不允许用户在程序运行时输入文字的控件是（     ）。 A文本框      B下拉式组合框      C简单组合框      D下拉式列表框 11不能通过（    ）来删除列表框中的选择项。 AList属性

9、                   BRemoveItem方法    CClear方法                  DText属性 12组合框的3中不同风格：下拉组合框、简单组合框和

10、下拉列表框由（    ）属性决定。 AStyle      BBoderStyle          CFillStyle       DDrawStyle 13单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（    ）事件。 AScroll   

11、0; BKeyDown           CChange        DDragOver 14要将定时器控件的宽度设置增大一些，以下叙述正确的是（     ）。 A设置定时器的Width属性          B设置定时器的Left属性 

12、;  C设置定时器的Height属性         D无法对定时器的宽度进行设置 15设计动画时通常使用时钟控件（     ）来控制动画速度。 AEnabled       BInterval         CTimer     

13、60;  DMove 16可以使用SetFocus方法的控件是（     ） AFrame        BLabel           CForm         DTimer 17不能响应Click事件的控件是（  

14、0; ） A列表框       B图片框          C窗体         D计时器 18定时器的Interval属性以（    ）为单位指定Timer事件之间的时间间隔。 A分        

15、0;  B秒              C毫秒         D微秒二、问答题 二、填空题  1函数过程（Function  Pocedure）用来完成特定的功能并_。 2子过程是_的函数。又常被称为Sub过程。在事件过程或其它子过程中可以_调用过程。 3在事件过程或其它过程中可以_调用函数过程。 4函数过程_返回一

16、个值。 5VB的代码存储在模块中。在VB中提供了三种类型的模块：_ 、_和_。 6菜单控件只包一个事件_，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 7使用菜单编辑器创建弹出菜单时，_为不可见，“Visible属性设置为False。 8Sub过程与Function过程最根本的区别是_。 9通用过程可以通过执行“工具”菜单中的_命令来建立。 10使用Public Const语句声明一个全局的符号常量时，该语句应放在_ 。  三、问答题  1什么是多文挡界面？（MDI） 2什么是文件？ 3文件管理系

17、统有什么作用？ 4文件系统有哪些控件？ 5磁盘驱动器列表发生变动后，如何通知目录列表？ 6目录列表发生变动后，如何通知文件列表？ 7文件按照其数据存放的方式，分为几种类型？ 8如何打开顺序文件？ 9如何关闭顺序文件？ 10如何向磁盘中读写数据？ 11讨论一下PathName属性。 12顺序文件、随机文件和二进制文件各有什么特点和用途？13什么是工程？ 14什么是过程？ 15选中一个窗体，启动菜单编辑器的方法有哪三种？ 16什么是动态菜单？ 17已知弹出菜单的名是aa，填补弹出菜单的代码。 18现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“

18、aa”，Visible没有选中，填补弹出菜单的代码。 四、编程题 1编写程序，计算1+2+3+4+100。 2我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 3给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 4税务部门征收所得税，规定如下： （1）收入在200元以内，免征； （2）收入在200400内，超过200元的部分纳税3%； （3）收入超过400元的部分，纳税4%； （4）当收入达到5000元或超过时，将4%税金改为5%。 编程序实现上述操

19、作。 5编写程序，打印如下所示的“数字金字塔”：                                          1 1    &#

20、160;     2  1                                   1  2   3  &#

21、160;2   1                               1   2  3   4   3   2 

22、;  1                 1  2  3  4  5  6  7  8  9   8  7  6  5  4  3

23、  2  1 6从键盘上输入两个正整数M和N，求最大公因子。 7从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语： 成绩       80100       6079       5059       4049 

24、      039 评语     Very good       Good        Fair         Poor        Fail 一

25、0;、选择题 1C    2A    3B    4A    5C     6B   7B     8B    91 10D   11D   12A   13C 

26、0; 14D   15B   16C    17D  18C 一、填空题 1 返回相应的结果    2 没有返回值     按名称    3 按名称    4 以该函数名 5窗体模块    标准模块  

27、;  类模块    6Click    7顶级菜单项目 8Sub过程的过程名不能返回值，而Function过程能通过过程名返回值    9添加过程 10标准模块的通用声明段 1什么是多文挡界面？（MDI）    解答：多文挡界面（Mu1tiple Document Interface）是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。 2什么是文件？ &#

28、160; 解答：所谓文件是指存放在外部存储介质上的数据和程序等。 3文件管理系统有什么作用？   解答：为了方便用户存取，在现代的计算机系统中，都包含有文件管理系统。用户可以对文件进行各种各样的处理和操作，如选择、打开和删除等。 4文件系统有哪些控件？   解答：在VB6.0中包括四个文件类控件，它们分别是DriveListSox控件、DirListBox控件、FileListBox控件和CommDialog控件。 5磁盘驱动器列表发生变动后，如何通知目录列表？   解答： Private Sub Dri

29、ve1_Change（） Dir1.Path = Drive1.Drive   设置DirListBox控件的路径与DriveListBox控件同步。 End Sub 6目录列表发生变动后，如何通知文件列表？   解答： Private Sub Dir1_Change（）       File1.Path = Dir1.Path End Sub 7文件按照其数据存放的方式，分为几种类型？  

30、60;解答：按照文件的存取方式及其组成结构可以分为两种类型：顺序文件和随机文件。 8如何打开顺序文件？   解答：打开顺序文件的语法结构如下： Open pathname For mode Access  access  lock As # filenumber Len = reclength Open语句的语法参数及其说明如下所示：     参数    &

31、#160;                                    说明   Pathname        指定文件路径和文

32、件名   Mode           指定文件方式，有Append，Binary，Input,Output或Random方式。   Access          说明打开的文件可以进行的操作，有Read，Write或Read Write操作   Lock     &

33、#160;      说明其它进程能够对打开的文件进行的操作，有Shared，Lock Read，Lock                                   &#

34、160;       Write和Lock Read Write操作。   Filenumber      一个有效的文件号，范围在1到511之间   Reclength       小于或等于32 767（字节）的一个数，对于用随机访问方式打开的文件，       &

35、#160;        该值就是记录长度，对于顺序文件，该值就是缓冲字符数。 9如何关闭顺序文件？   解答：Close < 文件号1 > ，< 文件号2 >  10如何向磁盘中读写数据？   解答：从顺序文件中读取数据的语法结构如下：   Input  # filenumber,varlist   Input&

36、#160; # 语句的语法参数及其说明如下：   Filenumber      有效的文件号   Varlist          用逗号分界的变量表，将文件中读出的值分配给这些变量。   向顺序文件中写入数据的语法结构如下：   Write # filenumber ，output1ist  &

37、#160;Write # 语句的语法具有以下几个部分，它的参数及说明如下：   Filenumber    一个有效的文件号   Outputlist     要写入文件的表达式，用逗号将这些表达式分界。 11讨论一下PathName属性。   解答：pathname为所要执行的应用程序的名称及其路径和必要的参数。 12顺序文件、随机文件和二进制文件各有什么特点和用途？   解答：所谓顺序文件，通常指的是普

38、通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，Chr（14）”，换行符“GR，LF”，“Chr（13）”，“Chr（10）”等。   由于这类文件的信息是按照顺序从头到尾按顺序排列，而且只提供第一条记录的存储位置，所以对其中的数据信息进行处理是相当困难的。   随机文件由记录组成，能够随机存取其相同长度的数据记录，每一数据记录内可以设计各种栏位以容纳不同的数据。此种文件数据是以二进制的位的形式保存在磁盘上。随机文件比顺序文件占用内存多。 二进制文件的数据是以二进制格式保存的,能用来存储任何数据。这种文件的灵活性最大，但程序的工作量大。二进制

39、访问能够提供对文件的完全控制，因为文件中的字节可以代表任何东西。13什么是工程？ 解答：工程是构成应用程序文件的集合。工程文件是与工程相关联的所有文件和对象以及所设置的环境信息的一个简单的列表，所有文件和对象也可以被其它的工程所共享。 14什么是过程？ 解答：一个应用程序是由若干个模块组成的，而每个模块又是由若干个更小的代码片段组成，将组成这些模块的代码片段称为过程。通过过程，可以将整个程序按功能进行分块，每个过程用来完成一项特定的功能。 15选中一个窗体，启动菜单编辑器的方法有哪三种？ 解答：（1）使用菜单“工具”/（菜单编辑器） （2）使用工具栏按钮工具栏快捷键；（3）键盘快捷键CTRL+

40、E 16什么是动态菜单？ 解答：动态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在运行时使菜单可以增长。 17已知弹出菜单的名是aa，填补弹出菜单的代码。 解答：Private Sub Form_MouseDown（Button As Integer,Shift As Integer，X As Single，Y As Single） 在窗体上按下鼠标。 If Btton = 2 Then  &

41、#160;   如果是右键。 PopupMenu aa      弹出菜单。 End If End Sub 18现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“aa”，Visible没有选中，填补弹出菜单的代码。 解答：Private Sub Form_MouseDown（Button As Integer,Shift As Integer，X As&#

42、160;Single，Y As Single） 在窗体上按下鼠标。 If Btton = 2 Then      如果是右键。 PopupMenu aa      弹出菜单。 End If End Sub 四、程序题1编写程序，计算1+2+3+4+100。 解答：使用For循环语句，程序如下： Private Sub Form_Click( )  

43、  Static Sum As Integer    For I =1 To 100         Sum = Sum + I        Next I        Print Sum 

44、0;    End Sub 程序运行后，单击窗体，输出结果为：5050。 如果使用当循环语句，则程序如下：     Private Sub Form_Click( )         Static Sum As Integer         I=1    &

45、#160;    While i<=100            Sum=Sum+I            I=I+1         Wend         P

46、rint Sum     End Sub   2我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 解答：程序如下： Private Sub Form_Click( )     Dim p As Double     Dim r As Single     Dim n As

47、 Integer     P=1200000000     r=0.01     While p<1600000000       P = P + P* r       N = N + 1     Wen

48、d     P = Int(P)       Print N;年后，全国人口为：；P     End Sub     运行程序，单击窗体，输出结果为：     29年后，全国人口为：1601404641。 3给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要

49、求重新输入。当输入-1时结束程序。 解答：从几何学可知，三角形的 两边之和大于第三边。因此，如果输入的三角形的三条边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。 程序如下： Private Sub Form_Click( )   Dim a,b,c,s,t As Single Start:     A = InputBox (请输入A边的边长) &

50、#160;   A = Val (a)     If a =-1 Then End     B = InputBox (请输入B边的边长)         B = Val (b)         C&

51、#160;=InputBox(请输入C边的边长)         C = Val (c)         If a + b < = c Or b + c < = a Or c + a < = 

52、b Then             MsgBox 所输入的值不能构成三角形，请重新输入             GoTo Start         End If       &

53、#160; S =( a + b + c ) / 2         T = Spr (s * ( s  a )* ( s  b ) * ( s  c ) )     &

54、#160;   Print 三角形的面积为：； T End Sub 程序运行后，单击窗体，先后显示三个输入对话框，在三个对话框中分别输入三角形的三条边长，程序先判断输入的边长是否能构成三角形，然后决定之后的操作，用信息框显示信息或者输出三角形的面积。当输入1，2，3时，将显示信息框，要求重新输入；如果输入8，7，6，则输出结果为： 三角形的面积为：20.33316 4税务部门征收所得税，规定如下： （1）收入在200元以内，免征； （2）收入在200400内，超过200元的部分纳税3%； （3）收入超过400元的部分，纳税4%； （4

55、）当收入达到5000元或超过时，将4%税金改为5%。 编程序实现上述操作。 解答：程序如下： Private Sub Form_Click ( ) R = InputBox (请输入您的收入) R = Val ( r ) If  r < = 200 Then     tax = 0 ElseIf r > 200

56、60;And r < = 400 Then     tax = (r 200) *0.03 ElseIf r > 400 And r < 5000 Then     tax = (r  400) * 0.04 ElseIf r > =&

57、#160;5000 Then     tax = ( r  400 ) * 0.05 End If Print收入；r; 应纳税； tax End Sub 程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。 5编写程序，打印如下所示的“数字金字塔”：              &#

58、160;                           1 1          2  1          &#

59、160;                        1  2   3   2   1              &#

60、160;                1   2  3   4   3   2   1 . . .               

61、  1  2  3  4  5  6  7  8  9   8  7  6  5  4  3  2  1 解答：程序如下： Private Sub Form_Click ( )   

62、0; For I = 1 To 9         For j = 1 To 30-3 * I             Print""        Next j

63、60;      For k = 1 To I            Print k;        Next k        For k = I1 To 1 

64、;Step  1             Print k;        Next k        Print     Next I End Sub 6从键盘上输入两个正整数M和N，求最大公因子。 解答：程序如下： Private

65、0;Sub Form_Click ( )     Dim m, n As Integer     m = InputBox (请输入M的值)     m = Val (m)     m1 = m     n = InputBox(

66、请输入N的值)     n = Val ( n )     n1=  n      Do While n < > 0         remin = m Mod n     &#

67、160;   m = n                      n=remin     Loop     Print m1; "和" n1;"的最大公因子是："m End Sub 该程序通过辗转相除法求两个正整数的最大公因子。程序运行后，在输入对话框中分别输入96和64，输出结果为：96和64的最大公因子是：32 7从键盘上输入一