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

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

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

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

4、确20、 当定时器控件的Interval属性值设置为0时，会连续不断地激发 Timer事件。軟参考答案：错误单选题：（共30道试题，每题1分）1、要在窗体的标题内显示“myfrmM,使用的语句是（）F 耳 A. Forml.Print"myfrm"B.For m.Prin t"myfrm"C. Form.caption="myfrm"卜:耳 D. Forml.caption="myfrm"参考答案：D2、无论何种控件，共同具有的属性是（MA. TextB. NameC. CaptionD. ForeColor参考答

5、案：B3、 按照变量的作用域可将变量划分为（）MA .公有、私有、系统B. 全局变量、模块级变量、过程级变量C. 动态、常数、静态D. Public、 Private、 Protected参考答案：B4、确定一个控件在窗体上位置的属性是（）MA. Width 或 HeightB. Width 和 HeightC. Top 或 LeftD. Top 和 Left语句声明的变量）属性参考答案：D5、下列关于变量的说法不正确的是（）。MA .局部变量是指那些在过程中用Dim语句或StaticB. 局部变量的作用域仅限于声明它的过程C. 静态局部变量是在过程中用Static语句声明的D 局部变量在声明

6、它的过程执行完毕后就被释放了参考答案：D6、要绘制多种形状的图形，需要设置Shape控件的（MA. BorderstyleB. ShapeC. FillStyleD. Style参考答案：B7、 当Win sock控件处于关闭状态时，其State属性的值是（）MA. 0B. 1C. 2D. 6参考答案：A8、目录列表框的Path属性的作用是（）MA .显示当前驱动器或指定驱动器上的路径B. 显示当前驱动器或指定驱动器上的某目录下的文件名C. 显示根目录下的文件名D 只显示当前路径下的文件参考答案：A9、下列数据对象模型中采用 OLE DB访问数据库的是（MA. DACB. ADOC. RDCD

7、 . RDC 和 ADO对象建立连接的属性是（ ）o参考答案：B10、使用ADO 数据模型时，使Recordset 和 Conn ectionXComma ndTypeB. ActiveConnection k-d C. Open卜耳 D. Execute参考答案：B11、 对于窗体，保存文件时后缀名为（）MA. .frmB. .fmC. .fmrD. .frmm参考答案：A12、以下说法错误的是（）MA. Visual Basic是一种可视化编程工具B. Visual Basic是面向对象的编程语言C. Visual Basic是结构化程序设计语言D. Visual Basic采用事件驱动编

8、程机制参考答案：C13、 相对于传统编程语言，Visual Basic 最突出的特点是（）MA 可视化编程工具B. 面向对象的程序设计C. 结构化程序设计D .事件驱动编程机制参考答案：B14、 对于窗体，下面（）属性在程序运行时其属性设置起作用MA. MaxButtonB. BorderStyleC. NameD. Left参考答案：D15、要使Print方法在Form_load 事件中起作用，要对窗体的（）属性进行设置。MA. BackColorB. ForeColorC. AutoRedrawD. Caption参考答案：C16、若要使标签控件显示时不覆盖其背景内容，要对（）属性设置。M

9、A. BackColorB. BorderstyleC. ForeColorD. BackStyle参考答案：D）属性设置。17、若要使命令按钮不可操作，要对（MA. EnabledB. VisibleC. BackColorD. Caption参考答案：A18、文本框没有（）属性。MA. EnabledB. VisibleC. BackColorD. Caption参考答案：D19、 不论何对象，都具有（）属性。MA. TextB. NameC. ForeColorD. Caption参考答案：B）属性进行设置。20、要使某控件在运行时不可显示，应对（MA. EnabledB. Visibl

10、eC. BackColorD. Caption参考答案：B21、要使窗体在运行时没有最大化按钮，只要对（M0 A. MaxButtonB. BorderStyleC. WidthD. MinButton参考答案：A22、 当运行程序时，系统自动执行启动窗体的（MA. LoadB. Click）属性设置即可。）事件过程。C. UnLoadD. MinButton参考答案：A)属性。23、改变控件在窗体中的左右位置应修改该控件的(MA. TopB. LeftC. WidthD. Right参考答案：B24、 函数Int(Rnd*100)是在()范围内的整数。MA. (0,10)B. (1,100)

11、C. 0 和(0,100 )D. (1,99)参考答案：C25、 如果X是一个正实数，对 X的第3位小数四舍五入的表达式是()。MA. 0.01*1 nt(X+0.005)B. 0.01*1 nt(100*(X+0.005)C. 0.01*1 nt(100*(X+0.05)D. 0.01*Int(X+0.05)参考答案：B26、 已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为()。MA. 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)

12、 And C>0D. A+B>C And A-B >C And C>0参考答案：B27、 下面（）是算术运算符。MA. ImpB. ModC. NotD. Like参考答案：B28、 以下不是 VB变量名命名规则的是：（）MA .变量名的第一个字符必须是字母、汉字、下划线和数字B. 变量名不包含小数点C. 组成变量名的字符数不得超过255个字符耳D .变量名在同一范围内必须是唯一的参考答案：A29、公用变量声明的语句是（Static Count As Boolea nDim Count As In teger卜:耳 C. Public Count As String *

13、 6F耳 D. Option Explicit参考答案：C30、下列哪个语句是错误的VB语句（）MA. Textl.Text =" 你好！ ”B. Textl.Text =" 你好！ ” ： Textl.BackColor = RedC. Textl.Text =" 你好！ ” ； Textl.BackColor = RedD. Option Explicit参考答案：C单选题：(共6道试题，每题5分)1、的值分别为（）阅读程序，程序运行时单击窗体后，在窗体中显示c.Private Sub Form_Click()Dim c As Integer, j As In

14、teger, k As Integerk = 0c = 1Forj = 1 To 6If j > 4 Thenc = c + 5Exit ForElsek = k + 1End IfNext jPrint c, kEnd Sub参考答案：D2、阅读程序，程序运行时在文本框Textl中显示值为()Private Sub Comma nd1_Click()Dim s As DoubleDim i As In tegers = 5i = 1Do While i < 9i = i + 2s = s + iLoop参考答案：D3、阅读程序，写出程序运行时单击窗体后，窗体Forml上的结果为(

15、)Private Sub Form_Click()Dim A(1 To 4) As StringDim c As In tegerDim j As In tegerA(1) = "2"A(2) = "4"A(3) = "6"参考答案：B4、阅读程序，写出程序运行时，单击Command1 后，文本框 Textl、 Text2和Text3的输出结果为()Private Sub Comma nd1_Click()Dim n As Integer, y As Integer, x As Integera = 1Do While a <

16、20n = n + 1b = a + ba = a * (a + 1)LoopTextl.Text = nText2.Text = aText3.Text = bEnd SubO A. 3, 42 , 9B. 3, 40 , 10C. 4, 42 , 9D. 3, 42 , 8 参考答案：A5、阅读程序，写出程序运行时，单击Command1 后，文本框Textl、 Text2的输出结果为()Private Sub Comma nd1_Click()Dim A(1 To 5) As In tegerDim x As In tegerFor i = 1 To 5A(i) = iNext ii = 1Do While x < 3A(i) = A(i) * xx = x + 2i = i + 1LoopTextl.Tex