可视化程序设计(VB)模拟题2

一、单项选择题：（每小题2分，共24分）1、在VB中，称对象的数据为（）。A、属性B、方法C、事件D、封装2、VB中，将命令按钮控件在窗体中失效（不可用）的属性语句是（）。A、defaultB、CancelC、EnabledD、Visible3、函数Len(Str(Val(“123.4”)))的值为（）。A、11B、5C、6D、84、将文本框的（）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。A、MultiLineB、ScrollBarsC、TextD、Enabled5、通过文本框的（）事件过程可以获取文本框中键入字符的ASCII码值。A、ChangeB、GotFocusC、LostFocusD、KeyPress6、运行时，要清除图片框P1中的图像，应使用语句（）。A、Picturel．Picture=“”B、P1．Picture=LoadPicture（）C、Picturel．Picture=LoadPictureD、Picturel．Picture=LoadPicture(“C：＼WINDOWS＼Clouds.bmp”)7、要清除组合框Combo1中的所有内容，可以使用（）语句。A、Combol．ClsB、Combol．ClearC、Combol．DeleteD、Combol．Remove8、Timer控件的（）属性决定该控件是否对时间的推移做响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。A、EnabledB、VisibleC、TimeD、Capable9、定时器的Interval属性以（）为单位指定Timer事件之间的时间间隔。A、分B、秒C、毫秒D、微秒10、通过设置Shape控件的（）属性可以绘制多种形状的图形。A、ShapeB、BorderstyleC、FillstyleD、Style11、当函数EOF()的返回值为真时，表示文件的指针指向（）。A、开头B、尾部C、第一个记录D、最后一个记录12、Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（）类型。A、IntegerB、VariantC、LongD、Siring重置二、填空题：（每空1分，共26分）1、VisualBasic是计算机语言。2、VB中，两个窗体（Form1和Form2）进行调用时，方法语是、。3、如使用变量X来存放数据765432.123456，应该将变量X声明为类型。4、VB中，对于没有赋值的变量为系统默认值。自动将数值类型的变量赋初值，变长的字符串被初始化为，而定长的字符串则用填充。Variant变量被初始化为。将布尔型的变量初始化为。5、VB的控件主要有三种类型分别是、、。6、一个数据库可以有表，表中的称为记录，表中的称为字段。7、随机文件以为单位读写，二进制文件以为单位读写。8、不论任何控件，共同具有的是属性。9、通用对话框提供了六种形式的对话框。在显示通用对话框前，应通过设置属性或调用方法来选择。10、自定义类型中的元素类型可以是字符串，但该字符串必须是。11、组合框是组合了和的特性而形成的一种控件。12、滚动条响应的重要事件有、。13、当运行程序时，系统自动执行启动窗体的事件过程。三、阅读程序，写出结果：（每小题6分，共30分）1、在窗体上画一个文本框，有如下事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(char))PrintString(6,KeyAscii)EndSub程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果。2、执行下面的程序，单击命令按钮Command1后在窗体上显示的图形功能。PrivateSubCommand1_Click()Picture1.PrintTab(5);*Fori=1To4Picture1.PrintTab(5-i);*;Spc(2*i-1);*NextiFori=3To1Step-1Picture1.PrintTab(5-i);*;Spc(2*i-1);*NextiPicture1.PrintTab(5);*EndSub3、有如下事件过程，写出程序的功能。PrivateSubCommand1_Click()X=100DoUntilx＞200IFXMod3=0ANDXMod7=0THENText1.Text=Text1.Text&STR(X)&CHR(13)&CHR(10)ENDIFX=X+1LoopENDSub4、有如下事件过程，写出运行结果PrivateSubCommand1_Click()s=0i=1DoWhilei=5s=s+i^2i=i+1LoopPrints=&sEndSub5、有如下事件过程，写出程序的功能。PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,XAsInteger,SAsIntegerN=0:S=0ForX=1To30ForI=2ToX-1Step1IfXModI=0ThenExitForEndIfNextIIfI=XThenN=N+1S=S+XEndIfNextXPrintN=&N&个&，S和为:&SEndSub四、程序设计：（每小题10分，共20分）1、编写程序：设计一个程序。窗体中包含两个列表框。左侧列表框中列出若干城市的名称。当双击某个城市名时，这个城市从左侧的列表框中消失，同时出现在右侧的列表框中。其中，左侧列表框中的城市名是在程序开始运行时添加到列表框中的。窗体界面如下图所示：2、编写程序：从指定的任意一个驱动器中的任何一个文件夹下查找文本文件（不含汉字），并将选定的文件的完整路径显示在文本框Textl中，文件内容显示在文本框Text2中。运行界面如下图所示：一、单项选择题（每小题2分,共24分）123456789101112ACBADBBACABB二、填空题（每空1分，共26分）1、面向对象；结构化2、Show；Hide3、双精度数Double4、零(0)；一个零长度的字符串(“”)；空格；Empty；False5、标准控件；ActiveX；可插入的对象6、一个到多个；行；列7、记录；字节8、Name（名称）9、Action；Show10、定义长度11、文本框；列表框12、Scroll；Change13、Load三、阅读程序，写出结果：（每小题6分，共30分）1、程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果为：AAAAAA。2、显示的图形为：3、1051261471681894、运行结果:555、程序的功能为：求30以内的素数个数及素数和。N=10个，S和为:129四、程序设计：（每小题10分，共20分）1、程序如下：PrivateSubForm_Load()List1.AddItem上海List1.AddItem北京List1.AddItem天津List1.AddItem广东List1.AddItem辽宁List1.AddItem陕西List1.AddItem河南List1.AddItem深圳List1.AddItem四川List1.AddItem重庆EndSubPrivateSubList1_DblClick()Fori=0To9IfList1.ListIndex=iThenList2.AddItemList1.List(i)List1.RemoveItemiEndIfNextiEndSubPrivateSubCommand1_Click()EndEndSub2、程序如下：PrivateSubFile1_Load()File1.Pattern=“*.txt”EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()IfRight$(File1.Path,1)=\ThenText1.Text=File1.Path&\File1.FileNameElseText1.Text=File1.Path&File1.FileNameEndIfOpenText1.TextForInputAs#1Text2.Text=Input(LOF(1),1)CloseEndSub