可视化程序设计1

1、精选文档全套试题1闭卷考试，考试时间120分钟一、选择题（40分，每题2分）1）假如一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件。D）只保存工程文件。2) 以下不属于Visual Basic系统的文件类型是A) .frm B) .bat C) .vbg D) .vbp3）为了清除窗体上的一个控件，下列正确的操作是：A）选择（单击）要清除的控件，然后按Del键B）按回车键C）按esc键D）选择（单击）要清除的控件，然后按回车键4）以下叙述中

2、错误的是A) 双击鼠标可以触发DblCLick大事B) 窗体或控件的大事的名称可以由编程人员确定C) 移动鼠标时，会触发MouseMove大事D) 控件的名称可以由编程人员设定5） 以下叙述正确的是A）VB程序中dCount 和 DCOUNT是两个不同的变量 B）VB的语句以换行符（回车）作为结束符，一行可以有多个语句，用冒号“:”分割C）在VB6.0中源程序中不再保留行号D）VB源程序中的一行可以超过255个字符，并且没有长度限制6）正确表达双精度浮点数(Double)3.14159的表达式为A）3.14159 B) 0.314159E+1 C) 3.14159# D) 3.14159!7）

3、设a=10, b=5, c=1, 执行语句Print a>b>c后，窗体上显示的是A) True B) False C) 1 D) 出错信息8）语句Print 5/4*65 Mod 2的输出结果是A) 0B)1 C) 2 D) 39) 假如要转变窗体的标题，则需要设置的属性是A) Caption B) Name C) BackColor D) BorderStyle10) 设组合框Combol中有3个项目，则以下能删除最终一项的语句是A) Combol.RemoveItem TextB) Combol.RemoveItem 2C) Combol.RemoveItem 3D) Com

4、bol.RemoveItem Combol.Listcount11）假如要在菜单中添加一个分隔线，则应将其Caption属性设置为A) = B) * C) & D) -12）在窗体上画一个名称为Command1的命令按钮，然后编写如下大事过程:Private Sub Command1_ Click()Dim a As Integer, s As Integera=8s=1 Dos=s+aa=a-1Loop While a <=0Print s; aEnd Sub程序运行后，单击命令按，则窗体上显示的内容是A) 7 9 B) 34 0C) 9 7 D) 死循环13）以下关于函数过程

5、的叙述中，正确的是：A） 假如不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系14）假设有过程Public Sub Test(ByVal A As Integer, ByVal B As Integer) C%=A+BEnd Sub则不正确的调用为A）Call Test(2, 3)B）C% = Test(2, 3)C）Test 2, 3D）Call Test(2,2+3)15)以下关于keyPress大事过程中参数KeyAscii的叙述中

6、正确的是A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符16)假如一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用hide方法只是隐蔽一个窗体，不能内存中清除该窗体D）假如工程中含有sub main 过程，则程序肯定首先执行该过程。17)名目列表框的path属性的作用是A）显示当前驱动器或指定驱动器上的某个名目下的文件名B）显示当前驱动器或指定驱动器上的名目结构C）显示根名目下的文件名D) 显示指定路

7、径下的文件18）下面不能正确按挨次访问模式打开”C:A.txt”的语句是A）open ”C:A.txt” for append as #1 为挨次访问模式B）open ”C:A.txt” for random as #1 len=128 C）执行open ”C:A.txt” for input as #1 D) open ”C:A.txt” for output as #1 19）下面关于DAO数据组件说明正取的是A）通过database属性更改数据库后，数据组件会自动更新数据B）无论在单用户和多用户环境下，简洁的调用recordcount属性都能获得精确的记录总数C）当记录指针到达最终一条记

8、录之后，EOF值为trueD) 当记录集为空时，BOF为FALSE20）关于记录操作的说明错误的A）在通过Addnew增加记录后，需要调用Update方法更新数据库B）在通过Delete删除记录后，需要调用Update方法更新数据库C）在通过Delete删除记录后，需要调用movelast或movenext方法D) 在通过Edit编辑记录后，需要调用Update方法更新数据库二、填空题（30分，每空2分）1） 结构化程序设计中把程序的结果规定为_【1】_、_【2】_、_【3】_三种基本结构。2）Visual Basic应用程序中标准模块文件的扩展名是【4】 。3) 设有如下程序段：a

9、$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为【5】 。4）为了使标签能自动调整大小以显示全部文本内容，应把标签的【6】 属性设置为True。5）VB中可以构成循环的语句包括 【7】 、 【8】 、 【9】 6）与数学表达式对应的Visual Basic表达式是【10】。7) 将C盘根名目下的图形文件moon.jpg装入图片框Picture1的语句是 【11】 。8）为了使计时器控件Timer1每隔0.5秒触发一次Timer大事，应将Timer1控件的【12】属性设置为【13】

10、。9） 设有以下函数过程Function Fun(m as integer) as integerDim k as integer ,sum as integerSum=0For k=m to 1 step 2Sum=sum +kNext kFun=sumEnd function若在程序中用语句s=fun(10)调用次函数，则s的值为【14】10） 名称为Form1的窗体上画一个文本框，其名称为Text1,在属性窗口中把该文本的Multiline属性设置为true，然后编写如下的大事过程。Private sub form_click()Open “d:testsmtext1

11、.txt” fot input as #1Do while not _【15】_Line input #1,aspect$Whole$=whole$+aspect$+chr$(13)+chr$(10)LoopText1.text=whole$Close #1三、编程（30分，每题10分）1、编程实现，将两个变量的值进行交换，例如a=5,b=4运行程序后a=4,b=5。2、编写实现，计算1-100之间全部能被3整除的数得和。3、设计一个form名称为form1，添加“打开文件”按钮cmdOpen,， “保存文件”按钮为cmdSave，文本框为txtSource。通过点击“打开文件”按钮调用通用对

12、话框commonDialog1选择一文本（扩展名dat）”c:test.dat”，将内容显示到txtSource中，然后通过点击“保存文件”按钮将此文本框的内容保存到“c:test.txt”中。要求使用open命令打开文件，在form1_load中初始化cmdOpen和cmdSave的标题属性。答案：一、选择题1.B 2.B 3.A 4.B 5.B6.C 7.B 8.B 9.A 10.B11.D 12 .C 13.D 14.B 15.A16.D 17.B 18.B 19.C 20.B二、填空题1.挨次 2.选择 3.循环 4.BAS 5.Shanghai 6.AutoSize 7.while

13、wend 8. for next 9. do while10.cos(a+b)*cos(a+b)/(3*x)+511picture1.picture=loadpicture("c:moog.jpg")12. interval 13.500 14. 30 15.EOF(1)三、编程题1、Sub swap()Dim c As Integer, a As Integer, b As Integera=inputbox(“Enter an integer a”)b=inputbox(“Enter an integerb”)print a,bc = aa = bb = cprint

14、a,b2、Sub sum()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100If I Mod 3 = 0 Then sum = sum + iEnd IfNext iPrint sumEnd Sub3、Private Sub cmdOpen_Click()txtEdit.Text = ""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1CommonDialog1.ShowOpen "c:test.dat" For Input As #1Do While Not EOF(1)Line Input #1, InputDatatxtTest.Text = txtTest.Text + InputData + v