2014年4月份考试可视化程序设计(VB)第三次作业

2014年4月份考试可视化程序设计（VB）第三次作业一、填空题（本大题共40分，共10小题，每小题4分）1.若在标准模块中以关键字public定义子过程，则在______中都可以调用该过程。2.计时器每经过一个由Interval属性指定的时间间隔就会触发一次______事件。3.VB中三种文件访问类型是______、______、______4.不论任何控件，共同具有的是______属性。5.假定有一个通用对话框控件CommonDialogl，除了用CommonDialogl．Action＝3显示颜色对话框之外，还可以用______方法显示。6.每一个过程都有一个使用范围，过程的使用范围称为______。7.按数据的组织方式不同，数据库可以分为3种类型，即______数据库、______数据库和______数据库。8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的______属性设为False，然后在程序中用______语句加载。9.随机文件以______为单位读写，二进制文件以______为单位读写。10.当单选按钮的Value属性为______时表示该单选按钮处于未选中状态。二、程序阅读题（本大题共30分，共5小题，每小题6分）1.下面程序的功能是什么？PrivateSubCommand1_Click()Dima%,s%,n%a=Val(InputBox("Pleaseinputanumber:"))DoWhile(a>0)s=aMod10a=a/10n=n+func(s)LoopPrintnEndSubPrivateFunctionfunc(x%)AsIntegerfunc=x*xEndFunction2.下面程序的功能是什么？PrivateSubCommand1_Click()Dims%,n%DimaAsStringn=0a=InputBox("Pleaseinputanumber:")Fors=1ToLen(a)If(func(Val(Mid(a,s,1))))Thenn=n+1NextPrintnEndSubPrivateFunctionfunc(x%)AsBooleanIf(xMod2=0)Thenfunc=TrueElsefunc=FalseEndIfEndFunction3.写出下列事件过程的执行结果。PrivateSubCommand1_Click()Dims%s=f(5)Print"s=";sEndSubPrivateFunctionf(ByValnAsInteger)Ifn=1Thenf=1Elsef=n+f(n-1)EndIfEndFunction4.完成一个时钟定时的程序，要求按下Command1按钮后开始计时，每半个小时调用一次PrintTime()子过程，在窗体上打印当前的日期和时间。要求每空只能写一个执行语句，不允许用“:”将多个语句写在一起。PrivateSubCommand1_Click()____1___________2_______EndSubPrivateSubTimer1_Timer()StaticnAsInteger_____3_____If(n=60)ThenCallPrintTime_____4____EndIfEndSubPrivateSubPrintTime()Form1.FontSize=30Form1.ForeColor=RGB(0,255,0)Form1.BackColor=RGB(0,0,0)Print____5_____EndSub5.写出下列事件过程的执行结果。PublicxAsIntegerPrivateSubCommand1_Click()x=10PrintxCalls1PrintxCalls2PrintxEndSubPrivateSubs1()x=x+20PrintxEndSubPrivateSubs2()DimxAsIntegerx=x+20PrintxEndSub三、问答题（本大题共30分，共5小题，每小题6分）1.在VisualBasic中可使用哪些格式的图形文件？2.解释一下keycode参数的用法？3.菜单名与菜单项有什么区别？4.如何在目录列表框表示当前选定的目录?5.如何解决大数相乘产生“溢出”问题？答案：一、填空题（40分，共10题，每小题4分）1.参考答案：整个应用程序2.参考答案：Timer3.参考答案：顺序、随机、二进制4.参考答案：Name（名称）5.参考答案：CommonDialogl．ShowColor6.参考答案：过程的作用域7.参考答案：层次、网状、关系8.参考答案：Visible，Load9.参考答案：记录；字节10.参考答案：False二、程序阅读题（30分，共5题，每小题6分）1.参考答案：求一个数各位上的数的平方和。2.参考答案：判断一个数各位上的偶数个数3.参考答案：s=154.参考答案：Timer1.Interval=30000Timer1.Enabled=Truen=n+1n=0Time(),Date()5.参考答案：执行结果为：1030302030三、问答题（30分，共5题，每小题6分）1.参考答案：VisualBasic可处理图形文件主要有bmp、ico、wmf、jpg、gif和cur。2.参考答案：Keycode参数表示按下的物理键。上档键字符和下档键字符也是使用同一键，它们的Keycode值相同。keycode参数通过ASCII值或键代码常数来识别键。字母键的键代码与此字母的大写字符的ASCII值相同。3.参考答案：菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。4.参考答案：在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Dirl．Pah的值做相应的改变。而当单击选定该目录项时，Dirl．Path的值并没有改变。为了对选定的目录项进行有关的操作，即与ListBox控件中某列表项的选定相对应，则表示如下：Dirl．List（Dirl．Listlndex）5.参考答案：例如：在以下程序代码中，当n的值为较大如1000时，则运行如下程序段会产生“溢出”问题：Dimn％Pi=2For