可视化程序设计综合题及答案

可视化程序设计综合题一、单项选择题1.下列运算符中，运算级别最高的是（B）---1504CA、+B、*C、\D、Mod2.下列选择项中（C）不能获得焦点。---1412B卷1A、使用Tab键B、用鼠标选择对象C、设置GetFocus的值为TrueD、使用SetFocus方法3.执行下面的程序段后，x的值为(A)---1412B卷2x=5Fori=1To20Step2x=x+i\5NextiA、21B、22C、234.有如下程序，执行程序后单击Button1按钮，窗体上显示的是什么（C）---1409A卷3、1504C卷3PrivateSubCommand1_Click()DimaDimbAsIntegera=5/2b=5/2Printa,bEndSub(本题分数：3分，本题得分：0分。)A、22B、22.5C、2.525.如果希望用变量X存放数据12345.67890123，应将X定义为什么类型？（A）---1504C卷4A、数值B、字符串C、变体D、数值或字符串(视输入的数据而定)6.以下说法正确的是（D）---1412B卷7A、通用过程可以出现在窗体模块和标准模块中B、不同模块中的通用过程可以重名C、同一标准模块中的通用过程可以同名D、不同标准模块中的通用过程不能同名7.下列哪组语句可以将变量A、B的值互换（C）。---1504C卷7、1401批次7A、A=B：B=AB、A=C：C=B：B=AC、A=A+B：B=A－B：A=A－BD、A=（A+B）/2：B=（A-B）/28.将文本框的（A）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。---1409A卷5A、MultiLineB、ScrollBarsC、TextD、Enabled9.在表达式y=InputBox(a,b,c)中，b为输入函数对话框的（A）。---1409A卷6A、标题B、提示C、预设值D、帮助文件名10.如果要退出Do…Loop循环，可使用语句（B）。---1409A卷7A、ExitB、ExitDoC、ExitForD、ExitSub11.VB中，将命令按钮控件在窗体中失效（不可用）的属性语句是（C）。---1412B卷16A、defaultB、CancelC、EnabledD、Visible12.在VB中，称对象的数据为（A）。---1504C卷9A、属性B、方法C、事件D、封装13.下面的哪一项不能用来在模块之间传递数据（D）。---1409AA、全局变量B、对象属性C、全局数组D、模块级变量14.令A、B、C都是整型变量，A=3，B=4，C=5，下列表达式结果为TRUE的是（C）A、(A+B)C-1>0B、B+C*AB*B=B+C*A\B*BC、(A-C)*Sqr(B)+B=0D、A^2+B^2-C^2<015.下列哪个语句定义了包含8个元素的单精度数组（C）---1504CA、Dima(2,4)AsSingle3CB、Dima(1to8)!C、Dima!(7)D、Dima(1to2,3to6)AsLong16.下面关于变量的作用域，正确的描述是（B）。---1504C卷1A、模块级变量的作用域为它所在的模块B、同一模块中不同级的变量不能同名C、在某一模块中所有过程外用Dim定义的变量为全局变量D、不同模块中定义的全局变量可以相同17.下列哪个语句定义了包含12个元素的整型数组（C）。---1412B卷15A、Dima(3,4)AsIntegerB、Dima(1to12)%C、Dima%(-1to1,3)D、Dima(1to2,3to6)AsLong18.设a=2，b=3，c=4，d=5，下列表达式的值是（B）a＞bANDc＜=dOR2*a＞c---1412B卷11A、TrueB、FalseC、-1D、119.要在子过程的过程体中退出子过程应使用（C）语句。---1412B卷12A、ExitDoB、ExitForC、ExitSubD、ExitFunction20.假定有以下循环结构DoUntil条件循环体Loop则正确的描述是()---1412B卷13、1504C卷13A、如果"条件"为1，则一次循环体也不执行B、如果"条件"为1，则无限次执行循环体C、如果"条件"不为0，则至少执行一次循环体D、不论"条件"是否为"真"，至少要执行一次循环体21.若要使标签控件显示时不覆盖其背景内容，要对（D）属性进行设置。A、BackColorB、BorderstyleC、ForeColorD、Backstyle22.以下语句的输出结果是（C）。printformat$（32548.5，"000，000.00"）---1412B卷14、1401批次11A、2548.5B、32，548.5C、032，548.5023.设有数组说明语句：Dimc（－１To１，１To５），则下列表示数组c的元素选项中（C）是正确的。---1504CA、c(i+j)B、c(i)(j)C、c(i-1,i+1)D、c(1,0)24.下列过程说明合法的是（D）A、SubS1(ByValn!())B、SubS1(n!)asIntegerC、FunctionS1%(S1%)D、FunctionS1(ByValn!)25.结构化程序设计的三种基本结构是（C）---1409A卷15、1412B卷18A、逻辑结构、选择结构、递归结构B、逻辑结构、选择结构、循环结构C、顺序结构、选择结构、循环结构D、顺序结构、逻辑结构、循环结构26.若单击了“否（No）”按钮，则MsgBox函数的返回值是（D）。---1409A卷16A、４B、５C、６D、７27.语句Print5*5\5/5的输出结果是(D)。A、0B、1C、5D、2528.下面子过程说明合法的是（D）。---1412B卷19A、Subf1（ByValn％（））B、Subf1（％）AsintegerC、Functionf1％（f1％）D、Functionf1（ByValn％）29.下面语句书写正确的是（D）。---1412B卷20、1401批次15A、Ifa>maxThenmax=aElseElseifmax=bEndIfB、Ifb>maxThenmax=aElsemax=bEndIfC、Ifa>maxThenmax=aElsemax=bD、Ifa>maxThenmax=aElsemax=bEndIf30.函数Int(Rnd*99+1)产生随机数的范围是(C)。---1409A卷21、A、[1,98]B、[1,99]C、[1，100]D、[1，101]1.下列关于多文档界面（MDI）应用程序，说法错误的是（B）---1504CA、一个多文档界面应用程序只能包含一个MDI窗体B、一个多文档界面应用程序只能包含一个子窗体C、子窗体的MDIChild属性应设置为TrueD、最小化父窗口时，所有子窗口也被最小化2.下列属性中，目录列表框和文件列表框都有的属性为（C）。---1409A卷1A、ListB、valueC、PathD、Pattern3.下列关于菜单访问键和快捷键的说法正确的是（D）---1412B卷3A、若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+OB、快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+FC、可以为任意的菜单项都添加快捷键或访问键D、通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单

4.下面关于随机文件的描述，不正确的是：（B）---1504C卷2

A、每条记录的长度必须相同C、可通过编程对文件中的某条记录方便地修改D、文件的组织结构比顺序文件复杂5.下列说法正确的是（A）---1409A卷2、1412B卷4、1401批次5A、如果框架的Enable设为False，则框架内的所有控件都不可用。B、时钟控件的Visable属性设为True时，该控件在程序运行时可见，设为False时，则不可见。C、在列表框中能够将项目按字母顺序从大到小排列。D、移动框架时，框架内的控件不随之移动。

6.用户可以通过设置菜单项的（B）属性值为False来使该菜单项不可见。---1409A卷4A、HideB、VisibleC、ChechedD、Enable7.要暂时关闭计时器，需设置（B）属性。---1412B卷5A、VisibleB、EnabledC、LockD、Cancel

8.若要得到列表框中项目的数目，可以访问（C）属性。---1412B卷6A、ListB、ListIndexC、ListCountD、Text

9.在顺序文件中（D）。---1412B卷8

C、按记录的某个关键数据项的排序顺序组织文件D、记录按写入的先后顺序存放，并按写入的先后顺序读出10.通过设置Line控件的（D）属性可以绘制虚线、点划线等多种样式的直线。---1504CA、ShapeB、StyleC、FillstyleD、Borderstyle11.Seek方法用于在（C）类型的记录集中查找满足条件的记录。---1412B卷9A、动态集B、快照C、表D、任意

12.数据控件用于设置指定数据控件所访问的记录来源的属性是（A）---1409A卷9A、RecordSourceB、DataSourceC、DatabaseNameD、RecordSetType13.AVI动画类似电影，由若干帧组成，Animation控件可以显示（A）的音频视频动画（AVI文件）。---1409A卷11A、无声B、有声C、无声和有声都可以D、单声道14.在用菜单编辑器设计菜单时，必须输入的项有（D）。---1504C卷11A、快捷键B、标题C、索引D、名称15.假设窗体上已添加了通用对话框CommonDialog1，下列选项中能打开“颜色”对话框的是（C）---1409A卷12A、CommanDialog1.Action=3B、CommonDialog1.showColorC、A和B都可以D、A不可以，16.当鼠标移动时，有关MouseMove事件的说明正确的是（A）---1504C卷12A、MouseMove事件不断发生B、MouseMove事件只发生一次C、MouseMove事件经过每个象素都会触发D、当鼠标指针移动得越快，则在两点之间触发的MouseMove事件越多17.当BOF属性为Ture时，表示（B）。---1409A卷13、1301批次B卷9A、当前记录位置位于Recordset对象的第一条记录B、当前记录位置位于Recordset对象的第一条记录之前C、当前记录位置位于Recordset对象的最后一条记录D、当前记录位置位于Recordset对象的最后一条记录之后18.在随机文件中（D）---1409A卷14A、记录号是通过随机数产生的，可以通过记录号随机读取记录B、记录的内容是随机产生的，记录的长度是任意的C、记录号不是通过随机数产生的不可以通过记录号随机读取记录D、记录的内容不是随机产生的，记录的长度不是任意的19.通过文本框的（D）事件过程可以获取文本框中键入字符的ASCII码值。A、ChangeB、GotFocusC、LostFocusD、KeyPress20.以下关于索引的说法，错误的是（B）。---1412B卷17、1504C卷16、1401批次12A、一个表可以建立一个到多个索引B、每个表至少要建立一个索引C、索引字段可以是多个字段的组合D、利用索引可以加快查找速度21.以下叙述错误的是（D）---1504C卷17A、在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B、在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字C、KeyPress事件中不能识别键盘上某个键的按下与释放D、KeyPress事件中可以识别键盘上某个键的按下与释放22.文本框控件与DATA控件绑定到一起时，文本框的DataSource属性指定了文本框所要绑定的（B）---1504C卷18A、数据库名B、数据表名C、字段名D、以上都不是23.用于设置或返回文件类型的属性是（C）。---1409A卷17、1301批次B卷10A、DriveB、PathC、PatternD、FileTitle24.运行时，要清除图片框P1中的图像，应使用语句（B）。---1504C卷19

A、Pl.Picture=“”B、P1.Picture=LoadPicture（）C、Picturel.D、Picturel.Picture=LoadPicture(“C：＼WINDOWS＼Clouds.bmp”)25.若要清除列表框的所有项目内容，可以使用（C）方法。---1409A卷18A、AddItemB、ReMoveC、ClearD、Print26.改变驱动器列表框的Drive属性将引发（D）事件。---1401批次14A、LoadB、ClickC、PatternchangeD、Change27.以下的属性和方法中（C）可重定义坐标系。---1409A卷19、1504C卷20A、DrawStyle属性B、DrawWidth属性C、Scale方法D、ScaleMode属性28.语句“Select＊From学生基本Where性别=”男”中的“＊”号表示（D）。---1409A卷20A、所有表B、所有指定条件的记录C、所有记录D、指定表中的所有字段29.如果当前的List1中为空（即没有选项），运行下列语句后，List1中的内容是（D）---1504CPrivateSubCommand1_Click()DimsAsStringForn=1To3s=Chr(65+n)List1.AddItems,nNextEndSubA、AB、BC、CD、D30.以下正确的语句是：（C）---1412B卷21A、CommonDialogl.Filter=AllFiles|*.*|Pictures（*.Bmp）|*.BmpB、CommonDialogl.Filter=”AllFiles”|”*.*”|”Pictures（*.Bmp）”|”*.Bmp”C、CommonDialogl.Filter=”AllFiles|*.*|Pictures（*.Bmp）|*.Bmp”D、CommonDialogl.Filter={AllFiles|*.*|Pictures（*.Bmp）|*.Bmp}31.编写如下事件过程：---1504C卷22PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd3)=3ThenPrint"AAAA"EndIfEndSub程序运行后，为了在窗体输出“AAAA”，应按下的鼠标键为（D）A、左B、右C、同时按下左、右D、按什么键都不显示32.当使用Seek方法或Find方法进行查找时，可以根据记录集的（B）属性判断是否找到了匹配的记录。---1409A卷22A、MatchB、NoMatchC、FoundD、Nofound1.下列过程不能包含在标准模块中定义的是（A）。A.事件过程B.子过程C.函数过程D.公共过程2.下列关于数据库说法错误的是（C）A.一个表可以构成一个数据库B.多个表可以构成数据库C.一个表的每一条记录中的各数据项具有相同的类型D.同一个字段的数据具有相同的类型5.要设置列表框的选择方式，应使用（B）属性。A.ColumnsB.MultiSelectC.StyleD.List6.下面关于随机文件的描述，不正确的是：（B）---1401批次4A.每条记录的长度必须相同B.一个文件中记录号不必惟一C.可通过编程对文件中的某条记录方便地修改D.文件的组织结构比顺序文件复杂8.下列控件中，（A）不是用于文件操作的控件。A.ListBoxB.DriveListBoxC.DirListBoxD.FileListBox9.可以在窗体模块的通用声明段中声明（A）。---1401批次6A.全局变量B.全局常量C.全局数组D.全局用户自定义类型11.当函数EOF()的返回值为真时，表示文件的指针指向（B）--1401批次8A.开头B.尾部C.最后一个字节D.最后一个记录14.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（C）方法。A.ShowOpenB.ShowColorC.ShowSaveD.ShowFont15.在下列关于对话框的叙述中，错误的是（A）：A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和False。B.语句frmAbout．ShowvbModeless，frmMain将fmAbout窗体显示为fmMain的无模式子窗体。C.可以将对话框分成两种类型：模式的和无模式。D.语句frmAbout．Show将frmAbout作为无模式对话框显示。19.以下说法正确的是（D）。A.使用Data控件可以直接显示数据库中的数据B.使用数据绑定控件可以直接访问数据库中的数据C.使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据D.Data控件只有通过数据绑定控件才可以访问数据库中的数据22.下面关于多重窗体的叙述中，正确的是（B）。---1401批次13A.作为启动对象的main于过程只能放在窗体模块内B.如果启动对象是main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体C.没有启动窗体，程序不能执行D.以上都不对25.下面关于过程作用域，错误的描述是（D）。---1409A卷10A.全局级过程的作用域为整个工程B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称C.在不同模块中定义的模块级过程可以同名D.在不同模块中定义的工程级过程不能同名1.确定一个控件在窗体上的位置的属性是(D)

A.Width或HeightB.Width和LeftC.Top或HeightD.Top和Left

2.标准模块中的内容存放在以（B）为扩展名的文件中。---1401批次1

A.frmB.basC.clsD.xt

3.下面的程序的输出结果是(B)

x=5

Fori=1To20Step2

x=x+i\5

Nexti

Printx,i

A.2120B.2121C.2220D.2221

4.要使某控件在运行时不可显示，应对（B）属性进行设置。---1301批次B卷1

A.EnabledB.Visible7.求COS35°可以使用的函数是（D）。

A.Cos35B.Cos（35）C.Cos（35º）D.Cos（35*3.14159/180）

8.下列赋值语句中（C）是错误的。---1401批次2

A.x＝x＋１B.x＝x＋yC.x＋y＝x10.若要取消窗体的最小化按钮，可以设置（D）属性来实现。---1401批次3

A.TopB.EnabledC.MaxButtonD.MinButton

11.“X是小于100的正实数”写成VB表达式正确的是：(A)

A.X>0ANDX<100B.X>0ORX<100C13.在VB中不能表示逻辑真的是(D)。

A.TrueB.–1C.1D.T15.语句Print6*6\6/6的输出结果是（D）

A.0B.1C.6D.3617.下列可作为VisualBasic中所允许的形式的数是(C)

A.±25.74B.3.457E-100C.36819.若有数组说明语句：Dimt(1To10)AsVariant，则t被定义为（D）。---1401批次9-

A.数值数组B.可调数组C.字符串数组D.可变类型数组

20.Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（B）类型。---1401批次10

A.IntegerB.VariantC.LongD.Siring

21.设有数组说明语句：Dimb（－１To２，－２To２），则数组b中元素的个数是（D）。

A.12B.15C.1624.把数值型转换为字符（串）型需要使用下列哪一个函数？（B）

A.ValB.StrC.AscD.Chr1.下面的数写成普通的形式是1.21576654590569E+019(D)A.12157665459056900B.121576654590569000C.1215766545905690000D.121576654590569000002.下列赋值语句合法的是（A）A.A=A+BB.A+B=AC.–A=AD.A=2B4.设a=2，b=3，c=4，d=5，下列表达式的值是（D）。nota<=cor4*c=b^2andb<>a+cA.－1B.1C.trueD.fa5.若将命令按钮设置为默认命令按钮，可以通过（C）属性来实现。A.ValueB.CancelC.DefaultD.Enabled6.通用过程可以通过执行“工具”菜单中的（A）命令来建立。---1301批次B卷2A.添加过程B.通用过程C.添加窗体D.添加模块7.假设A=3，B=7，C=2，则表达式NOT(B>A)的值是(B)---1301批次B卷3A.TrueB.FalseC.表达式错误D.不确定9.在表达式y=InputBox(a,b,c)中，b为输入函数对话框的（A）。A.标题B.提示C.预设值D.帮助文件名11.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)---1301批次B卷4A.1B.212.若有数组说明语句：Dimt(1To10)AsVariant，则t被定义为（D）。---1301批次B卷5A.数值数组B.可调数组C.字符串数组D.可变类型数组14.不论何对象，都具有（B）属性。A.TextB.NameC.ForeColorD.Caption15.下列语句正确的是（C）。---1301批次B卷7A.Fori=1TomForj=1TonNextiNextjB.Fori=1TomForj=1TonNexti,jC.Fori=1TomForj=1TonNextj,iD.Fori=1TomWhilex>0Nextiend16.下列过程调用合法的是（C）A.CallProga,bB.Prog(a,b)C.CallProg(a,b)D.以上都不对18.数学式子Sin25°写成VB表达式是（）。A.Sin25B.Sin（25°）C.Sin（25）D.Sin（25*3.14/180）19.以下程序段中循环语句（B）。---1301批次B卷8x%=0WhileNotxx=x+1PrintxWendA.有语法错误B.溢出C.循环体执行一次D.循环体一次也不执行21.用下面的语句所定义的数组的元素个数是()Dimarr(3To6,-2To2)A.12B.16C.1823.下列一维数组说明语句错误的是（C。A.Dimb(100)ASDoubleB.Dimb(-5To0)ASByteC.Dimb(-10To–20)ASIntegerD.Dimb(5To5)ASString24.设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（D）。A.fB.f(a+b,b+c)C.f(a+b,b+c,c+a)D.fa+b,b+c,c+a25.执行下面程序段时，内循环的循环次数是（D）。Form=1To3n=0Whilen<=m-1Printm,nn=n+1WendNextmA.3B.4C.510.若有以下说明语句TypeemployeenumAsIntegersalaryAsSingleEndTypeDimprogrammerAsemployee则下面表示记录变量programmer的成员Salary正确的是（D）。---1412B卷10A、programmer→salaryB、salaryC、grammerD、programmer.salar

10、函数Len(Str(Val(“123.4”)))的值为（C）。---1504CA、11B、5C、66、如果X是一个正实数，精确到小数点后第二位的表达式是（B）---1301批次B卷6A、0.01*Int(X+0.005)HTMLCONTROLForms.HTML:Option.1B、0.01*Int(100*(X+0.005))C、0.01*Int(100*(X+0.05))D、0.01*Int(X+0.05)二、判断题（共5题、总分10分、得分0分）1.整除（\）运算时，若运算量为实数，则结果为实数或整数。（×）2.赋值符号“=”左边可以是常量、符号常量、表达式。（×）3.数组作为参数，函数调用时一定是按地址传递。（√）4.用“&”符号进行连接时，两个操作数必须为字符型。（×）5.事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。（√）1.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上。（×）2.将复选框的Value属性设置成2后，则该复选框变成灰色，说明用户无法选择该选项。（×）三、填空题（共10题、总分40分、得分40分）1.计时器每经过一个由Interval属性指定的时间间隔就会触发一次Timer事件。---1409A卷2、1412B卷22.要使用工具栏控件设计工具栏，应首先在“部件”对话框中选择.MicrosoftWindowsCommonControls6.0，然后从工具箱中选择ToolBar控件。---1504C卷23.假定有一个通用对话框控件CommonDialogl，除了用CommonDialogl．Action＝3显示颜色对话框之外，还可以用CommonDialogl．ShowColor方法显示。---1409A卷44.使用line方法画矩形，必须在指令中使用关键字B。---1412B卷4、1504C卷45.组合框的Style设置为2时，其风格为下拉式列表框；列表框的Style设置为1时，其风格为复选框。---1412B卷66.使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印机字体，必须设置通用对话框的Flags属性为3。---1409A卷67.注释语句是一个非执行语句，对程序的执行结果没有任何影响，它的作用是给程序增加一些注释；提高程序的可读性。8.要在运行时给状态栏StatusBar1的第二个窗格添加一幅图片，该图片由文件“c：＼windows＼winupd．ico”指定，应使用语句：。----1504CStatusBar1．Panels（2）．Picture＝LoadPicture（”C：＼Windows＼Winupd．ico”）9.假定一个文本框思的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为Text1.Text="Hello!"。---1504C10.设Form1.Scaleleft=-150，Form1.Scalertop=-200，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为200,300。1.若在标准模块中以关键字public定义子过程，则在整个应用程序中都可以调用该过程。

3.VB中三种文件访问类型是顺序、随机、二进制。---1301批次B卷2、1401批次C卷34.不论任何控件，共同具有的是Name（名称）属性。

6.每一个过程都有一个使用范围，过程的使用范围称为过程的作用域。

7.按数据的组织方式不同，数据库可以分为3种类型，即层次数据库、网状数据库和关系数据库。---1401批次C卷1

8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的Visible属性设为False，然后在程序中用Load语句加载。

9.随机文件以记录为单位读写，二进制文件以字节为单位读写。

10.当单选按钮的Value属性为False时表示该单选按钮处于未选中状态。---1401批次C卷5

1.根据文件内容区分，文件分为程序文件和数据文件。---1301批次B卷13.要使标签框有边框，需设置BorderStyle属性的值为1－FixedSingle。---1301批次B卷34.VB程序的错误一般分为编译错误，运行时错误，逻辑错误三类。---1301批次B卷4、1401批次C卷45.在执行KeyPress事件过程中，KeyAscii是所按键的ASCII值，对于有上档字符和下档字符的键，档执行KeyDown事件过程中，KeyCode是下档字符的ASCII值。---1301批次B卷51.当Scale方法不带参数时，则采用缺省坐标系。---1401批次C卷21.控件数组是由一组相同类型的控件构成。---1409A卷13.若需要对菜单进行分组，则可以在菜单编辑器中，将菜单项的分隔符设为“－”。---1409A卷35.在一个窗体中，只允许一个命令按钮的Default属性设置为True。---1409A卷57.设Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为100,800。---1409A卷78.假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为Text1.test="Hello"。---1409A卷81、设置工具栏控件的（Align）属性可以改变工具栏在窗体上的位置。---1412B卷13、若使用赋值语句给对象的属性赋值时缺少对象名，则系统默认的对象（当前窗口）。---1412B卷35、要使数据绑定控件能够显示数据库记录集中的数据，必须首先在设计时就在运行时设置这些控件的两个属性，即使用（DataSource）属性设置数据源，使用（DataField）属性设置要连接的数据源字段的名称。---1412B卷57、以下循环的执行次数是（101）---1412B卷7K=0DoK=k+1LoopUntilk>1008、设Form1.Scaleleft=-150，Form1.Scalertop=-200，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为（200,300）。---1412B卷81、注释语句可以放在可执行语句的后面，但必须是一行中最后一个语句。---1504C3、如果把菜单项的Checked属性设置为True，则该菜单项成为一个选项。---1504C5、若使命令按钮Command1重新生效，则使用的赋值语句为Command1.Enabled=True。---1504C7、将窗体Form1移动到屏幕（300，500）的位置，并将大小改变为3000×2000使用的语句是（）。form1.left=300

form1.top=500

form1.width=3000

form1.height=2000---1504C四、程序阅读题1.PrivateSubForm_Click()num=0Donum=num+1PrintnumLoopUntilnum＞2EndSub程序运行后，单击窗体，输出结果是_____________---1412B卷21232.写出下面事件过程的执行结果。---1409A卷2PrivateSubCommand1_Click()Dims(1To6)AsIntegerFori=1To6s(i)=iNextiFori=1To3Forj=4To6t=s(i)s(i)=s(j)s(j)=tNextjNextiFori=1To6Prints(i)NextiEndSub6543213.下面程序运行后的结果是什么？该程序的功能是什么？PrivateSubCommandl_Click（）Dimx$，n％n=20DoWhilen＜＞0a＝nMod2n＝n＼2x＝Chr（48＋a）＆xloopPintxEndSub运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。4.执行下面的程序，单击命令按钮Command1后在窗体上显示的图形功能是什么?---1409A卷4、1412B卷4、1504C卷4PrivateSubCommand1_Click()ClsPrintForn=1To8PrintTab(2*n+2);Form=1To8PrintSpc(1);"*";NextmPrintNextnEndSub由“*”号组成的平行四边形1.下面程序的功能是什么？---1401批次C卷3

PrivateSubCommand1_Click()

Dima%,s%,n%

a=Val(InputBox("Pleaseinputanumber:"))

DoWhile(a>0)

s=aMod10

a=a/10

n=n+func(s)

Loop

Printn

EndSub

PrivateFunctionfunc(x%)AsInteger

func=x*x

EndFunction

答：求一个数各位上的数的平方和。2.下面程序的功能是什么？---1504C卷1

PrivateSubCommand1_Click()

Dims%,n%

DimaAsString

n=0

a=InputBox("Pleaseinputanumber:")

Fors=1ToLen(a)

If(func(Val(Mid(a,s,1))))Then

n=n+1Next

Printn

EndSub

PrivateFunctionfunc(x%)AsBoolean

If(xMod2=0)Then

func=True

Else

func=False

EndIf

EndFunction

答：判断一个数各位上的偶数个数3.写出下列事件过程的执行结果。

PrivateSubCommand1_Click()

Dims%s=f(5)

Print"s=";s

EndSub

PrivateFunctionf(ByValnAsInteger)

Ifn=1Then

f=1

Else

f=n+f(n-1)

EndIf

EndFunction答：s=15

4.完成一个时钟定时的程序，要求按下Command1按钮后开始计时，每半个小时调用一次PrintTime()子过程，在窗体上打印当前的日期和时间。要求每空只能写一个执行语句，不允许用“:”将多个语句写在一起。

PrivateSubCommand1_Click()

____Timer1.Interval=30000_______

____Timer1.Enabled=True_______

EndSub

PrivateSubTimer1_Timer()

StaticnAsInteger

_____n=n+1____

If(n=60)Then

Call

PrintTime

____n=0___

EndIf

EndSub

PrivateSub

PrintTime()

Form1.FontSize=30

Form1.ForeColor=RGB(0,255,0)

Form1.BackColor=RGB(0,0,0)

Print___Time(),Date()______

EndSub

5.写出下列事件过程的执行结果。

PublicxAsIntegerPrivateSubCommand1_Click()

x=10

Printx

Calls1

Printx

Calls2

Printx

EndSub

PrivateSubs1()

x=x+20

Printx

EndSub

PrivateSubs2()

DimxAsInteger

x=x+20

Printx

EndSub答：执行结果为：1030302030下面事件过程的功能是输入某班学生的某门课程成绩，并存放到文件“d:\file2.dat”中，在横线上填上适当内容。---1301批次B卷1、1401批次C卷2PrivateSubCommand1_Click()

Dimn%,i%,score!

n=InputBox("输入学生人数：")

Open"d:\file2.dat"ForOutputAs#1

Fori=1Ton

score=InputBox("输入第"&Str(i)&"个学生的成绩：")

Write#1,scoreNexti

Close#

EndSub2、在窗体上画一个文本框，有如下事件过程：---1301批次B卷2

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimcharAsString

char=Chr(KeyAscii)KeyAscii=Asc(UCase(char))

PrintString(6,KeyAscii)

EndSub

程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果为：AAAAAA。3、阅读程序

Subform_click()

a=10:

b=15

c=20

d=25

Printa;Spc(5);b;Spc(7);c

Printa;Space$(8);b;Space$(5);c

Printc;Spc(3);"+";Spc(3);d;

PrintSpc(3);"=";Spc(3);c+d

EndSub

运行上面的程序，单击窗体，输出结果是（）---1301批次B卷3输出是这样10152010152020+25=45分为顺序文件和结构文件4、PrivateSubCommand1_Click()

DimnAsInteger

DimtAsInteger

n=354

t=0

While(n>1)

t=t+f1(nMod10)n=n\10

Wend

Printt

EndSub

PublicFunctionf1(nAsInteger)

If(n=0)Then

f1=0

ElseIf(n=1)Then

f1=1

Elsef1=n*f1(n-1)EndIf

EndFunction

单击一次Command1按钮一次，窗体上显示的是什么？150---1301批次B卷45、下面程序的功能是对两个整型变量的值进行交换，在横线上填上适当内容。---1301批次B卷5

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=10

b=20

Print"a=";a,"b=";b

swapa,b或Callswap(a,b)Print"a=";a,"b=";b

EndSub

PrivateSubswap(ByRefaAsInteger,ByRefbAsInteger)

DimtAsInteger

t=a:a=b:b=tEndSubPrivateSubCommand1_Click()

ForI=1To4

ForJ=0ToI

PrintChr$(65+I);

NextJ

Print

NextI

EndSub程序运行后，如果单击命令按钮Command1，则在窗体上显示的内容是69。---1401批次C卷11.PrivateSubForm_Click()num=0Donum=num+3PrintnumLoopUntilnumMod4=0EndSub程序运行后，单击窗体，输出结果是_______。答：36912---1409A卷13.写出下列事件过程的执行结果。---1409APrivateSubCommand1_Click()Dimi%Fori=1To3Calls4NextiEndSubStaticSubs4()u=u+1:v=v+1Print"u=";u,"v=";vEndSub答：u=1v=1u=2v=2u=3v=31.写出下列事件过程的执行结果。---1412B卷1PrivateSubCommand1_Click()s3（1）s3（1）EndSubPriviteSubs3(ByValaAsInteger)DimxAsIntegerStaticyAsIntegerx=x+ay=y+aPrint“x=”；x，“y=”；yEndSubx=1y=1x=1y=23.有如下事件过程，写出运行结果---1412B卷3PrivateSubCommand1_Click()s=0i=1DoWhilei<=5s=s+i∧2i=i+1loopPrint“s=”&sEndSubs=552、下面程序运行后的结果是什么？该程序的功能是什么？---1504CPrivateSubCommandl_Click（）Dimx$，n％n=20DoWhilen＜＞0a＝nMod2n＝n＼2x＝Chr（48＋a）＆xloopPintxEndSub答：运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。3、有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？---1504CPublicaAsIntegerPrivateSubForm_Load()a=0EndSubPrivateSubCommand4Click（）Timer1.Enabled=1Timer1.Interval=100EndSubPrivateSubTimer1_Timer()Statica%a=a+1IfaMod10=0Thenf1aEndIfEndSubStaticSubf1(s%)a=a+1s=0Text1.Text=Str(a)EndSub答：18五、问答题1.通过调试窗口中的“立即”窗口、“本地”窗口和“监视”窗口调试时的差别？---1504C卷4答：“立即”窗口是调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Top“立即”窗口是调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Debug．Pint方法，把输出送到“立即”窗口，也可以直接该窗口使用Print语句或“？”显示变量的值。“本地”窗口显示当前过程中所有变量的值。当程序的执行从一个切换到另一个过程时，“本地”窗口的内容会发生改变，它只反映当前过程中可用的变量。“监视”窗口可显示当前的监视表达式。在设计阶段必须在设计阶段，利用“调试”菜单的“添加监视命令”或“快速监视”命令添加监视表达式以及设置的监视类型，运行时可显示在“监视”窗口。2.RGB函数中的参数按什么颜色排列，其有效的数值范围是多少？怎样用RGB函数实现色彩的渐变？---1412B卷4答：RGB函数中的三个参数按红、绿、蓝的方式排列，RGB函数三基色的取值在0－255之间，当该值大于255时，RGB函数将其当作255处理。为实现色彩的渐变，只要在循环内连续改变三基色的取值。3.Now函数和Date函数有何区别？答：Now函数和Date函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。4.调用函数的一般格式是什么？---1409A卷4答：计算机编或运行时，使用某个函数来完成相关命令。调用方法：函数名（参数列表）有参函数函数名无参函数1.在VisualBasic中可使用哪些格式的图形文件？---1504C卷1

答：VisualBasic可处理图形文件主要有bmp、ico、wmf、jpg、gif和cur。2.解释一下keycode参数的用法？

答：Keycode参数表示按下的物理键。上档键字符和下档键字符也是使用同一键，它们的Keycode值相同。keycode参数通过ASCII值或键代码常数来识别键。字母键的键代码与此字母的大写字符的ASCII值相同。3.菜单名与菜单项有什么区别？---1401批次C卷1

答：菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。4.如何在目录列表框表示当前选定的目录?

答：在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Dirl．Pah的值做相应的改变。而当单击选定该目录项时，Dirl．Path的值并没有改变。为了对选定的目录项进行有关的操作，即与ListBox控件中某列表项的选定相对应，则表示如下：Dirl．List（Dirl．Listlndex）5.