电大VB程序设计形成性考核答案

1、判断题：（共20 题 每题 2 分）1、事件过程是由用户或系统事件触发的, 所以在程序中不能调用事件过程。参考答案：错误2、某数组声明为字符型数组，它们的初始值为False 。参考答案：错误3、标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。参考答案：错误4、窗体的Move方法不光可以移动窗体，而且可以改变窗体的大小，同时也会改变窗体的有关属性。参考答案：错误5、窗体的Enabeled 属性为 False 时，窗体上的按钮、文本框等控件就不会对用户的操作作出反应。参考答案：正确6、使用 Dim 语句声明了一个变量以后，还可以使用Redim 语句把此变量重新声明为其他的类型。参考答案：

2、正确7、一个使用Static语句声明的过程级静态变量，能在该过程的多次调用之间保持它的值，并且其他的过程也可以使用这个变量的值。参考答案：错误1/218、同一个过程中不能声明同名的变量；在过程中不能声明与同一模块的模块级变量同名的静态过程级变量。参考答案：正确9、一个变量在刚被声明尚未被赋值之间没有值。参考答案：错误10、可以声明过程级自定义数据类型。参考答案：正确11、因为应用程序级和模块级范围不同，所以可以在同一个窗体模块中声明同名的应用程序级变量和模块级变量。参考答案：正确12、 If与 End if必须成对的使用，有一个if就有一个 End if与之对应。参考答案：正确13、在 For

3、 循环的循环语句块中，可以使用Next 关键字提前结束循环。参考答案：正确14、声明一个过程时有几个形参，则在调用该过程时就必须提供几个实参。参考答案：错误15、因为 Function过程有返回值，所以只能用在表达式中，不能使用Call 语句调用。参考答案：正确16、文本框只能显示单行文本，要显示多行文本应该使用列表框控件。2/21参考答案：错误17、标签控件所显示的文本只能在设计时设置，在运行时不能改变。参考答案：错误18、当定时器控件的Interval属性值为0 时，会连续不断的发送Timer 事件。参考答案：错误19、滚动条控件也可作为用户输入数据的一种方式。参考答案：正确20、当定时器

4、控件的Interval属性值设置为0 时，会连续不断地激发Timer 事件。参考答案：错误单选题：（共30 道试卷，每题1 分）1、要在窗体的标题内显示“myfrm” , 使用的语句是（）A Form1.Print"myfrm"B Form.Print"myfrm"C Form.caption="myfrm"D Form1.caption="myfrm"参考答案： D3/212、无论何种控件，共同具有的属性是（）A TextB NameC CaptionD ForeColor参考答案： B3、按照变量的作用域可将变

5、量划分为（）A 公有、私有、系统B 全局变量、模块级变量、过程级变量C 动态、常数、静态D Public 、 Private、 Protected参考答案： B4、确定一个控件在窗体上位置的属性是（）A Width 或 HeightB Width 和 Height4/21C Top 或 LeftD Top 和 Left参考答案： D5、下列关于变量的说法不正确的是（）。A 局部变量是指那些在过程中用Dim 语句或 Static语句声明的变量B 局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的D 局部变量在声明它的过程执行完毕后就被释放了参考答案： D6、要绘制

6、多种形状的图形，需要设置Shape 控件的（）属性A BorderstyleB ShapeC FillStyleD Style5/21参考答案： B7、当 Winsock 控件处于关闭状态时，其State 属性的值是（）A 0B 1C 2D 6参考答案： A8、目录列表框的Path 属性的作用是（）A 显示当前驱动器或指定驱动器上的路径B 显示当前驱动器或指定驱动器上的某目录下的文件名C 显示根目录下的文件名D 只显示当前路径下的文件参考答案： A9、下列数据对象模型中采用OLE DB访问数据库的是（）。A DAC6/21B ADOC RDCD RDC和 ADO参考答案： B10、使用 ADO

7、数据模型时，使Recordset 和 Connection对象建立连接的属性是（）。A CommandTypeB ActiveConnectionC OpenD Execute参考答案： B11、对于窗体，保存文件时后缀名为（）A .frmB .fmC .fmrD .frmm7/21参考答案： A12、以下说法错误的是（）A Visual Basic是一种可视化编程工具B Visual Basic是面向对象的编程语言C Visual Basic是结构化程序设计语言D Visual Basic采用事件驱动编程机制参考答案： C13、相对于传统编程语言，Visual Basic最突出的特点是（）A

8、 可视化编程工具B 面向对象的程序设计C 结构化程序设计D 事件驱动编程机制参考答案： B8/2114、对于窗体，下面（）属性在程序运行时其属性设置起作用A MaxButtonB BorderStyleC NameD Left参考答案： D15、要使 Print方法在 Form_load 事件中起作用，要对窗体的（）属性进行设置。A BackColorB ForeColorC AutoRedrawD Caption参考答案： C16、若要使标签控件显示时不覆盖其背景内容，要对（）属性设置。A BackColorB BorderStyle9/21C ForeColorD BackStyle参考答

9、案： D17、若要使命令按钮不可操作，要对（）属性设置。A EnabledB VisibleC BackColorD Caption参考答案： A18、文本框没有（）属性。A EnabledB VisibleC BackColorD Caption10/21参考答案： D19、不论何对象，都具有（）属性。A TextB NameC ForeColorD Caption参考答案： B20、要使某控件在运行时不可显示，应对（）属性进行设置。A EnabledB VisibleC BackColorD Caption参考答案： B21、要使窗体在运行时没有最大化按钮，只要对（）属性设置即可。A Ma

10、xButton11/21B BorderStyleC WidthD MinButton参考答案： A22、当运行程序时，系统自动执行启动窗体的（）事件过程。A LoadB ClickC UnLoadD MinButton参考答案： A23、改变控件在窗体中的左右位置应修改该控件的（）属性。A TopB LeftC WidthD Right12/21参考答案： B24、函数 Int(Rnd*100)是在（）范围内的整数。A (0,10)B (1,100)C 0 和 (0,100 )D (1,99)参考答案： C25、如果 X 是一个正实数，对X的第 3 位小数四舍五入的表达式是（）。A 0.01

11、*Int(X+0.005)B 0.01*Int(100*(X+0.005)C 0.01*Int(100*(X+0.05)D 0.01*Int(X+0.05)参考答案： B13/2126、已知变量A、 B、 C 中 C 最小，则判断A、 B、C 可否构成三角形的逻辑表达式为（）。A A>=B And B>=C And C>0B A+C>B And B+C>A And C>0C (A+B>C Or A-B<=C) And C>0D A+B>C And A-B >C And C>0参考答案： B27、下面（）是算术运算符。A I

12、mpB ModC NotD Like参考答案： B28、以下不是VB 变量名命名规则的是：（）A 变量名的第一个字符必须是字母、汉字、下划线和数字14/21B 变量名不包含小数点C组成变量名的字符数不得超过255 个字符D变量名在同一范围内必须是唯一的参考答案： A29、公用变量声明的语句是（）。A Static Count As BooleanB Dim Count As IntegerC Public Count As String * 6DOption Explicit参考答案： C30、下列哪个语句是错误的VB语句（）A Text1.Text = "你好！ "B T

13、ext1.Text = "你好！ " : Text1.BackColor = RedC Text1.Text = "你好！ " 。 Text1.BackColor = RedD Option Explicit15/21参考答案： C单选题：（共6 道试卷，每题5 分）1、阅读程序，程序运行时单击窗体后，在窗体中显示c,k 的值分别为（）Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6If j > 4 Thenc =

14、 c + 5Exit ForElsek = k + 1End IfNext jPrint c, kEnd SubA 4,4B 6, 6 C4，616/21D 6，4参考答案： D2、阅读程序，程序运行时在文本框Text1 中显示值为（）Private Sub Command1_Click()Dim s As DoubleDim i As Integers = 5i = 1Do While i < 9i = i + 2s = s + iLoopText1.Text = sEnd SubA 26B27 C 28 D2917/21参考答案： D3、阅读程序，写出程序运行时单击窗体后，窗体For

15、m1 上的结果为（）Private Sub Form_Click()Dim A(1 To 4) As StringDim c As IntegerDim j As IntegerA(1) = "2"A(2) = "4"A(3) = "6"A(3) = "8"c = 1For j = 1 To 4c = c + Val(A(j)Next jPrint cEnd SubA 16B 15C 18D 20参考答案： B4、 阅读程序，写出程序运行时，单击Command1后，文本框Text1 、 Text2和 Text3的输

16、出结果为（）18/21Private Sub Command1_Click()Dim n As Integer, y As Integer, x As Integera = 1Do While a < 20n = n + 1b = a + ba = a * (a + 1)LoopText1.Text = nText2.Text = aText3.Text = bEnd SubA 3，42，9B 3， 40， 10 C 4， 42， 9D 3，42，8参考答案： A5、 阅读程序，写出程序运行时，单击Command1后，文本框Text1 、 Text2的输出结果为（）Private Sub Command1_Click()Dim A(1 To 5) As Integer19/21Dim x As IntegerFor i = 1 To 5A(i) = iNext ii = 1Do While x < 3A(i) = A(i) * xx = x + 2i = i + 1LoopText1.Text = A(1)Text