VB程序设计复习总结题(归类).docx.pdf

《VB程序设计复习总结题(归类).docx.pdf》由会员分享，可在线阅读，更多相关《VB程序设计复习总结题(归类).docx.pdf（25页珍藏版）》请在三一文库上搜索。

1、VB 程序设计综合复习资料 一、填空题： (?第一章Visual Basic程序设计概述 ) 1、 Visual Basic是一种面向对象的可视化程序设计语言，采取了事件驱动的编程机制。 2、 在 VB 中工程文件的扩展名是Vbp ,窗体文件的扩展名是frm 标准模块文件的扩展名是bas _。 3、 执行“工程”菜单下的部件命令，可选择并添加ActiveX 控件。 4、 Visual Basic 6.0用于开发 WINDOWS 环境下的应用程序。 第二章简单的 VB 程序设计 1、设置是否可以用T4b 键来选取命令按钮，应该用_ Tabstop 属性。 2、 一个控件在窗体的位置由Left _

2、 和_ top _ 属性决定，其大小由 height _和_ width 属性决定。 3、 利用对彖的属性 setfocus可获得焦点，对于一个对象，只有其visible 属性和 _ enabled 属性为 true,才能接受焦点 4、 设置控件背景颜色的属性名称是bdckcolor 。 5、 所有控件都具有的共同属性是name 属性。 6、 一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和 caption。 7、 VB 中的每个对象 ( 控件) 都有一组特征，这组特征称为属性我们通过修改它可以控制对象的外观和操作。 8、 通常情况下， VB 中一个工程主要包括如下四

3、个文件：窗体文件、工程文件、类模块文件和一标准模块文件文件，后者 的扩展名为 .Bas,通常由 Basic语言编写，是一个可共用的子程序。 9、 VB 有三种工作模式，分别是设计(Design)模式、运行模式和中断(Break)模式。 第三章 1、一般可以使用 Const _ 关键字声明常量。 2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 3、变量的声明分为两种方法：隐式声明和显示声明_。、 4、 在 VB 中，用 option base 语句设定数组的下界，用abound 和_lbound语句分别返回数组的上、下界。 5、 在代码

4、模块中加入Option Explicit 的口的是强制变量声明。 6、 function aa (al as date, optional a2 as boolean) as single, 写出 optional 命令的作用表示a_2 是一个可选参数。 7、 在 VB 中，我们用一个简单的 _End语句就能实现退出程序。 8、 生成消息框的命令是 _Msgbox_,生成输入框的命令是Inputbox 。 9、 通用对话框 ( commondialog)属 activex 控件，它可以显示多个标准对话框，包括打开/ 另存为、字体、打印等对 话框，若要显示所有文件，则应设置其属性filter.

5、若要使它显示为打印对话框，则应使用什么方法_、showprint _ 0 10、 从字符串中任意位置截取字符的函数是Mid()_ 。 11、 语句 For j = 3 To 20 Step 3使循环体执行了6 次。 12、对于正在使用的动态数组ArrayaO ,要增加一个单元，但不能破坏数组内的数据，则应使用语句redini preserve arraya(ubound(arraya()+1)_ 。 13、 在 Visual Basic 中声明静态变量的关键字是static。 14、 表达式 10 Mod 6 4的值为 _0。 15、_ 表达式 chr (Asc(z/a z/) + 5)的值为

6、 f 。 16、_ VB 中使用注释有 2 种方法，即询 - 和。 17、 VB 中的数据以四种形式存储：常量、_变量、数组和记录。 18、 为了在 VB 中存储一个 4行 5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_1 to 4,1 to 5_) as Integer0 19、 控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区 分，我们使用属性 _ Index 来设置下标。 20、 在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和按地址 21、为了保证程序中必

7、须对变量的强制性定义，需要在代码模块的声明部分加入Option Explicit _语句。 22分析 Fot . Next循环结构的实例： For i = 5 To 30 Step 2中，循环体一共执行了 _13 _ 次。 23 表达式 Mid( ,zUniversityOfPetroleum*, 8, 4)的值为 _ ityo_。 24、 常量分为普通常量和 _符号常量。 25、 要将大写字母转换为小写字母，可使用_ LCase函数。 26、 不管焦点在哪个控件上，按ESC_键相当于按了取消按钮。 27、 执行“工程”菜单下的部件命令，可选择并添加ActiveX 控件。 28、 断点是程序中

8、 VB 停止执行的地方。 29、 逻辑常量为 True或False _ 。 30、使用了 _ Option Explicit 的声明后，当程序中使用未经声明的变量时，程序运行时会报错。 31、要将小写字母转换为大写字母，可使用UCase_ 函数。 32、 自字符串 N1 位开始向右取 N2 个字符，要使用 _ Mid_函数。 33、 口期常量表示时，用符号将口期型数据括起来。 34、 局部变量只能在过程中声明和使用。 35、 模块级变量的声明关键字是Dim 或private 。 36函数 Abs(x)的功能是求 x 的绝对值 _ o 37、表达式 3/6*5 的值是 _2. 5。 第四章 1、

9、向列表框控件添加新项目的方法是Addltem 2、 在 VB 中，最主要的两种对象是窗体和控件o 3、 当窗体启动时可通过StartUpPostion 属性控制窗体位于所有者的中心位置。 4、 若要将窗体 Fowl 隐藏起来，则可通过执行代码forml.hide 来实现。 5、 要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的sorted _ 属性为 ture 6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Textl ,则在设计时需要将 _ textl_控件的 _ tabindex _属性设置为 _0 _ 。 7、 在标签控件中通过编程使文字换行用

10、的代码是chr(10)_ _o 8、 设置计时器控件只能触发timer 事件。 9、 设置计时器对象触发事件的时间间隔用interval 属性。 10、 滚动条控件主要支持两个事件，它们是_scroll 和 change 事件。 11、 要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_ inousepointer 12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。 (1)按下命令按钮 Command 1时将列表框第 8项的内容显示在窗体上： Private Sub Commandl_Click() List._ selected _(7)=True Print List

11、l. _ text _ End Sub (2)单击列表框某一项时立即将该项打印在窗体上： Private Sub ListlClick() Print _ listl.text _ End Sub (3)按下命令按钮 Command 1时在窗体上删除第1、3、5、7、9 项： Private Sub Commandl_Click() For 1=1 To 5 Listl._ remove item 2*iT _ Next I End Sub (4)在列表框的每一项之后插入一个新的项： Private Sub Commandl_Click() For 1=1 to 10 X=InputBox(

12、“请输入插入的第” b;c End Sub 输出结果为： 2 452 7、 分析以下程序，写出运行结果。 Sub swap() Dim x as Integer Dim y as Integer Dim z as Integer x=l:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z End Sub 输出结果为： 120 0 2 0 8、 分析以下程序，写出运行结果。 Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a=b)and(ac

13、)Then Print a Print a,bx 输出结果为： 3 3 3 2 第四章常用控件与窗体 1、对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) ml = a(l) m2 = 1 If Key Ascii =13 Then For i =2 To 5 If a(i)nil Then ml =a(j) m2 =i End If Next i End If Print ml Print m2 End Sub 程序运行后，按回车键，输出结果

14、是什么？ 输出结果为： 498 5 2、阅读下面的程序，写出执行结果。 Private Sub Form_load() Form 1. show d = 0 For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d 结果如下 : 14 Pr i vate Sub Form_C I i ck () Dim a (10) As I nteger,五、编程题 1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能 被 400整除或者不能被

15、400除尽，也不能被100除尽，但能被 4整除，则它是闰年；否则，不是闰年。 1、参考代码如下： Pr i vate Sub Command1_CI i ck() Dim year, x As Integer year = VaI (Textl. Text) If year Mod 400 = 0 Then Labe 12. Capt i on =“是闰年 “ Else 1 下面是嵌套块 If 语句 If year Mod 4=0 And year Mod 100 两个文本框 (Textls Text2)和一个按钮 (Command 1 ) 0 m = n n = r r = m Mod n

16、Loop 循环结束后 n中存放的就是最大公约数，输岀n 值 Labe 12. Caption =“最大公约数为； “& n End If End Sub 3、输入某学生成绩 ( 百分制 ) ，若是 1002成绩 290输出优秀；若是90成绩 M80 输出良好；若是80成绩 270输 出中等； 若是 70成绩 260输出及格；若是 60成绩鼻 0,输出不及格；若是其他数则输出error信息。 3、参考代码如下： Pr i vate Sub Command1_CI i ck () Dim x As Single x = VaI(Textl. Text) If x 100 Or x 0 then T

17、ext4. Text = ”x1二” & 一c / b Else If c=0 then Text4. Text = ”有无穷根” Else Text4. Text =“无根“ End if End if Else 下面嵌套块 If 语句 If delt = 0 Then Labe I 2. Capt ion二”有两个相等的实根：” Text4. Text = 二” &-b / 2 / a Text5.Text = ”x2二” &-b / 2 / b Elself delt 0 Then Labe 12. Capt i on二”有两个不等的实根：” Text4. Text = “x1=“ &

18、(b + Sqr (de It) / (2 * a) Text5. Text = “x2=“ & (b - Sqr (de It) / (2 * a) Else Labe 12. Capt i on =“有两个共轨复根： “ reaI part 二一 b / (2 * a) imagpart = Sqr (deIt) / (2 * a) Text4, Text 二 f,x1=f, & realpart & n+n & imagpart & ,f iH Text5. Text = “x2=“ & reaI part & & imagpart & “i“ End If 此行 End If 部分与内

19、层的块If 语句对应 End If 此行 End If 部分与外层的块If 语句对应 End Sub 12、 输入一个正整数 n,计算出 n!并输出。 12、参考代码如下： Pr i vate Sub Command1_CI i ck() Dim n, i, t As Long n = VaI(Textl. Text) i = 1 : t = 1 If n 0 Then Labe 12.Caption = “error“ EIseIf n = 0 Then Labe 12.Caption = “0!=1 n Else Do While i 二 n t = t * i i = i + 1 Loo

20、p Labe 12.Caption 二 n & “！二“ & t End If End Sub 13、 Faibonacci数列为 0, 1, 1, 2, 3, 5, 8, 13 ，计算并输出第 20项以及前 20项的和。 13、参考代码如下： Private Sub Form_Load () Dim Prev, Last, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev

21、= Last Last = NewOne Next i Labe 11. Caption =“第 20 项为“& NewOne Labe 12. Caption =“前 20 项的和为” & sum End Sub 第四章常用控件与窗体 五、编程题 名称为 TxtTime；个计时器控件，名称为Timer 1,要求每一秒在文本框中显示一次 当前的时间，请编程实现。 1、参考代码如下： Private Sub Form_Load() Timerl.Interval = 1000 End Sub Private Sub Timerl_Timer() Txttime.text = Time End S

22、ub 2、在 Textl 中输入任 一英文字母，在Text?中显示该英文字母及其ASCII 码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII 码值， 如下图所示。 2、参考代码如下： Private Sub Command l_Click() Dim Char As String * 1 Char = Trim(Textl.Text) Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(lO) & Str(Asc(Char) & chr(13)&chr(10) Textl.SetFocus Textl.SelStart = 0 T

23、extl.SelLength = Len(Textl.Text) End Sub 3、编写一个程序，能够实现任意个整数的排序。 Textl Comma Text2 1、在窗体上有一个文本框控件, 4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计 算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。 5、编程实现任意两个数的“加、减、乘、除”。 6、编写一个程序，能够求任意个正整数的最大值和最小值。 7、编程求任意两个正整数的最大公约数。 六、程序分析填空题六、程序分析填空题 1、建立一个如图所示的简单编辑器。用户在文本框(t

24、extl)中 输入正文后，选中某些文本时可进行“剪切”、“复制”和 “粘贴”操作。假设在窗体声明部分定义了一个变量 strl,用 于保存复制和剪切的内容，请把剪切按钮(btnCut)的 Click 事 件补充完整。 程序运行界面： Private Sub btnCut_Click() 请补充 Strl 二 textl.selText text 1. selText =“ End Sub 2、计算 1+2 + 3 + + 100的和并输出。请把下面用Do While Loop 循环结构实现这一功能的代码补充完整。 Private Sub Form_Load() Dim sum,count as

25、Integer 请补充 Sum 二 0 Count 二 0 Do while count =100 请补充 Count 二 count + 1 Sum 二 sum + count Loop Textl.Text = sum End Sub 3、列表框控件 ( ListBox)支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的 爲简单輪辑器 制和粘贴操作。 结束 I ndl 界面中列表框 Listl 用于列出爱好选项，供用户进行多项选择。 请把下列代码补充完整，能够取得用户的所选爱好选项： Private Sub Conunand l_Click() Dim i A

26、s Integer Dim s As String s = txtname.Text & “爱好“ For i = OTo List 1.ListCount - 1 9青补充 If List 1.Selected。) Then S = s & Listl.List(i) End If Next Label3.Caption = s End Sub 4、要求利用计时器Timer!,在窗体 Form 1 每隔1秒钟打印一个 1到 10的随机整数，请把下列代码补充完整: Private Sub Form_Load() Show 请补充 Timerl.Interval 二 1000 End Sub Private Sub Timer l_Timer() 请补充 Form 1 .Print Int(Rnd*10) + 1 End Sub