电大VB程序设计形成性考核3答案第一篇：电大VB程序设计形成性考核3答案判断题：（共20题每题2分）1、事件过程是由用户或系统事件触发的,所以在程序中不能调用事件过程。
参考答案：错误2、某数组声明为字符型数组，它们的初始值为False。
参考答案：错误3、标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。
参考答案：错误4、窗体的Move方法不光可以移动窗体，而且可以改变窗体的大小，同时也会改变窗体的有关属性。
参考答案：错误5、窗体的Enabeled属性为False时，窗体上的按钮、文本框等控件就不会对用户的操作作出反应。
参考答案：正确6、使用Dim语句声明了一个变量以后，还可以使用Redim语句把此变量重新声明为其他的类型。
参考答案：正确7、一个使用Static语句声明的过程级静态变量，能在该过程的多次调用之间保持它的值，并且其他的过程也可以使用这个变量的值。
参考答案：错误8、同一个过程中不能声明同名的变量；在过程中不能声明与同一模块的模块级变量同名的静态过程级变量。
参考答案：正确9、一个变量在刚被声明尚未被赋值之间没有值。
参考答案：错误10、可以声明过程级自定义数据类型。
参考答案：正确11、因为应用程序级和模块级范围不同，所以可以在同一个窗体模块中声明同名的应用程序级变量和模块级变量。
参考答案：正确12、If与End if必须成对的使用，有一个if就有一个End if 与之对应。
参考答案：正确13、在For循环的循环语句块中，可以使用Next关键字提前结束循环。
参考答案：正确14、声明一个过程时有几个形参，则在调用该过程时就必须提供几个实参。
参考答案：错误15、因为Function过程有返回值，所以只能用在表达式中，不能使用Call语句调用。
参考答案：正确16、文本框只能显示单行文本，要显示多行文本应该使用列表框控件。
参考答案：错误17、标签控件所显示的文本只能在设计时设置，在运行时不能改变。
参考答案：错误18、当定时器控件的Interval属性值为0时，会连续不断的发送Timer事件。
参考答案：错误19、滚动条控件也可作为用户输入数据的一种方式。
参考答案：正确20、当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。
参考答案：错误单选题：（共30道试题，每题1分）1、要在窗体的标题内显示“myfrm”,使用的语句是（）A．Form1.Print“myfrm” B．Form.Print“myfrm” C．Form.caption=“myfrm” D．Form1.caption=“myfrm”参考答案：D2、无论何种控件，共同具有的属性是（）A．T ext B．Name C．Caption D．ForeColor参考答案：B3、按照变量的作用域可将变量划分为（A．公有、私有、系统B．全局变量、模块级变量、过程级变量 C．动态、常数、静态D．Public、Private、Protected参考答案：B4、确定一个控件在窗体上位置的属性是（A．Width或Height B．Width和Height））C．T op或Left D．Top和Left参考答案：D5、下列关于变量的说法不正确的是（）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量B．局部变量的作用域仅限于声明它的过程C．静态局部变量是在过程中用Static语句声明的D．局部变量在声明它的过程执行完毕后就被释放了参考答案：D6、要绘制多种形状的图形，需要设置Shape控件的（）属性A．Borderstyle B．Shape C．FillStyle D．Style参考答案：B7、当Winsock控件处于关闭状态时，其State属性的值是（）A．0 B．1 C．2 D．6参考答案：A8、目录列表框的Path属性的作用是（）A．显示当前驱动器或指定驱动器上的路径B．显示当前驱动器或指定驱动器上的某目录下的文件名C．显示根目录下的文件名D．只显示当前路径下的文件参考答案：A9、下列数据对象模型中采用OLE DB访问数据库的是（）。
A．DAC B．ADO C．RDC D．RDC和ADO参考答案：B10、使用ADO数据模型时，使Recordset和Connection对象建立连接的属性是（A．CommandType B．ActiveConnection C．Open D．Execute参考答案：B11、对于窗体，保存文件时后缀名为（）A．.frm B．.fm C．.fmr D．.frmm）。
参考答案：A12、以下说法错误的是（）A．Visual Basic是一种可视化编程工具B．Visual Basic是面向对象的编程语言C．Visual Basic是结构化程序设计语言D．Visual Basic采用事件驱动编程机制参考答案：C13、相对于传统编程语言，Visual Basic最突出的特点是（A．可视化编程工具B．面向对象的程序设计C．结构化程序设计D．事件驱动编程机制参考答案：B）14、对于窗体，下面（）属性在程序运行时其属性设置起作用A．MaxButton B．BorderStyle C．Name D．Left参考答案：D15、要使Print方法在Form_load事件中起作用，要对窗体的（）属性进行设置。
A．BackColor B．ForeColor C．AutoRedraw D．Caption参考答案：C16、若要使标签控件显示时不覆盖其背景内容，要对（）属性设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 参考答案：D17、若要使命令按钮不可操作，要对（A．Enabled B．Visible C．BackColor D．Caption 参考答案：A18、文本框没有（）属性。
A．Enabled B．Visible C．BackColor D．Caption）属性设置。
参考答案：D19、不论何对象，都具有（）属性。
A．T ext B．Name C．ForeColor D．Caption参考答案：B 20、要使某控件在运行时不可显示，应对（）属性进行设置。
A．Enabled B．Visible C．BackColor D．Caption参考答案：B21、要使窗体在运行时没有最大化按钮，只要对（）属性设置即可。
A．MaxButton B．BorderStyle C．Width D．MinButton参考答案：A22、当运行程序时，系统自动执行启动窗体的（A．Load B．Click C．UnLoad D．MinButton参考答案：A23、改变控件在窗体中的左右位置应修改该控件的（A．Top B．Left C．Width D．Right）属性。
）事件过程。
参考答案：B24、函数Int(Rnd*100)是在（）范围内的整数。
A．(0,10)B．(1,100)C．0和(0,100)D．(1,99)参考答案：C25、如果X是一个正实数，对X的第3位小数四舍五入的表达式是（）。
A．0.01*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)参考答案：B26、已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为（。
）A．A>=B And B>=C And C>0 B．A+C>B And B+C>A And C>0 C．(A+B>C Or A-B<=C)And C>0 D．A+B>C And A-B >C And C>0参考答案：B27、下面（）是算术运算符。
A．Imp B．Mod C．Not D．Like参考答案：B28、以下不是VB变量名命名规则的是：（）A．变量名的第一个字符必须是字母、汉字、下划线和数字B．变量名不包含小数点C．组成变量名的字符数不得超过255个字符 D．变量名在同一范围内必须是唯一的参考答案：A29、公用变量声明的语句是（）。
A．Static Count As Boolean B．Dim Count As Integer C．Public Count As String * 6 D． Option Explicit参考答案：C 30、下列哪个语句是错误的VB语句（）A．Text1.T ext = “你好！” B．Text1.Text = “你好！” : Text1.BackColor = Red C．Text1.Text = “你好！”;T ext1.BackColor = Red D．Option Explicit参考答案：C 单选题：（共6道试题，每题5分）1、阅读程序，程序运行时单击窗体后，在窗体中显示c,k的值分别为（）Private Sub Form_Click()Dim c As Integer, j As Integer, k AsInteger A．4,4 B．6, 6 C．4，6 D．6，4k = 0 c = 1 For j = 1 To 6 If j > 4 Then c = c + 5 Exit For Else k = k + 1End If Next j Print c, k End Sub参考答案：D2、阅读程序，程序运行时在文本框T ext1中显示值为（）Private Sub Command1_Click()Dim s As Double Dim i As Integers = 5 i = 1 Do While i < 9 i = i + 2 s = s + iLoop Text1.Text = sEnd SubA．26 B．27 C．28 D．29参考答案：D3、阅读程序，写出程序运行时单击窗体后，窗体Form1上的结果为（Private Sub Form_Click()）Dim A(1 To 4)As String Dim c As Integer Dim j As Integer A(1)= “2” A(2)= “4” A(3)= “6” A(3)= “8” c = 1 For j = 1 T o 4 c = c + Val(A(j))Next j Print c End SubA．16 B．15 C．18 D．20参考答案：B4、阅读程序，写出程序运行时，单击Command1后，文本框Text1、出结果为（）Private Sub Command1_Click()Dim n As Integer, y As Integer, x As Integer和 Text3的输 Text2 a = 1 Do While a < 20 n = n + 1 b = a + b a = a *(a + 1)Loop Text1.Text = n Text2.Text = a Text3.Text = b End SubA．3，42，9 B．3，40，10 C．4，42，9 D．3，42，8参考答案：A5、阅读程序，写出程序运行时，单击Command1后，文本框Text1、（）Private Sub Command1_Click()Dim A(1 To 5)As Integer Dim x As Integer For i = 1 To 5 的输出结果为 Text2 A(i)= i Next i i = 1 Do While x < 3 A(i)= A(i)* x x = x + 2 i = i + 1 Loop Text1.Text = A(1)Text2.Text = A(2)End SubA．0，4 B．4，10 C．4，0 D．4，2参考答案：A6、阅读程序，写出程序运行时，单击窗体后，Form1上的输出结果为（Private Sub Form_Click()Dim i As Integer, k As Integer k = 0）For i = 1 To 4 If i > 2 Thenk = k + 5 A．5，4 B．5，14 C．4，5 D．5，10 参考答案：B Else k = k + 2 End If Next i Print i, k End Sub第二篇：2016年电大形成性考核VB试题及答案课案一、单项选择题（共 20 道试题，共 80 分。