2013年Vb测绘程序和计算器编程复习题

Vb测绘程序和计算器编程复习题单项选择题1．Int(—0.618*10)/10的值是（B）A.—0.7B.—0.6C.—1D.—0.12．表达式2+8*6/4Mod2的值是（B）A.5B.2C.6D.93．在VB中快捷键F4打开哪个窗口？（B）A.资源管理器窗口B.属性窗口C.代码窗口D.立即窗口4．函数Int(64*RND())的值是在哪个范围内的整数？（B）A.[0,63]B.[0,64]C.[1,63]D.[1,64]5.下列叙述中正确的是（C）A.只有窗体才是VisualBasic中的对象B.只有控件才是VisualBasic中的对象C.窗体和控件都是VisualBasic中的对象D.窗体和控件都不是VisualBasic中的对象6.用于VisualBasic程序设计的控件在（A）A.工具箱中B.工具菜单中C.工程窗口中D.工具栏上7．VisualBasic程序中表示续行的字符是（B）A.：B._C.\D.’8．决定按钮显示内容的属性是（C）A.TextB.NameC.CaptionD.BackStyle9．下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为（A）A.Form1.Picture=LoadPicture("c:\地鼠1.jpg")B.Form1.Handle="c:\地鼠1.jpg"C.Form1=LoadPicture("c:\地鼠1.jpg")D.Form1="c:\地鼠1.jpg"10．设a、b、c为整型变量，执行以下程序后a、b、c的值是（B）a=1:b=2:c=3a=b:b=c:c=aA.231B.232C.321D.13211．将数学表达式写成VisualBasic的表达式，其正确的形式是（B）A.Cos(a+b)^2+5*exp(2)B.Cos^2(a+b)+5*exp(2)

C.Cos(a+b)^2+5*ln(2)D.Cos^2(a+b)+5*ln(2)12．下列描述图片框和图像框区别，那条是错误的（B）A．图像框中显示图片一般用作背景B．图片框有拉伸属性C．图片框是容器控件D．图像框没有AutoSize属性13．下列哪个符号可以作为VB中的变量名？（D）A.abc+B.thenC.m&mD.p414．从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（B）A.LeftB.MidC.InstrD.String15．以下叙述中正确的是（C）A.窗体的Caption属性指定窗体的名称，用来标识一个窗体B.窗体的Name属性的值是显示在窗体标题栏中的文本C.窗体的Name属性值不能为空D.可以在运行期间改变窗体的Name属性的值16．更改窗体的图标是哪个属性（D）A.MousePointB.MouseIconC.PointD.Icon17．Right(“china”,4)的值是（C）A.chinB.chinaC.hinaD.chna18．表达式sgn(－2)＋abs(－2)的结果是（D）A．2B．－1C．0D．119．VB算术运算符*或\、/、mod的优先级，从高到低依次为（C）A、*或/、mod、\B、\、mod、*或/C、*或/、\、modD、\、*或/、mod20．12345678#这个数是（B）A．单精度数B．双精度数C．整型数D．长整型数21．执行下面的语句后，所产生的信息框的标题是（A）a=MsgBox("AAAA",vbOKOnly,"BBBB")A.AAAAB.空C.BBBBD.出错，不能产生信息框22．设a=2，b=3，c=4，d=5，下列表达式的值是（D）3>2*bORa=cANDb<>cORc>dA.－1B.0C.TrueD.False23.下列关于参数及参数传递说法错误的是：（）

A在过程的声明语句里出现的参数叫形式参数B在过程的调用语句里出现的参数叫形式参数C参数传递的实质是将实际参数按地址或按值传递给形式参数D参数传递的实质是将形式参数按地址或按值传递给实际参数24.用语句来给名为Form1的窗体加载一张图片的正确格式为：（C）AForm1.Picture=LoadPicture（图片文件名）BPicture=LoadPicture“图片文件名”CForm1.Picture=LoadPicture（“图片文件名”）DPicture=LoadPicture=LoadPicture（图片文件名）25.以下关于Visualbasic中的启动窗体说法正确的是：（B）A始终只能以第一个窗体作为启动窗体B可以通过工程的属性设置对话框来选择设置任意一个窗体作为启动窗体C启动窗体是指程序运行后首先出现的窗体D启动窗体不会响应Load事件26.在名为Form1的窗体对象的（3000,5000）位置画一个半径1000的圆：（B）AForm1.Circle（3000,5000）1000BForm1.Circle（3000,5000），1000CForm1.Circle（3000,5000），1000，RGB（255,0,255）DForm1.Circle（3000,5000），RGB（255,0,255），100027.以下叙述中错误的是（B）

A双击鼠标可以触发DblClick事件

B窗体或控件的事件的名称可以由编程人员确定

C移动鼠标时，会触发MouseMove事件

D控件的名称可以由编程人员设定28.以下哪种方式可以对顺序文件进行数据的写入（A）

APrint

BGet

CInput

DLineInputEWrite29.文本框中用于设置能否输入和显示多行文本的属性是（）ALabelBSelectstartCEnableDMultiline30.对名为Text1的文本框进行清空操作的正确语句是：（）AText1.ClsBText1.text=0CText1.text=“”DText1.SetFocus31.当光标从文本框移出这一时刻，会触发：（）AChange事件BKeyPress事件CLostFocus事件DGetFocus事件32.设置标签控件能自动调整大小的属性是：（）AAlignmentBBorderStyleCAutoSizeDCaption33.若想要建立一个学生管理的输入界面，其中要求选择学生的性别/政治面貌（党/团/群众）及选课情况（共有5门课，可任选），应如何在窗体中利用单选钮和复选框来实现（）。A．将5门课程用一组5个复选框来表示，将性别和政治面貌用5个单选钮来表示。B．将5门课程用一组5个复选框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示。C．将5门课程用一组5个单选钮来表示，将性别和政治面貌用5个复选框来表示。D．用一组10个复选框来表示课程、性别和政治面貌。34.清除列表框中指定的条目应使用的方法是：（）AAdditemBClearCRemoveitemDDelete35.时钟控件能够响应的事件有：（）AClickBDbClickCTimerDMouseMove36.以下关于菜单设计说法错误的是：（）A在标题后面用&符号连接一个字母可以给菜单设定一个访问键B顶层菜单只能设置访问键不能设置快捷键C通过在标题框中输入一个减号来设置一个分隔线D每个菜单项必须有索引值37.关于菜单中的复制、剪切和粘贴命令说法错误的是（）A复制、剪切时是将选定的数据源暂时存放在Windows系统共用的剪贴板B粘贴时是将剪贴板的数据放到指定的目标上去C复制、剪切时要用到剪贴板对象的SetText或SetData方法D粘贴时只需要剪贴板的GetData方法即可。38.关于弹出式菜单设计说法错误的是（）A使用PopUpMenu方法来实现弹出式菜单B在鼠标MouseUp或者MouseDown事件过程里面来写弹出菜单代码C只能在MouseUp事件过程中写弹出式菜单代码D在鼠标的事件过程中，只有在Button=2的情况下才弹出快捷菜单38.VisualBasic中的文件及其相关说法错误的是：（）A文件是外部介质上的数据集合，由记录组成B记录是由字符组成，字符由字段组成C按照数据的存取方式和结构可以分为顺序文件和随机文件D字符是构成文件的最基本单位39.VisualBasic对顺序文件的操作不包括（）A自定义一个数据类型B打开或者建立文件C对文件进行读写操作D关闭文件40.在VisualBasic中打开一个顺序文件，要求打开文件后接受写入新的数据，新数据不能覆盖原来的数据，则用Open语句应该以（C）方式将文件打开。AInputBOutputCAppendDRandom41.以下关于Visualbasic中的“方法”说法错误的是：（C）A方法是Visualbasic内部提供的一些特殊的函数B方法是用来完成一定的操作的子程序C调用方法的格式为：对象名_方法名D在调用方法的语句中如果省略对象名，则默认指向当前对象。42.设置名为Form1的窗体对象的标题为“欢迎”的语句为：（D）AForm1.Name=“欢迎”BForm1.Caption=欢迎CForm1.Name=欢迎DForm1.Caption=“欢迎”43.设置名为Command1的按钮为无效的语句为：（D）ACommand1.Visible=TrueBCommand1.Visible=FalseCCommand1.Enabled=TrueDCommand1.Enabled=False44.结束一个程序的执行应使用的语句是：（D）AEndSubBEndFunctionCEndTypeDEnd45.动态声明一个整型变量A的正确语句是：（A）ADimAasIntegerBStaticAasLongCDimAasLongDStaticAasinteger46.以下程序代码在连续执行5次以后，结果为：（C）PrivateSubCommand1_Click()StaticaasIntegerDimbasIntegera=a+5b=b+5EndSubAa=5,b=5Ba=5,b=25Ca=25,b=5Da=25,b=2547.表达式(Sin（3.14159/4）+Int(Abs(-20.69)*Sgn(-20)))\4mod2的值：（）A1B2C-1D-248.表达式“123ab”+“45”的值为：（A）A“123ab45”B不能运算C168abDab16849.执行下面的程序段后：（C）

a=50

b=300

a=a+b

b=a-b

a=a-bAa=-250，b=-250Ba=50，b=300Ca=300，b=50Da=350，b=-25050.以下代码的输出结果为：（A）a=100：b=200PrintaPrintPrint“123456”A100B100CaDa12345612345612345612345651.代码PrintFormat(12345.6,“###，##0.00”)的输出结果为：（D）A123,45.6B123,45.60C12,345.6D12,345.6052.将名为Text1对象移至2000,5000位置并将其宽度变为600的语句为：（D）AForm1.Move2000,5000，，600BText1.Move2000,5000,600CMove2000,5000,600DText1.Move2000,5000,,60053.执行下面的程序段后，该程序的循环次数为：（B）

s=5

Fori=2To50

s=s+1

NextiA48B49C50D5154.计算器进入程序编辑状态应该在开机状态下按键：（C）AMODE8BMODEEXECMODEEXPDMODEAC55.计算器调用并进入已经编好的程序应该在开机状态下按键：（D）AEXPBFILE程序名CMODEEXPDFILE程序名EXE56.计算器删除已有的程序应该在开机状态下按键：（B）AMODEEXEFILE←ACEXPBMODEEXPFILE←ACEXECMODEEXEFILE→ACEXPDFILEEXPMODE→ACEXE计算器中与Lbl结合起来使用的是：（C）

A◢

B

CGoto

D=〉58.计算器已知两点求直线距离和方位角的函数是：（D）反算AREC（）BEXP（）CENG（）DPOL（）59.计算器已知两点距离S、方位角T求的函数是：（A）正算AREC（）BEXP（）CENG（）DPOL（）60.计算器程序中使某个语句计算结果显示的符号是：（C）AB=〉C◢D=〉61.DimArray(8,1to10)asIntegerDimaasIntegera=Lbound(Array,2)+Ubound(Array,1)执行以上程序段后a的值为：（B）A18B9C10D162.对于一个字符串型的动态数组This（）以下使用错误的是：（C）ARemDimThis（4）BRemDimThis（2,3）CRemDimThis（3）asintegerDRemDimThis（6）63.用语句来给名为Form1的窗体加载一张图片的正确格式为：（C）AForm1.Picture=LoadPicture（图片文件名）BPicture=LoadPicture“图片文件名”CForm1.Picture=LoadPicture（“图片文件名”）DPicture=LoadPicture=LoadPicture（图片文件名）64.以下叙述中错误的是（B）

A双击鼠标可以触发DblClick事件

B窗体或控件的事件的名称可以由编程人员确定

C移动鼠标时，会触发MouseMove事件

D控件的名称可以由编程人员设定65.文本框中用于设置能否输入和显示多行文本的属性是（D）ALabelBSelectstartCEnableDMultiline66.在VisualBasic中打开一个顺序文件，要求打开文件后接受写入新的数据，新数据不能覆盖原来的数据，则用Open语句应该以（C）方式将文件打开。AInputBOutputCAppendDRandom67.当光标从文本框移出这一时刻，会触发：（C）AChange事件BKeyPress事件CLostFocus事件DGetFocus事件68．设a=“VisualBasic”，下面使b=“Visual”的语句是（A）A.b=Left(a,6)B.b=Mid(a,1)C.b=Rigth(a,5,5)D.b=Left(a,1,6)69．在立即窗口中执行？9>=9，输出结果是（B）A．0B．TrueC．FalseD.－170．语句Dimvar1AsBoolean作用是:将var1定义为什么类型变量（C）A.单精度型B.整型C.布尔型D.字符型二、多项选择题1.Visualbasic的特点包括：（ABD）A提供可视化的编程工具B采取“事件驱动”的方式编程C采取“界面设计”的方式编程D面向对象的编程工具2.用Visualbasic开发应用程序的步骤为：（BCD）A设计用户事件B设计用户界面C编写程序代码D生成EXE文件3.对Visualbasic的工作模式说法正确的是：（ABD）A包括设计模式、运行模式、中断模式B设计模式状态可以编辑用户界面和程序代码C运行模式状态可以编辑用户界面和程序代码D中断模式状态可以编辑代码，不可编辑界面4.在Visualbasic集成开发环境中打开代码窗口的方法有：（ABCD）A从工程窗口中选择一个对象，单机“查看代码”按钮B在窗体窗口中，鼠标双击一个对象C从“视图”菜单中选择“代码窗口”命令D点击工程资源管理器上方的“查看代码”图标5.对象的要素包括：（ABC）A属性B事件C方法D动作6.设置对象属性的方法有：（AC）A在设计阶段通过属性窗口来设置B在设计阶段通过资源管理器来设置C在运行阶段通过赋值语句来设置D在运行阶段通过调用方法来设置7.以下关于Visualbasic中的“事件”说法正确的是：（ABC）A事件是由系统事先设定的B事件是能被对象识别的C事件是能被响应的动作D每一种对象能识别的事件是相同的8.下列哪些是合法的变量名称：（ABE）A取消BXSinYCA+BD_SgnBE变AB9.下列符号中属于常量的是：（BDE）APIB123CGoodD“ABCD”EFalse10.下列表达式的值为真的是：（AC）AMid（“visualbasic”，1,12）=Left（“visualbasicisaprogramminglanguage”,12）B“ABCRG”>“abcde”CNot(78.9/32.77<=957/43.91And-45.4>-4.98)DLen(“ABCDE”)=1011.一个SelectCase结构中，以SelectCaseX开始，如果X的值为5，下列Case测试的逻辑值为真的是：（BC）ACase1,3,6BCase1To6CCaseIs>1DCaseIs<512.定义一个5行5列的整型矩阵正确的语句为：（BCD）ADimArray（5,5）asIntegerBDimArray（4,4）asIntegerCOptionBase1:DimArray(5,5)asIntegerDDimArray(1to5,1to5)asInteger13.以下哪些方式可以对顺序文件进行数据的写入（AE）

APrint

BGet

CInput

DLineInputEWrite14.VisualBasic对顺序文件的操作包括（BCD）A自定义一个数据类型B打开或者建立文件C对文件进行读写操作D关闭文件15.以下关于菜单设计说法正确的是：（ABC）A在标题后面用&符号连接一个字母可以给菜单设定一个访问键B顶层菜单只能设置访问键不能设置快捷键C通过在标题框中输入一个减号来设置一个分隔线D每个菜单项必须有索引值三、不定项选择：请选出符合题意的正确答案。1.以下关于窗体的描述正确的是（）。A．只有用于启动的窗体可以有菜单。B．窗体事件和其中所有控件事件的代码都放在窗体文件中。C．窗体的名字和存盘的窗体文件名必须相同。D．开始运行时窗体的位置只能是设计阶段时显示的位置。2．若想要建立一个学生管理的输入界面，其中要求选择学生的性别/政治面貌（党/团/群众）及选课情况（共有5门课，可任选），应如何在窗体中利用单选钮和选择框来实现（）。A．将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选钮来表示。B．将5门课程用一组5个选择框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示。C．将5门课程用一组5个单选钮来表示，将性别和政治面貌用5个选择框来表示。D．用一组10个选择框来表示课程、性别和政治面貌。3、我们在设置标签中文本的对齐方式时，用的属性是（）。A、FontB、AlignmentC、printD、capction4、VB中一般表示控件是否可见的属性是（）。A、ForcolorB、EnableC、VisibleD、borderstyle5、文本框中用于设置能否输入和显示多行文本的属性是（）。A、LabelB、selectstartC、EnableD、multiline6、以下叙述中错误的是A)VisualBasic是可视化编程工具

B)VisualBasic应用程序不具有明显的开始和结束语句

C)VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D)VisualBasic中控件的某些属性只能在运行后设置7、假定有一个命令按钮，名为Command1，为了在运行时使该命令按钮失效（变灰），应使用的语句为。

A)Command1.Enabled=False

B)Command1.Enabled=True

C)Command1.Visible=True

D)Command1.Visible=False

8、能够在窗体上触发MouseMove事件的操作是

A)单击鼠标

B)双击文本框

C)鼠标滑过窗体

D)按下键盘上的某个键9、以下叙述中错误的是

A)双击鼠标可以触发dblClick事件

B)窗体或控件的事件的名称可以由编程人员确定

C)移动鼠标时，会触发MouseMove事件

D)控件的名称可以由编程人员设定10、以下哪种方式可以对顺序文件进行数据的写入

A)Print

B)Get

C)Input

D)LineInput四、填空题1．在VB中，对象的三要素分别是属性、___________和___________。2．第一代电子计算机的元件使用电子管，第二代电子计算机的元件使用__________。3．“Y”的ASCII码是89，那么“B”的ASCII码是______________。4．二进制数110，用十进制表示是多少______________。八进制数12，用十进制表示是多少______________。十六进制数20，用十进制表示是多少______________。5．在VB中长整型数据占_______个字节的内存空间。单精度浮点型数据占______个字节的内存空间。6．若用户单击了按钮ABC，则此时将被执行的事件过程名应为：_________________________。7．在VB中将red声明为常量255，使用的语句是_____________________________。8．假定一个窗体的Name属性为form2，为了在窗体标题中显示“你好”，所使用的语句为____________________________。9．表达式Fix(-3.2)+Int(-2.4)的值为______________。10．表达式Len(“Visual”)－Len(“BASIC”)的值是_____________。11．ＶＢ中若要产生一消息框，可用________________函数来实现。五、程序填空题，在标记为[]的地方，填上符合题意的语句，将答案填在答题纸对应的空白处。1、若命令按扭的名称为CmdExit，程序要求单击以上命令按扭时，程序停止运行。请对以下事件过程填空。PrivateSubCmdExit_[CLINK]()[END]EndSub2、在窗体上有两个文本框控件text1,text2用来输入两个整数，有一个命令按钮command1当单击它时计算这两个整数之间的所有奇数之和并用消息提示框把结果显示出来，请填空：[DIM]aAsInteger,bAsIntegerPrivateSub[COMMAND1]()DimiAsInteger,sumAsIntegera=Val(Text1.Text)b=Val(Text2.Text)Ifa[MOD]2=0Thena=[a+1]Fori=[a]To[b]Step[2]sum=sum+iNextiMsgBox[sum]EndSub3、如右图所示的程序,以下给出了用if……then……elseif结构实现的代码：PrivateSubCommand1_Click()IfText1.Text="罗斯福"ThenMsgBox"回答正确！"ElseIfText1.Text="丘吉尔"ThenMsgBox"回答正确！"ElseIfText1.Text="斯大林"ThenMsgBox"回答正确！"ElseMsgBox"回答错误！"EndIfEndSub请用多支条件选择结构实现相同的功能：PrivateSubCommand1_Click()SelectCase[text1.text]case"罗斯福"MsgBox"回答正确！"[case]"丘吉尔"MsgBox"回答正确！"case"斯大林"MsgBox"回答正确！"[else]MsgBox"回答错误"[endselect]EndSub4、已知建筑物矩形桩基础坑底点I、IV的坐标分别为I（A，B）、IV（C，D）及开挖高度G、开挖坡度P，用计算器编程计算该矩形桩基础地面开挖线上1、2、3、4号点坐标（E，F），请填空：程序名；ZJCKWL1A“X1”：B“Y1”：C=A：D=B：G：PL2L=[]（G/P）L3Lbl[1]L4{E，F}：E“XN=”：F“YN=”L5Pol(C-E,D-F)：M=[w]L6M<0=〉M=M+360[]L7N=M+[135]：N>360=〉N=N-360L8X“X”=E+Rec([6]，[7])◢L9Y“Y”=[F]+W[◢]L10C=E：D=F：E=0：F=0L11Goto15、设计一个工程，并能给工程增加密码保护功能，即进入工程后系统先要用户输入口令，且设定的口令为：vbvbvvb,口令正确时进入“热烈欢迎！”界面，“热烈欢迎！”界面的名称是Form2；若口令不正确，则显示“口令错误，请重新输入！”信息；若连续出错三次，则以“非法用户，禁止使用！”信息警告，终止程序；以上分别用TextBox和Label组件来接收用户输入和显示提示信息，请填空：PrivateSubText1_[1](KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfText1.[2]=＂vbvbvvb＂Then[3].ShowUnloadForm1ElseLabel1.[4]=＂口令错误，请重新输入！＂i=[5]Ifi=3ThenText1.[6]=TrueEndIfEndIfEndIfEndSub6、以下为一坐标反算程序的子程序，通过单击窗体上名叫command1的按钮开始执行程序并用消息提示框显示最后的边长和方位角，请填空：PrivateSubCommand1_Click()[1]=InputBox("输入第一个点的x坐标")[2]=InputBox("输入第一个点的y坐标")[3]=InputBox("输入第二个点的x坐标")[4]=InputBox("输入第二个点的y坐标")[5]zbfs(X1,X2,Y1,Y2)EndSubPrivateSubzbfs(xa,xb,ya,yb)ConstPIasSingle=3.14159DimuAsSingle,vAsSingleDimsAsSingle,nAsSingle,rAsSingle,aAsSinglev=xb-xau=yb-yas=Sqr(v*v+u*u)n=Abs(u/v)r=Atn(n)Ifv=0Thena=Sgn(u)*90ElseIfu>0Andv>0Thena=[6]ElseIfu>0Andv<0Thena=[7]ElseIfu<0Andv>0Thena=[8]ElseIfu<0Andv<0Thena=[9]EndIfEndIfMsgBox[10]EndSub7、如图所示，已知1、2、3号点坐标分别为（A、B），（C、D），（E、F），用计算器编程计算角123平分线上距离为L的4号点坐标(G、H)，请填空：1423L1A“X1”：B“Y1”：C“X2”：D“Y2”：E“X3”：F“Y3”：LL2[pol](A-C,B-D)L3I=W：[I]=〉I=I+360L4Pol(E-C,F-D)L5J=W：J<0=〉J=J+360L6K=[J]-I：K<0=〉K=[K]+360L7M=[I]+K/2：M>360=〉M=[M]-360L8G“X”=[C]+[rec](L，M)◢L9H“Y”=[D]+W8.程序说明：利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）图1程序代码如下：DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="动态秒表（小时：分：秒）"Command1.Caption="开始[&S]"Command2.Caption="结束[&E]"Label1.Alignment=2'居中对齐Label1.Caption="0:0:0"Timer1.Interval=⑴Timer1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()⑵EndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsex=⑶Label1.Caption="运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()x=x+1h=⑷m=(xMod3600)\60s=⑸Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub六、判断题1、（）通过改变属性窗口中的name属性，来改变窗体的标题。2、（）Good是一个字符串常量。3、（）对象的三大要素是事件、属性和名称。4、（）VB的程序设计是面向对象的可视化程序设计。5、（）_B是一个合法的VB变量名。6、（）文本框只能输出信息，不能对信息进行编辑。7、（）设置属性的语句格式为：“对象名．属性名＝属性值”。8、（）若用户在键盘上按下一个键，则会产生一个双击事件（Click事件）。9、（）ＶＢ对象的属性只能用赋值语句来修改。（）１0、设置属性的语句格式为：“对象名．属性名＝属性值”。（）11、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。（）12、ＶＢ的赋值语句只能给变量赋值。（）13、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。（）14、窗体大小只能通过鼠标拖动窗体边框来设置。（）15、VB的Double类型数据，可以精确表示其数值范围内的所有实数。（）16、若用户在键盘上按下一个键，则会产生一个Click事件。（）17、罗马数制是进位计数制。（）18、事件过程可以由用户事件触发执行，也可以由其他过程所调用。（）19、DoWhile条件.....Loop和DOUntilNot条件.....Loop两条循环语句，实现循环控制是等效的。七、写出程序的输出结果。PrivateSubForm_Click()DimAasintegerA=200IfA<＝100ThenA=A*10IfA>1000ThenA=A－10 Else A=A＋10 Endif ElseA=A/10IfA=10ThenA=A－10 Else A=A＋10 Endif Endif MsgboxStr(A)EndSub运行程序，单击窗体Form1，消息框中显示:PrivateSubForm_Click()DimSAsIntegerDimNAsIntegerm=1S=2Dom=m+3S=S+mLoopUntilm=4Label1.Caption=Str(S)EndSub运行程序，单击窗体，在下面的Label1中显示Label13.PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("请输入一个正整数="))Ifx<5Thens=s*xElses=s+xEndIfText1.Text="s="+Str(s)EndSub程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。4.PrivateSubForm_Click()Form1.Clsw=3Fork=2To6Step2Form1.Print"w=";w,"k=";kw=w+1NextkForm1.Print"w=";w,"k=";kEndSub写出程序运行时单击窗体后，Form1上的输出结果。5.PrivateSubForm_Click()DimxAsStringDimiAsInteger,nAsIntegerForm1.Clsx="ABCDEFGHKL"n=Len(x)Fori=nTo1Step-2Form1.PrintTab(20-i);Mid(x,i,1)NextiEndSub写出程序运行时单击窗体后，Form1上的输出结果。6.Rem在窗体的通用声明区声明两个模块级变量a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Open"c:\a1.dat"ForOutputAs#1Close#1EndSubPrivateSubCommand1_Click()Open"c:\a1.dat"ForAppendAs#1Callaa(5)y=y+aPrint#1,"y=";y,"a=";aClose#1EndSubSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSub写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。7.PrivateSubCommand1_Click()n=0:x=1:y=0DoWhilex<20n=n+1y=x+yx=x*(x+1)LoopText1.Text="n="&Str(n)Text2.Text="x="&Str(x)Text3.Text="y="&Str(y)EndSub程序运行时单击Command1后，分别写出文本框Text1、Text2和Text3的Text值。8.Functionchg(aAsInteger,bAsInteger)AsIntegerDimnAsIntegerForn=0To2a=a+bNextnchg=aEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=1:b=1Forn=1To3z=chg(a,b)Form1.Print"n=";n,"z=";zNextnEndSub写出程序运行时单击窗体后，Form1上的输出结果。9.PrivateSubForm_Click()Dimx(5)AsIntegerx(1)=8:x(2)=3:x(3)=1:x(4)=6:x(5)=4Fori=1To4Forj=i+1To5Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=tNextj,iFork=1To5Form1.Print"x(";k;")=";x(k)NextkEndSub写出程序运行时单击窗体后，Form1上的输出结果。10.PrivateSubForm_Click()Dima(2,3)AsIntegerFori=1To2Forj=1To3a(i,j)=2*i-jNextj,iForh=1To3Fork=1To2Form1.Printa(k,h),NextkPrintNexthEndSub写出程序运行时单击窗体后，Form1上的输出结果。八、写VB表达式。标签abc的文字颜色不是红色3.九、编程题1.在窗体的单击事件中编写一个程序，计算10！的值并在窗体上输出。2.在窗体的单击事件中编写一个程序，实现将a=12和b=25的值交换。3.在计算器中编写一程序，实现平距与斜距的转换。4.在计算器中编写一程序，实现坐标方位角的推算。十、程序选择填空试题1阅读下列程序和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】界面设计如上图所示，程序运行时要求有以下功能：·按Commandl（出题）后随机生成两个两位正整数存入模块级变量a、b且a＞b，并分别在LabellLabe12中显示，此后Commandl不可用；·在Textl中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Commandl恢复为可用；·按Command2(退出)后以消息框显示所完成题数以及做错的题数，退出。【程序】DimnAsInteger,n_errorAsInteger(1)PrivateSubCommand1_Click()a=10+Rnd*89:b=10+Rnd*89Ifa<bThen(2)Label1.Caption=a:Label2.Caption=bn=n+1:Text1.Text="":Command1.Enabled=FalseEndSubPrivateSubText1_(3)(keyAsciiAsInteger)IfkeyAscii<>13Then(4)'回车键的ASCII码值为13Ifa-b=Val(Text1.Text)ThenMsgBox("回答正确")ElseMsgBox("回答不正确")n_error=n_error+1EndIfCommand1.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox((5))EndEndSub【供选择的答案】（1）A、’小学生两位数减法训练程序B、a=0:b=0:c=0C、n=0:n_error=0D、DimaAsByte,bAsbyte,cAsByte(2)A、b=a:a=bB、c=a:a=b:b=cC、a=b:b=aD、c=a:b=a:a=c(3)A、KeyPressB、ChangeC、KeyDownD、KeyUp(4)A、ExitSubB、KeyAscii=13C、KeyAsecii=0D、ExitDo(5)A、“共”＆n＆“题，错”＆n_error＆“题”B、“共n题，错n_error题”C、“共”+n+“题，错”＋n_error+“题”D、共＆n“题，错”＆n_error＆“题”试题2阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，再输入n个数a1,a2,…，an,按照下列公式计算s的值并显示。(a1(a1-v)2+(a2-v)2+…+(an-v)na1+a2+…annv=s=【程序】PrivateFunctionf((6))AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubcommand1_Click()DimnAsInteger,a()AsSingle,iAsIntegerDimVAsSingle,sAsSinglen=InputBox("输入数据个数")（7）Fori=1Tona(i)=InputBox("a("&i&")=","输入各数组元素")NextiV=f(a,n)/nFori=1Tons=(8)Nexti(9)EndSub【供选择的答案】（6）A、x()AsSingle,nAsIntegerB、x(n)AsSingleC、aAsSingle,nAsIntegerD、nAsInteger,x()AsSingle（7）A、Dima(n)AsSingleB、ReDima()C、Dima(n)D、ReDima(n)（8）A、(a(i)-v)*(a(i)-v)B、s+a(i)-v^2C、s+(a(i)-v)^2D、(a(i)-v)^2（9）A、s=s^0.5/nB、Prints^0.5/nC、PrintSqr(s)D、Sqr(s)/n试题3阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】·图片框控件P1、P2除Name属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；·鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。【程序】(10)PrivateSubp1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)xl=X:y1=YEndSubPrivateSubp1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim(11)jk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-y1)CommonDialog1.Action=(12)P1.Line(xl,y1)-(X,Y),CommonDialog1.Color,BForj=xlToXFori=y1ToYc=(13)'读取该点处的颜色值(14)Nexti,jEndSub【供选择的答案】（10）A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingleC、PublicxlAsSingle,ylAsSingleD、DimxlAsSingle,y1AsSingle（11）A、cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble（12）A、1B、2C、3D、4（13）A、P1.Pset(j,i)B、P2.Pset(j,i)C、P1.Point(j,i)D、P1.Point(i,j)（14）A、P2.PSet((j-xl)*jk,(i-y1)*ik),cB、P1.Pest((j-xl)*jk,(i-yl)*ik),cC、P2.PSet((i-yl)*ik,(j-xl)*jk),cD、P1.Pset((i-yl)*ik,(j-x1)*jk),c试题4阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Text1.Text="":List1.ClearEndSubPrivateSubText1_Keypress(KAsInteger)DimnAsInteger'IfK>=Asc("0")Andk<=Asc（"9"）ThenK=0IfK=13ThenList1.AddItemText1.Text,nn=n+1Text1.Text=""EndIfEndSub(15)运行时在文本框控件Textl中依次输入3个以回车结束的字符串“abc34”、“xy12＄”、“+-*/”,列表框中各表项依次为：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(16)如果将语句DimnAsInteger用StaticnAsInteger替换，运行时在文本框中依次输入3个以回车结束的字符串“abc34”、“xy12$”、“+-*/”.列表框中各表项依次为：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(17)如果将语名DimnAsInteger后一条语句前的注释符删除，运行时在文本框中依次输入3个以回车结束的字符串“abc34”、“xy12$”、“+-*/”，列表中各表项依次为：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc试题5阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一正确答案。【程序】PrivateSubf(sAsString)DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)Nextis=cEndSubPrivateSubCommand1_Click()DimxAsStringx=InputBox("x=")Callf(x)PrintxEndSub(18)单击Commandl后输入“abc”，窗体上显示结果为：A、cbaB、bcaC、abcD、acb(19)单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad(20)如果将Sub过程f首句改为PrivateSubf(ByvalSAsString),单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad(21)如果将Sub过程f首句改为PrivateSubf(ByrefSAsString),单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad试题6阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubcommand1_Click()DimiAsInteger,fnAsBytefn=FreeFileOpen"e:/aaa.txt"ForOutputAs#fnFori=1To20IfSqr(i)=Int(Sqr(i))ThenPrint#fn,iNextiClose#fnEndSub(22)如果文件e:/aaa,txt已存在并已有数据1、4，执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18（23）如果文件e:/aaa.txt不存在，执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、空D、2，4，6，8，10，12，14，16，18(24)如果文件e:/aaa,txt已存在并已有数据1、4，且程序中文件打开方式为Append,执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18试题7阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】•运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<1则重新输入，否则按钮Command1可用；•按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、┄）；•用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。【程序】DimnAsIntegerPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyPress(kAsInteger)If(1)ThenExitSubn=Text1.TextIfn<1ThenMsgBox("n应大于零！"):ExitSubCommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()DimiAsInteger(2)f(1)=1:f(2)=1Fori=(3)f(i)=f(i-1)+f(i-2)Nextik=MsgBox("第"&n&"项为"&f(n)&"，是否继续？",(4))Ifk=vbYesThenText1.Text="":Command1.Enabled=FalseText1.SetFocusElseEndEndIfEndSub【供选择的答案】(1)A、k=13 B、k<>13 C、KeyAscii<>13 D、KeyAscii=13(2)A、Redimf(8)AsLong B、Redi