88分Visual_Basic程序设计形考作业0002

《88分Visual_Basic程序设计形考作业0002》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1.  VB语言的特点不包括（   ）。A.面向对象的可视化编程B.事件驱动的编程机制C.结构化的程序设计D.面向过程的编程      满分：4  分2.  对于文件列表框，重新设置的（   ）属性，将引发Change事件。A.PathB.ListNameC.PatternD.ListCount      满分：4  分3.  VisualBasic是一种面向对象的程序设计语言，所采用的编程机制是（   ）。A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行      满分：4  分4.  为了清除图片框Picture1中的图形，应采取的正确方法是（

2、   ）。A.执行语句Picture1.Picture=LoadPicture("") B.选择图片框，然后按Del键C.执行语句Picture1.Picture=""D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键      满分：4  分5.  改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（   ）。A.在Dir1_Change()事件中加入代码Dir1.Path=Drive1.DriveB.在Dir1_Channge()事件中加入代码Drive1.Drive=Dir1.PathC.在Dirve1_Channge()事

3、件中加入代码Drive1.Drive=Dir1.Path D.在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive      满分：4  分6.  打开二进制文件的正确语句是（   ）。A.Open<文件名>ForBinaryAs[#]<文件>B.Put#<文件号>，[位置]，变量名C.Get#<文件号>，[位置]，变量名D.Close[[[#]<文件号>]，[[#]<文件号>]]      满分：4  分7.  把数值型转换为字符串型需要使用的函数是（     ）。A.StrB.ValC.Asc D.Chr      满分：4

4、  分8.  一旦数据到达，将首先触发Winsock控件的（　　）。A.DataArrival事件B.ConnectionRequest事件C.DataSend事件D.DataGet事件      满分：4  分9.  后缀为frm的文件表示（  ）。A.类模块文件B.窗体文件C.标准类模块文件D.窗体二进制数据文件      满分：4  分10.  在关系型数据库中，“记录”的含义是（   ）。A.数据表中每一行数据B.相关数据组成的二维表格C.数据库中数据D.数据表中的每一列数据      满分：4  分1.  EndSub是Sub过程的最后一条语句，它指出过程结

5、束并返回到调用该过程的代码段。A.错误B.正确      满分：4  分2.  VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、控件模块和类模块。A.错误B.正确      满分：4  分3.  Input＃语句在读字符型数据时，不会自动忽略数据项的前导空格。A.错误B.正确      满分：4  分4.  表达式False+12的值是数值12；表达式True+12的值是数值11。A.错误B.正确      满分：4  分5.  数学关系8≤x<30表示成正确的VB表达式为8<=xANDx<30。A.错误B.正确      满分：4  分6.  一个变

6、量在被声明之后，尚未被赋值之前，就已经有默认值了。Boolean型变量的默认值是False。A.错误B.正确      满分：4  分7.  VB变量名中允许出现空格。A.错误B.正确      满分：4  分8.  执行Do…LoopWhile语句时，不管条件真假，首先会无条件地执行一次循环。A.错误B.正确      满分：4  分9.  全局变量在整个应用程序中有效，其作用域是整个应用程序运行期间。A.错误B.正确      满分：4  分10.  用Static语句声明的变量是过程级变量。A.错误B.正确      满分：4  分1.  阅读程序写出程序运行结

7、果。  PrivateSubCommand1_Click()   Dima,cAsInteger   Fora=1To5      c=a+1      Printc        Nexta  EndSub单击窗体，变量C的结果依次为：A.2、3、4、5、6B.3、4、5、6、7C.1、2、3、4、5D.0、1、2、3、4      满分：10  分2.  阅读程序写出运行结果。Subtest(iAsInteger) i=i+1EndSub PrivateSubForm_Click() DimxAsInteger x=4 Print"x=";xCa