资源描述：
《vb程序设计阶段性作业41_免费下载》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、中国地质大学(武汉)远程与继续教育学院VB程序设计课程作业4（共4次作业）学习层次：专升本涉及章节：第10章——第12章一、判断题1．在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。2．当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。3．用Cls方法能清除窗体或图片框中用Picture属性设置的图形。4．影像框和图片框一样，也可以作为其他控件的容器。5．BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。6．目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。7．若某文件已存在，用OUT
2、PUT方式打开该文件，等同于用APPEND方式打开该文件。8．可以用AddItem方法向目录列表框中加入新表项。9．文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。10．文件以INPUT模式打开后可以往文件中写入数据。11．用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。二、选择题1．用户可以通过设置菜单项的属性值为False来使该菜单项失效。A、HideB、VisibleC、EnabledD、Checked2．菜单编辑器中，同层次的设置为相同，才可以设置索引值。A、CaptionB、NameC、IndexD、ShortCut3
3、．将图片框的属性设置成True时，可使图片框根据图片调整大小。A、PictureB、AutoSizeC、StretchD、AutoRedraw4．属性可以用来设置所绘线条宽度。A、DrawStyleB、BorderStyleC、DrawWidthD、FillColor5．语句“Circle(1000,1000),800,,,,2”绘制的是。A、弧B、椭圆C、扇形D、同心圆6．BorderStyle属性是用来表示线条的。A、长度B、宽度C、线形D、颜色7．下列方法或函数可以调用外部的可执行文件。A、ShowB、ShellC、InputD、Open8．执行语句“Write#1,234
4、;-34.56,"hello";Date”后，相应文件内被写入。A、234,-34.56,hello,2001-08-03B、"234","-34.56","hello","2001-08-03"C、234,-34.56,"hello",#2001-08-03#D、234-34.56hello2001-08-039．下面选项能表示目录列表框控件dir1的当前目录。A、dir1.list(list1.listindex)B、dir1.list(-1)C、dir1.list(list1.listcount)D、dir1.list(0)10．方式打开的文件只能读不能写。A、append
5、B、randomC、outputD、input11．语句“open"c:dat.txt"foroutput”用于打开一个顺序文件，该语句的一个重要错误是没有。A、指定打开方式B、指定文件号C、指定文件名D、指定打开类型三、填空题1．如果工具箱中还没有CommonDialog控件，则应从菜单中选定，并将控件添加到工具箱中。2．在设计菜单时，可在VisualBasic主窗口的菜单栏中选择，单击后从它的下拉菜单中选择“菜单编辑器”菜单项。3．在图片框中加一幅图片（从磁盘装入）可用函数来实现。4．若控件Picture1中要显示C:盘Windows目录下的Cloud.bmp图片，则它的方
6、法是。5．画椭圆的方法中，半径以后的参数依次是、、、。6．文件的当前读写位置是否到达文件末尾，应用函数。7．读文件的语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。四、程序阅读题程序1.写出程序运行时单击窗体后的结果。PrivateSubForm_Click()DimiAsIntegerFori=1To1000CallCircledemoNextiEndSubSubCircledemo()DimRadiusAsSingle,XPosAsSingle,YPosAsSingleR=255*Rnd:G=255*Rnd:B=255*RndXPos=ScaleWidth*Rnd
7、:YPos=ScaleHeight*RndRadius=((YPos*0.9)+1)*Rnd/10Circle(XPos,YPos),Radius,RGB(R,G,B)EndSub程序2.写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。PrivateSubForm_Click()Dima(1to6)AsInteger,kAsInteger,iAsInteger,jAsIntegerOpen"c:a1.dat"ForOutputAs#1Fori=1To6:j=
