【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“2012-2013学年第一学期VB程序设计复习提纲 - 其他考试资料“提供大家参考，希望对大家有所帮助!

期末考试题型：单项选择题（30 小题，共 30 分）填空题（20 小题，共 20 分）编程题（4 道题，共 36 分）程序填空（2 个程序，7 个空，共 14 分）填空题1.VB 语言中，菜单分为下拉式菜单和__________________。

    2.面向对象系统的三个基本特性是封装性、______________和多态性。

    3. 设 在 窗 体 上 有 一 通 用 对 话 框 Commondialog1 ， 为 建 立 一 个 “ 打 开 ” 对 话 框 ， 应 把__________________属性设置为 1。

    4.命令按钮的_____________属性为 True 时，表示该控件有效，即能够响应用户的操作。

    5.能够释放窗体 Form1 所占用的内存空间的语句是__________________。

    6.若有定义 Dim x-2 to 4 as Integer，则函数 UBoundx的值为_______。

    7.如果要从顺序文件中读数据，则打开方式应为________________。

    8.关键字__________________用于定义变体类型数据。

    9.XOR 是逻辑__________________运算符。

    10.表示变量 x 既是 5 的倍数，也是 7 的倍数的逻辑表达式为__________________。

    11.在 VB 语言中，窗体文件的扩展名为__________________。

    12.向随机文件或二进制文件中写入数据所用的命令关键字为_____________。

    13.函数过程（或子程序过程）直接或间接地调用自身称为________________。

    14.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是滚动条控件的_________属性。

    15.设置数组下标的默认下界为 1 的语句是__________________。

    16.用关键字 sub 定义的过程称为__________________。

    17.鼠标指针置于工具箱窗口中的某一个控件图标上时， 就会在工具提示窗口上显示出相应的类型名。

    如果显示 quot picture BOX quot，该控件是__________________。

    18.文本框的默认属性是__________________。

    19.与传统的程序设计语言相比，Visual Basic 最突出的特点是______________。

    20.VB 窗体设计器的主要功能是__________________。

    21.两个操作数取值相同为“假” ，不同为“真”的运算符是______________。

    22.在程序中，要在图片框或图像框中加载图片，可用函数_____________。

    23.有一名为 menuItem 的菜单项，为了在程序运行时使该菜单项失效，应使用的语句为__________________。

    24.能够加载并显示窗体 Form1 的语句是__________________。

    25.程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是________。

    26.在 VB 中，字符串quot天津 2003Testquot需要的长度为____________。

    27.在 VB 中，声明货币类型变量所用的关键字为__________________。

    28.能够表示当整型变量 x 是奇数时为真的 VB 表达式为__________________。

    29.数学表达式 sin 45° ln3 x5 6e x 写成 VB 表达式为__________________。

    30. 从 结 构 化 程 序 设 计 角 度 看 ， 程 序 的 控 制 结 构 分 为 顺 序 结 构 、 选 择 结 构 和_____________________。

    31.鼠标指针置于工具箱窗口中的某一个控件图标上时， 就会在工具提示窗口上显示出相应的类型名。

    如果显示quotImagequot，该控件是__________________。

    32.在 VB 语言中，提前结束子程序过程的执行需要使用命令_______________。

    33.VB 程序中的对话框分为__________________、自定义对话框和通用对话框。

    34.在 VB 中，声明布尔类型变量所用的关键字为__________________。

    35.赋值语句 a123 amp mid“123456”，3，2执行后，变量 a 的值是___________。

    36.根据文件中数据存取方式的不同， 可以将数据文件分为顺序文件、 ______________和二进制文件。

    37.从结构化程序设计角度看，程序的控制结构分为______________、选择结构和循环结构。

    38.在 VB 语言中，用关键字 function 定义的过程称为__________________。

    39.在应用领域中，任何有意义的事物称为_________________。

    40.在 VB 语言中，用_________________设计菜单和菜单项。

    41.定义过程或函数时，形参之前有关键字_________________，表示按参数值传递数据。

    42.名称属性相同的同类型控件称为_________________。

    43.表示列表框中选项数目的属性为_________________。

    44.VB 程序中的对话框分为预定义对话框、自定义对话框和__________________。

     245.语句 Dim arr3， to 4 As Integer 定义的数组 arr 含有的元素个数为_________________。

    46.控件数组的下标对应控件的__________________属性。

    47.能够表示当整型变量 x 是偶数时为真的 VB 表达式为__________________。

    48.若要求文本框显示多行文本，应将文本框的___________属性设置为 True。

    49.VB 语言中，数组可分为__________________和可变大小的数组。

    50.能够提前结束 Do...Loop 结构循环的语句为__________________。

    51.VB 语言中，可用__________________方法输出数据。

    52.能够表示随机产生一个两位整数的 VB 表达式为__________________。

    53.在 VB 语言中，有两种形式的常量，分别为普通常量和__________________。

    54.按照执行方式，高级程序设计语言分为___________和编译型两种。

    55. 在 VB 窗 口 中 进 行 界 面 设 计 时 ， 若 双 击 窗 体 中 的 某 个 控 件 对 象 ， 打 开 的 窗 口 是__________________。

    56.表达式 120mid“123456789”33的值为__________________。

    57.定义全局变量需要使用关键字__________________。

    58.使用______________方法能够装载窗体，但不能显示该窗体。

    59.在 VB 中，声明双精度类型变量所用的关键字为__________________。

    60. 根 据 文 件 中 数 据 存 取 方 式 的 不 同 ， 可 以 将 数 据 文 件 分 为 顺 序 文 件 、 随 机 文 件 和__________________。

    编程题1.有一个工程文件，在窗体 Form1 上有两个文本框，名称分别为 Text1 和 Text2，内容分别为“文本框 1”和“文本框 2”，编写适当的事件过程。

    程序运行后，如果单击窗体，则 Text1 隐藏，Text2 显示，如果双击窗体，则 Text1 显示，Text2 隐藏。

    注意：不得使用任何内存变量。

    程序设计代码如下所示：Private Sub Form_Click Text1.Visible False Text2.Visible TrueEnd SubPrivate Sub Form_DblClick Text1.Visible True Text2.Visible FalseEnd Sub2.有一个工程文件， 在窗体 Form1 上有一个图像框， 其 名称为 Image1， stretch 属性值为 True、picture 属性值为 pic1.bmp；还有两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图所示。

    要求：请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加 100；单击 “缩小”按钮，则把图像框的高度、宽度均减少 100。

    要求程序中不得使用任何变量。

    程序的代码如下所示：Private Sub C1_Click Image1.Height Image1.Height 100 Image1.Width Image1.Width 100End SubPrivate Sub C2_Click Image1.Height Image1.Height - 100 Image1.Width Image1.Width - 100End Sub3.工程文件，窗体上有一个文本框，名称为 text1；一个命令按钮，名称为 Com1，标题为“确定”，还有三个单选按钮，名称分别为 op1，op2，op3，标题分别为”飞机”“火车” “汽车”。

    请编写适当的事件过程：在程序运行时，选中一个单选按钮，并单击“确定”按钮后，按照下表在文本框中显示相应的内容。

     飞机 火车 汽车 在文本框中显示的内容 选中 需要一小时 选中 需要十小时 选中 需要十五小时程序设计代码如下所示：Private Sub Com1_Click If Op1.Value Then Text1.Text quot需要一小时quot ElseIf Op2.Value Then Text1.Text quot需要十小时quot Else Text1.Text quot需要十五小时quot End IfEnd Sub4.有一个工程文件，其窗体的标题属性为： “改变文本框的前景与背景颜色” ；窗体中包含一个命令按钮（command1） ，其标题为 “设置颜色”；一个文本框（text1）。

    要求程序运行时，单击命令按钮，将文本框的的前景色设置为RGB255，0，0，背景色设置为RGB0，255，0） 。

    程序代码如下：Private Sub Command1_Click Text1.BackColor RGB0 255 0 Text1.ForeColor RGB255 0 0End Sub5.在名称为Form1的窗体上有一个文本框，名称为Text1，允许多行显示；有三个命令按钮，名 ， ，称分别为C1，C2，C3，标题分别为“输入”“转换”“存盘” 。

    请编写适当的事件过程，使得在运行时， 单击“输入”按钮，从文件夹中读入in5.txt文件 ， （文件中只有字母和空格） 放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。

    注：所有用到的文件都放在当前盘的当前文件夹下Private Sub C1_Click Dim s As String Open quotin5.txtquot For Input As 1 While Not EOF1 s s amp Input1 1 Wend Text1.Text s Close 1End SubPrivate Sub C2_Click Text1.Text UCaseText1.TextEnd SubPrivate Sub C3_Click Open quotout5.txtquot For Output As 1 Print 1 Text1.Text Close 1End Sub6.某工程文件中有一窗体，窗体上有一个命令按钮和一个文本框。

    请编写函数过程 fun用于计算 0～1000 范围内不能被 7 整除的整数的个数。

    程序运行后，单击命令按钮，即可在文本框中输出 0～1000 范围内不能被 7 整除的整数的个数。

    Private Function fun As Integer Dim i As Integer Dim count As Integer For i 0 To 1000 If i Mod 7 ltgt 0 Then count count 1 Next i fun countEnd FunctionPrivate Sub Command1_Click Text1.Text funEnd Sub7.有一工程文件的窗体上有两个命令按钮，名为Command1和Command2，标题为“添加”和“清除”；一个文本框，名为Text1，文本框编辑区为空白；一个列表框，名称为List1。

    程序运行时，在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效， “清除”按钮变有有效；若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效， “清除”按钮变为无效。

    Private Sub Command1_Click List1.AddItem Text1.Text Command1.Enabled False Command2.Enabled TrueEnd SubPrivate Sub Command2_Click Text1.Text quotquot Command1.Enabled True Command2.Enabled FalseEnd Sub8.在一工程文件的窗体上有两个文本框 。

     （名称为 Text1 和 Text2） 请编写程序实现：若在 Text1中输入大写英文字母，则在 Text2 中输出对应的小写字母；在 Text1 中输入小写英文字母，则在 Text2 中输出对应的大写字母；在 Text1 中输入空格或数字字符，则在 Text2 中照原样输出对应的字符；在 Text1 中输入其他字符，则在 Text2 中输出“” 。

    Private Sub Text1_KeyPressKeyAscii As Integer Select Case ChrKeyAscii Case quotAquot To quotZquot Text2.Text Text2.Text amp LCaseChrKeyAscii Case quotaquot To quotzquot Text2.Text Text2.Text amp UCaseChrKeyAscii Case quot0quot To quot9quotSpace1 Text2.Text Text2.Text amp ChrKeyAscii Case Else Text2.Text Text2.Text amp quotquot End SelectEnd Sub9.有一个工程文件，窗体上有 4 个标签，其名称属性分别为 Label1（标题属性为“欢迎进入 VB 界世” ） ） 、Label2（标题属性为“字号”、Label3（标题属性为空，用于显示滚动条的当前值）和 Label4 （标题属性为 ） 一个组合框 “颜色”； （名称为 Combo1， 含 3 个项目， 包 分别是“红色”、 ） ）“绿色”和“蓝色”；一个框架（名称为 Frame1，标题属性为“字型”，框架中有两个复选框 ）（名称分别为 Check1 和 Check2，标题分别为“粗体”和“下划线”。

    请编写适当的事件过程，完成以下功能要求：（1）改变滚动条的当前值，能够将滚动条的当前值显示在标签 3 上，并且用该值设置标签 1的文字字号；（2）在组合框中单击选中一种颜色后，用该颜色设置标签 1 的文字颜色；（3）在框架中选中或取消复选框，可以将该选择体现在标签 1 的文字上。

    如图所示Private Sub Check1_Click Label1.FontBold Not Label1.FontBoldEnd SubPrivate Sub Check2_Click Label1.FontUnderline Not Label1.FontUnderlineEnd SubPrivate Sub Combo1_Click If Combo1.Text quot红色quot Then Label1.ForeColor vbRed If Combo1.Text quot绿色quot Then Label1.ForeColor vbGreen If Combo1.Text quot蓝色quot Then Label1.ForeColor vbBlueEnd SubPrivate Sub HScroll1_Change Label1.FontSize HScroll1.Value Label3.Caption HScroll1.ValueEnd Sub10.有一工程文件，其窗体上有三个顶级菜单（名称分别为 Read、Calc、Save，标题分别为“读 、 ）入数据”“计算并输出”和“存盘”，窗体中有一个文本框（名称为 Text1，MultiLine 属性为True，ScrollBars 属性为 2）（如图所示）。

    程序运行后，如果执行“读入数据”命令，则读入datain1.txt 文件中的 100 个整数，放入一个数组中， 数组的下界为 1；如果单击“计算并输出”菜单，则把该数组中可以被 3 整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来； 如果单击“存盘”菜单，则把所求得的和存入考生文件夹下的 dataout.txt文件中。

    其中“读入数据”菜单的单击事件过程已经定义，请编写“计算并输出”和“存盘”菜单的单击事件过程Option Base 1Dim Arr100 As IntegerDim sum As IntegerPrivate Sub read_Click Open quotdatain1.txtquot For Input As 1 For i 1 To 100 Input 1 Arri Next i Close 1End SubPrivate Sub calc_Click Dim i As Integer Text1.Text quotquot sum 0 For i 1 To 100 If Arri Mod 3 0 Then Text1.Text Arri amp vbCrLf amp Text1.Text sum sum Arri End If Next i Print sumEnd SubPrivate Sub save_Click Open quotdataout.txtquot For Output As 1 Print 1 sum Close 1End Sub11.有一个工程文件，其窗体上有一个文本框，名称为 text1；两个命令按钮，名称分别为 C1 ，和 C2，标题分别为“计算”“存盘” ，如图所示。

    并有一个函数过程 isprime 可以在过程中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 true，否则返回 false。

    编写适当的事件过程。

    使得程序运行时，单击“计算”按钮，则找出大于 15000 的第一个素数，并显示在 text1 中， 单击存盘按钮，则把 text1 中的计算结果存入当前文件夹下的 out4.txt 的文件中。

    Private Function primea As Integer As Boolean Dim b As Integer For b 2 To a - 1 If a Mod b 0 Then Exit For Next b If b a Then prime True Else prime False End IfEnd FunctionPrivate Sub Command1_Click Dim x As Integer x 15001 Do While x gt 15000 If primex Then Text1.Text x Exit Do End If x x 2 LoopEnd Sub上述过程也可用For…Next循环实现编写Private Sub Command1_Click Dim x As Integer For x 15001 To 20000 Step 2 If primex Then Text1.Text x Exit For End If NextEnd SubPrivate Sub Command2_Click Open quotout4.txtquot For Output As 1 Print 1 Text1.Text Close 1End Sub12.有一工程文件，其Form1窗体上有一个命令按钮名为Command1，标题属性为“计算并输出最小值”。

    要求编程序实现：随机产生30个区间11000内的整数，存入数组a下标的下界为1中，然后计算并输出其中的最小值。

    程序运行后，单击命令按钮，在窗体上中输出最小值，形式为“最小值为 XXX” 。

    注：XXX代表11000内的任意一个数Option Base 1Private Sub Command1_Click Dim x30 As Integer Dim i As Integer min As Integer For i 1 To 30 xi IntRnd 10011 Next i min x1 For i 2 To 30 If min gt xi Then min xi Next i Print quot最小值为quot amp minEnd Sub程序填空1.有一工程文件，包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。

    Form1上按钮的标题为“结束”，Form2上按钮的标题为“显示”，Form2为启动窗体，Form1为不显示。

    要求：在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1窗体，若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。

    Form2窗体中的命令按钮的单击事件过程：Private Sub C2_Click Load Form1 Form1.Visible TrueEnd SubForm1窗体中的命令按钮的单击事件过程：Private Sub C1_Click EndEnd Sub2.有一工程文件，其窗体（名称为 Form1，KeyPreview 属性为 True）上有一个列表框（名称为List1）和一个文本框（名称为 Text1） ，如图 1 所示。

    编写窗体的 KeyDown 事件过程。

    程序运行后，如果按下键盘上的“A”键，则要求从键盘上输入要添加到列表框框中的项目（内容任意，不少于三个） ；如果按下“D”键，则从键盘上输入要删除的项目，找到后，将其从列表框中删除。

    程序的运行情况如图 2 所示。

    程序不完整，请把它补充完整。

    Private Sub Form_KeyDownKeyCode As Integer，Shift As Integer If ChrKeyCode quotAquot Then Text1.Text InputBoxquot请输入要添加的项目quot List1.AddItem Text1.Text End If If ChrKeyCode quotDquot Then Text1.Text InputBoxquot请输入要删除的项目quot For i 0 To List1.ListCount-1 If List1.Listi Text1.Text Then List1.RemoveItem i End If Next i End IfEnd Sub3.在窗体上有一个命令按钮（名称为 Command1，标题为“计算并输出” ）和两个文本框（名称分别为 Text1 和 Text2），如图所示。

    程序运行后，单击命令按钮，即可计算出数组 Arr 中正数之和 pos 和负数之和 neg，并分别在两个文本框中显示出来。

    该程序不完整，请把它补充完整。

     Option Base 1 Private Sub Command1_Click Dim Arr Arr Array43， 68， -25， 65， -78， 12， -79， 43， -94， 72 pos 0 neg 0 For k 1 To 10 If Arrkgt0 Then pos posarrk Else neg negarrk End If Next k Text1.Text quot正数之和为：quot amp Strpos Text2.Text quot负数之和为：quot amp Strneg End Sub4.在窗体上有两个命令按钮， 其名称分别为 Command1、 Command2；一个标签，其名称为 Label1；一个计时器，其名称为 Timer1，如图 1 所示。

    程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续” ，同时标签中的字体每隔 100 毫秒增大 0.1 倍（即为原来的1.1 倍），字体大小超过 100 后，自动缩小为 8；如果单击“停止”命令按钮，则该按钮变为禁用， “继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。

     这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。

     Private Sub Form_Load Command1.Caption quot开始quot Command2.Caption quot停止quot Timer1.Interval 100 Timer1.Enabled False Label1.Caption quot国quot Label1.AutoSize .