北邮社visual basic程序设计案例教程教学包04检测试卷

1、VB 程序设计试题（2）B、用来指定命令按钮的功能是停止一个程序的运行 C、用来指定命令按钮的功能是关闭一个运行程序D、用来指定命令按钮的功能是中断一个程序的运行一、选择题（每题只有一个正确共 20 分。），多选均不得分。共 20 题，每小题 1 分，10、若要求从文本框中输入窗口中设置。A、Text 属性值为*C、password 属性值为空时在文本框中只显示*号，则应当在此文本框的属性1、VisualA、.forBasic 规定窗体文件的扩展名是。B、.frmC、.vbpD、.bas2、以下叙述中，错误的是。B、Caption 属性值为*D、Passwordchar 属性值为*A、一个 V

2、isual Basic 应用程序可以含有多个标准模块文件B、一个 Visual Basic 工程可以含有多个窗体文件C、标准模块文件可以属于某个指定的窗体文件 D、标准模块文件的扩展名是.bas3、有程序代码如下：Text1.Text = Visual Basic，则：Text1，Text 和Visual Basic分别代表。11、如果要求设置定时器时间间隔为 1 秒钟，那么它的erval 属性值应该等于。A、1000B、100C、10D、112、设窗体上有一个滚动条，当单击滚动条和滚动箭头之间的区域一次，滚动块移动一定的刻度值，决定此刻度值的属性是。A、对象，值，属性C、对象，属性，值B、对

3、象，方法，属性D、属性，属性，值A、MaxB、MinC、SmallChangeD、LargeChange13、下面是合法的变量名。4、以下不属于 Visual A、编译5、VB6.0 中，若要使置。A、BackColorC、ForeColorBasic 的工作模式是模式。A、VB25814、如下数组B、123abc语句，正确。C、egerD、88B、设计C、运行D、中断属性进行设控件显示时不覆盖其背景内容，要对其A、Dim a3,4C、Dim a(3,4)AsAsegeregerB、Dim(34)AsegeregerD、Dim a(n,n)AsB、BorderStyleD、BackStyle1

4、5、在以下事件过程中，Private 表示A、此过程可以被任何其它过程调用B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被任何其它过程调用D、此过程只可以被本工程中的其它过程调用6、VB6.0 中，不论任何对象，都具有A、Text属性。B、NameC、BackcolorD、Caption7、窗体上放置了三个文本框，若在 Text1 中输入 456，在 Text2 中输入 78，在程序PrivateSubEndSublblAbc_Change()中执行了语句 Text3=Text1+Text2 后，则在 Text3 中显示_。A、434B、45678C、溢出D、语法错误8、若要使

5、命令按钮不可操作，要对属性设置。16、函数(Rnd*100)是在范围内的整数。B、（1，100） D、 (1,99)。A、EnabledB、VisibleC、BackColorD、CaptionsA、（0，10） C、 0,100）17、下面关于菜单的叙述错误的是9、VisualBasic 为命令按钮提供的Cancel 属性是。A、用来指定命令按钮是否为窗体的“取消”按钮A、各级菜单中所有菜单项的名称必须唯一B、同一子菜单中菜单项的名称必须唯一，但不同子菜单中菜单项的名称可以相件。10、图像框控件也是一种容器对象。同C、弹出式菜单用 Popup方法弹出三、填空题（每空 2 分，共 20 分。）

6、D、弹出式菜单也用菜单编辑器编辑 18、下面有关数组的说法中，错误的是A、数组必须先定义后使用B、数组形参可以是定长字符串类型1、VB 中坐标系统的坐标度量可通过设置属性来改变。2 、 用 RGB 函 数 把 窗Form1.BackColor=3、在名称为 picture1 的一条线，该语句为：体的 背 景 色 设 置 为 绿 色 ， 则 该 语 句 为 ：。框里用画线方法从（100，100）到（1000，1000）画。C、Erase 语句的作用是对已定义数组的值重新初始化D、定义数组时，数组维界值可以不是整数4、检查框的属性设置为 2-grayed 时，检查框将变成灰色。19、以下关于文件的

7、叙述中，错误的是。5、从“工资”表里查询所有“相应的 Select 语句为”为“女”的职工的“。”和“应发工资”，A、使用 Append 方式打开文件时，文件指针被定位于文件尾B、当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件6、VB 允许对 3 种类型的集进行，即、C、顺序文件各的长度可以不同和。D、随机文件打开后，既可以进行读操作，也可以进行写操作20、如果 x 是一个正实数，对 x 的第 3 位小数四舍五入的表达式是7、文本文件的完整路径和名称为“D:a.txt”,要求以顺序文件的操作方式将其打。开（读出到内存），文件号设置为“#1”，该语句为：；A、0.01*C

8、、0.01*(x+0.005)(100*(x+0.05)B、0.01*D、0.01*(100*(x+0.005)(x+0.05)如果要将数据写入该文件（数据以追加方式写入），文件号设置为“#2”，则文件的打开语句为：。二、判断题（每题 1 分，共 10 分。正确的填“T”，错误的填“F”）1、属性是和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性可以在属性窗口里设置。2、在使用 ReDim 重定义动态数组时的下标可以用变量来表示。3、过程调用时，数组不能作为参数传递。4、因为 Function 过程有返回值，所以只能在表达式中调用，而不能使用 Call 语句调用它。5、定义一

9、个过程时有几个形参，则在调用该过程的时候就必须提供几个实参。四、程序阅读题（共 4 小题，每题 5 分，共 20 分。）1、在窗体上画 3 个令按钮(名称为编写如下程序：、3 个文本框(名称分别为 Text1、Text2 和 Text3)和 1 个命d1)，外观。Private Sub Form_Load() Text1.Text= Text2.Text= Text3.Text=End Sub6、在过程中用 Dim 和Sic 定义的变量都是局部变量。7、当窗体的 AutoRedraw 属性设置为 True 时，窗体的 Pa事件将不触发。8、当用户拖动滚动条滑块时，滚动条的 Change 事件将

10、连续触发。9、对于下拉式组合框，当用户改变组合框的文本框里的内容时，会触发 Change事Private SubDim x, y Asd1_Click()egerEnd Select End Sub4、如下图，窗体里有名称为 Text1 的文本框，名称为x=Val(Text1.Text) y=Val(Text2.Text)Text3.Text=f(x，y) End SubFunction f(ByVal x As Do While y0tmp=x Mod y x=yy=tmp Loop f=xEnd Functiond1令按钮，已经名称为 commondialog1 的通用框控件。要求程序运行

11、时点击命令按钮弹出“颜色”框，设置文本框中字体的颜色。eger,ByValy Aseger)Private Subd1_Click()End Sub运行程序，在 Text1 文本框中输入 36，在 Text2 文本框中输入 24，然后单击命令按五、编程题（共 3 小题，每题 10 分，共 30 分。）1、编程序计算：1！2！3！.x! （x 为大于 0 的整数），要求：钮，则在 Text3 文本框中显示的内容是2、在菜单编辑器中建立 1 个名称为。123 的菜单项，将其“可见”属性设置为（1）程序运行时，单击窗体，弹出输入入x 的值；框（用 inputbox()函数实现），输False，并建立

12、其若干子菜单，然后编写如下过程：（2）计算 1！2！3！.x!并将结果输出到窗体上。Private Sub Form_MouseDown(Button AsAs Single)eger,Shift Aseger,X As Single,Y2、使用MouseUp、MouseDown 和 MouseMove 事件，编写一个在窗体上用鼠标绘图的简单程序。当鼠标位于窗体上，按住鼠标按钮，在移动时才绘图，而在按钮时停止绘图。程序运行界面：End If End Sub请把程序补充完整，要求在窗体上单击右键，弹出已经隐藏的菜单123。3、在窗体上画 1 个文本框，其名称为 Text1，要求在文本框里限定只能输入数字，只能响应回车键，其中数字字符 0 对应的 KeyAscii 码为 48，请补充完整下面程序。Private Sub Text1_KeyPress(KeyAscii AsSelect Case KeyAsciieger)3、设计一个霓虹灯程序，设计界面如下图所示。要