1、试卷编号：8787所属语言：Visual Basic试卷方案：2011 年 VB 考前练习 1试卷总分：132 分共有题型：6 种一、填空 共 19 题 （共计 19 分）第 1 题 （1.0 分）用户可通过【1】模拟屏幕的小图像来布置应用程序。答案：=(答案 1)=窗体布局窗口=或=布局窗口第 2 题 （1.0 分）一个工程可以包括多种类型的文件,其中,扩展名为.frm 的文件表示【1】文件.答案：=(答案 1)=窗体第 3 题 （1.0 分）A 和 B 同为正整数或同为负整数的 VB 表达式为【1】.答案：=(答案 1)=A=INT(A) AND B=INT(B) AND A*B0第 4
2、题 （1.0 分）在 VB 6.0 中,若要将数值型数据转换成字符串,应使用的类型转换函数是【1】.答案：=(答案 1)=STR=或=CSTR第 5 题 （1.0 分）把整数 0 赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：=(答案 1)=False第 6 题 （1.0 分）表达式“12“ sEnd Sub答案：=(答案 1)=i Mod 7 = 0=(答案 2)=s = s + i=或=s=i+s第 2 题 （10.0 分）-【程序填空】-题目：在窗体上画一个标签（名称为 Label1）和一个计时器（名称为 Timer1） ，然后编写如下几个事件过程：程序运行后，单击窗体，将在标签中显
3、示当前时间，每隔 1 秒钟变换一次（见样图） 。请填空。-Private Sub Form_Load()Timer1.Enabled = False*SPACE*Timer1.Interval =【?】End SubPrivate Sub Form_Click()*SPACE*Timer1.Enabled =【?】End SubPrivate Sub Timer1_Timer()*SPACE*Label1.Caption =【?】End Sub答案：=(答案 1)=1000=(答案 2)=True=(答案 3)=Time第 3 题 （10.0 分）-【程序填空】-功能：单击窗体打印内容如图-P
4、rivate Sub Form_Click()Dim i As Integer, j As IntegerDim star As String*SPACE*【?】 = “*“ For i = 0 To 6*SPACE*For j = 【?】 To 6 *SPACE*Form1.Print star【?】 Next jForm1.PrintNext iEnd Sub答案：=(答案 1)=star=(答案 2)=6 - i=或=- i+6=(答案 3)=;第 4 题 （10.0 分）Option Explicit-【程序填空】-题目：有 12 个文本框代表 12 个位置。程序为 A-J 10 个字
5、母分配 十个位置，并显示座位分配。-Private Sub Form_Load()Dim k, h, p As IntegerDim t(12) As StringRandomize*SPACE*For k = 1 To 【?】t(k) = “Empty“Next k*SPACE*For 【?】 = 65 To 74Do While Truep = Int(1 + 12 * Rnd)*SPACE*If t(p) = 【?】 Thent(p) = Chr(h)Exit DoEnd IfLoopNext hFor k = 1 To 12Text1(k - 1).Text = t(k)Next kE
6、nd Sub答案：=(答案 1)=12=(答案 2)=h=(答案 3)=Chr(h)五、程序设计 共 2 题 （共计 20 分）第 1 题 （10.0 分）-【程序设计】-题目：(事件)单击窗体。 (响应)求 10!的值，并将结果输出到窗体上。 将结果存入变量 SUM 中。要求：用 for 语句实现。-答案：-Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum-第 2 题 （10.0 分）-【程序设计】-题目：(事件)双击窗体。 (响应)求 1+5+10+15+500 的和，并将结果输 出到窗体上。将结果存入变量 S
7、UM 中。要求：用 for 语句实现。-注意：请在指定的事件内编写代码。-答案：-Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 Thensum = sum + iEnd IfNextPrint sum-六、VB 窗体设计 共 1 题 （共计 10 分）第 1 题 （10.0 分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -1、在窗体内添加 4 个文本框(Text1，Text2，Text3，Text4)，4 个标签(Label1，Label2，Label3，Label4)，2 个按钮(Command1，Comm
8、and2)。2、窗体设置：设置窗体名称(Name)为“Form12” 。设置窗体标题(Caption)为“VB” 。3、标签设置：设置第 1 个标签(Label1)的标题(Caption)为“姓名” 。设置第 2 个标签(Label2)的标题(Caption)为“课程 1”。设置第 3 个标签(Label3)的标题(Caption)为“课程 2”。设置第 4 个标签(Label4)的标题(Caption)为“平均成绩” 。4、文本框设置：设置 4 个文本框的内容(Text)都为空，并适当调整大小和位置。5、按钮设置：设置第 1 个按钮(Command1)的标题(Caption)为“计算” 。设置第 2 个按钮(Command2)的标题(Caption)为“退出” 。
