共有四套测验试题,请任选一套完成,其余自己练习。.doc

共有四套测验试题，请任选一套完成，其余自己练习。 2008级河海大学函授本科 Visual Basic测验试题一 ? ?一、填空题（35分） ?1、在VB中，最主要的两种对象是____________和____________ 。 ?2、对象的属性、方法使用有所不同，form1.cls是____________的使用。 ?3、启动应用程序时，装载和显示窗体，触发____________和____________事件。 ?4、将一条语句分成多行显示用____________分隔；将多条语句写在一行，语句间用____________分隔。 ?5、声明变量为模块级，则应在模块的声明段中用____________或____________来定义。?写出前者的作用范围____________、 写出后者的作用范围____________。 ?6、语句DIM TEMP AS Object的作用____________。Variant类型可以包含empty、 null、error, empty指____________、 null指____________、error指____________。 ?7、在代码模块中加入Option Explict的目的是____________。 ?8、select case index 加入一条语句，使得index不为1，2时， ?case 1:form1.caption=1 aption为other，则该语句应为 ?case 2:form1.caption=2 ____________ ?end select ?9、i=1: do while i10: i=i+1: loop ?将上述语句改为使用until实现____________ ?改为使用for循环实现____________。 ?其中在do循环中中途跳出用 ____________语句实现。 ?10、定义temp为自定义类型，其中包含id(整型)，name（定长为20的字符 串），写出相关语句 ____________。 ?11、将下列语句改为用for ...each实现。（写在原程序右侧） ?dim temp(10) as integer ?dim i as integer ?for i=0 to 10? temp(i)=i ? next ? 12、使用redim语句后，variant数组中的值置为____________ 、numeric数组中的值置为____________ string数组的值置为____________ 对象数组的值置为____________ 。 ?13、sub add(byval i as integer) ?i=i+1 ?end sub ?sub form_click() ?dim x ?add x : print x ?end sub ?写出程序运行结果____________ 。 ? 二、编程题（65分） ?1、设有通用对话框cmdialog，在点击command1时，显示“打开”对话框。 文件类型为*.*,*.txt,*.bat,默认类型为*。Bat. （10分） ?sub command1_click() ? ? End sub ?2、设窗体中有image1：蝴蝶展开翅膀图,image2：蝴蝶合上翅膀图，image3;timer1:定时器，timer1每秒触发一次，改变image3的图象，并使它每次位置x+10，y+10,当x超出屏幕宽度时，将位置中的x改为0。 ?A、写出timer1_timer中的程序设计思想 （10分） ?B、写出timer1_timer中的程序代码 （15分） ?3、在窗体的Command1_click事件中使用输入框来判断答案是否正确，且在三次错误后退出。其中正确值为99，用户输入错误后给出错误提示。 写出Command1_click中的程序代码（15分） ?4、设计文字颜色、大小、位置不断变化的程序。（位置可随机或滚屏） ?  V2008级河海大学函授本科 Visual Basic测验试题二 ? ? 一、 填空：（50） ? 1、顾名思义，visual basic 是一种____________ 程序设计，即一种开发图形用户界面。 ? 2、类是用来创建对象的样板，它包含所建对象的状态描述、方法定义，举例说明类和对象的关系（即什么是类，什么是对象）____________ 。 ? 3、strtemp=何当共剪西窗烛， _ ? 却话巴山夜雨时。该语句中续行符为哪两个字符____________ ，的作用____________ 。 ? 4、variant变量的empty值表示____________ ，error表示____________