《VisualBasic程序设计》2006年下半年期末考试(开卷)已排版.docVIP

广东广播电视大学2006年下半年期末考试(开卷) ? 《Visual Basic程序设计》试题 ? 2007年1月 一、单项选择题（每题2分，共30分） 1．RmDir语句在VB中的功能是（删除磁盘上的目录或文件夹　　）。 2．VB中将变量xl声明为Excel工作表对象的方法是（Dim xl As Excel.Worksheet　　）。 3．要利用公共对话框控件来显示“打印”对话框，需要调用控件的（ShowPrinter　　）方法。 4．要绘制不同形状的图形，需要设置Shape控件的（Shape ）属性。 5．如果准备读写二进制文件，打开文件“F.dat”的正确语句是（ Open F.dat For Binary As # 1 ）。 6．“x是偶数”，用VB表达式表示为（ x/2=Int(x/2) ）。 7．Dim x As Boolean定义变量x的数据类型为（逻辑）型。 8．要退出Do While…Loop循环，可使用的语句是（ Exit Do ）。 9．按照指定的小数位数进行四舍五入运算的函数是（ Round ）。 10．一条语句可以分多行书写，在行的末尾用续行字符表示一行尚未结束，续行字符是（一个空格加一个下划线）。 11．要在文本框（TextBox）中显示多行内容，需将文本框的（ MultiLine ）属性设置为True。 12．当用户单击窗体时，将触发窗体的（ Click ）事件。 13．与传统的程序设计语言相比，Visual Basic最突出的特点是（事件驱动编程机制）。 14．无论何种控件，共同具有的属性是（ Name属性）。 15．一个事件过程的入口语句Private Sub Form_Initialize()中，Form是对象名，而Initialize是（事件名）。 二、填空题（每空2分，共20分） 1．将下列数学式子写成Visual Basic运算表达式。 ：____ Sqr（x /（a + b））__。 2．设A=1，B=2，C=3，D=4。表达式Not B=C Or C+A = B^2 And DA+B的值为__ True __。 3．以下语句的输出结果是____5___。 Dim a As Integer a = 24/5 Print a 4．Line (10, 10)-(600, 600), vbGreen, BF可画出一个_____绿色实心_____矩形。 5．为了使PictureBox控件能够自动调整大小以显示整幅图形，需将它的____ AutoSize ___属性设置成True。。 6．用Dim X(3,20)语句声明二维数组后，数组X的元素共有____84___个。 7．设CurrentX=10，CurrentY=20，执行指令“Line (100,20) - (300,500)”后，CurrentX =____300____。 8．使用___ Show ____方法可用于显示被调用的窗体。 9．扩展名为.bas的文件是VB的____标准模块___文件。 10．Err对象含有关于____运行时错误____的信息。 三、阅读下列程序段，并写出程序段完成的功能（每小题5分，共20分） 1． Sum = 1 For x = 1 To 40 Sum = Sum * x Next 该段程序完成的功能是： 求40的阶乘，即Sum=40! 2． Private Function mzs(n) If Int(n) = n Then myn = Yes Else myn = No End If End Function 该段程序完成的功能是： 自定义一个函数mzs，用于判断一个数是否是整数，若是，返回Yes，否则返回No。 3． Dim c As String, sd As String Open E:\ks.txt For Input As #1 Do While Not EOF(1) Line Input #1, c sd = sd + c + vbCrLf Loop 该段程序完成的功能是： 读取E盘根目录下的文本文件ks.txt的内容，并存储在变量sd中。 4． Dim W(25) As Integer Randomize For i = 0 To 25 W(i) = Int(Rnd * 200 + 1) Next 该段程序完成的功能是： 随机产生26个区间 [1，200] 上的整数，并存储在数组W中。 四、编程序（每小题10分，共20分） 1．电费收费程序。 要求：在文本框Text1中输入用电量，然后单击“计算”按钮（cmd1）计算出应收电费，计算结果在标签Labe