VB中期测试考试卷(答案)解读

1、江南大学考程序设计基础VB期中试卷题数一二三四总分得分使用专业、班级_学号姓名答题说明：请将答案填写到答题紐。本题得分一、选择题每题1分，共计42分本题得分1.在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是（）2.3.4.A.工程资源管理器窗口B.窗体设计窗口C.属性窗口在设计阶段，当按Ctrl+R键时，所打开的窗口是（）A.工程资源管理器窗口B.工具箱窗口VB应用程序设计的一般步骤是（）。A.分析-设计-界面-编码-测试C.分析-界面-编码-设计-测试以下说法中，正确的是（）A.对象的运行态属性不出现在对象属性窗口中C.属性窗口.D.代码窗口D.代码窗口

2、B.D.界面-设计-编码-分析-文档界面-编码-测试-分析-文档B.属性值只能在属性窗口中设置在程序中可以用赋值语句给对象的任何一个属性赋值属性是对象的特征，所有的对象都有相同的属性以下叙述中错误的是（）。在VisualBasic的窗体中，一个命令按钮是一个对象事件是能够被对象识别的状态变化或动作事件都是由用户的键盘操作或鼠标操作触发的以下描述中错误的是（）。多窗体应用程序中每个窗体作为一个磁盘文件保存多窗体应用程序的启动窗体可以在设计时设定在多窗体应用程序中，可以有多个当前窗体D.多窗体应用程序可以编译生成一个EXE文件以下关于多窗体的叙述中，正确的是（）。只有第一个建立的窗体才是启动窗体向

3、一个工程添加多个窗体，存盘后生成一个窗体文件打开一个窗体时，其他窗体自动关闭D.任何时刻，只有一个当前窗体可以设置为VB程序运行启动对象的是（）。工程文件任意一个窗体窗体模块中的Main（）过程标准模块中的Main（）过程A.B.C.D.D.不同的对象可以具有相同的方法-1-考试形式开卷（）、闭卷（V）,在选项上打（V）开课教研室计算机科学与技术命题教师钱瑛命题时间2018-10-19试卷专用纸试卷专用纸9.以下说法中，错误的是（）。以frm为扩展名的文件是窗体模块文件B.以.bas为扩展名的文件是标准模块文件窗体模块文件包含该窗体及其窗体上相关控件的属性信息标准模块文件由事件过程、通用过程等

4、内容组成10以下叙述中错误的是（）。.vbp文件是工程文件，一个工程可以包含.bas文件.vbg文件是工程组文件，一个工程组可以由多个工程组成.vbp文件是工程文件，一个工程可以包含多个frm文件组成frm文件是窗体文件，一个窗体可以包含bas文件以下叙述中正确的是（）。窗体及窗体上所有控件的事件过程代码都保存在窗体文件中在工程中只有启动窗体可以建立菜单C.窗体名称必须与窗体文件的名称相同程序一定是从某个窗体开始执行的以下关于窗体的叙述中错误的是（）。程序运行期间，可以改变Name属性值B.窗体的Name属性用于标识一个窗体运行程序时，改变窗体大小，能够触发窗体的Resize事件窗体的Enab

5、led属性为False时，不能响应单击窗体的事件以下描述中错误的是（）。A窗体的标题通过其Caption属性设置B窗体的名称（Name属性）可以在运行期间修改C.窗体的背景图形通过其Picture属性设置D.窗体最小化时的图标通过其Icon属性设置窗体Form1上有一名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。PrivateSubForm1_Click（）B.PrivateSubForm_Click（）EndSubEndSubC.PrivateSubCommand1_Click（）D.PrivateSubCommand_Click（）EndSubEndSub假定编写

6、了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。A.ClickB.LoadC.LostFocusD.KeyPress若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的（）方法。A.MoveB.SetFocusC.RefreshD.Drag下列语句中，错误的是（）。A.Label1.Caption=HelloB.Command1.Caption=HelloC.Text1.Caption=HelloD.Frame1.Caption=Hello为了使标签具有“透明”的显示效果，需要设置的属性是（）。A.CaptionB.AlignmentC.Back

7、StyleD.AutoSize使用学期111202总张数教研室主任审核签字张曦煌试卷专用纸江南大学考 为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的（）属性设置为True。AutoSizeB.AlignmentC.AutoRedrawD.Stretch假定一个滚动条的LargeChange属性值为100，则100表示（）。单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B.滚动框位置的最大值拖动滚动框时滚动框位置的变化量D.单击滚动条箭头时滚动框位置的变化量21设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：HS1.Value=（HSl.Max

8、-HSI.Min）/2+HS1.Min则（）。A.滚动条处于最左端B.滚动条处于最右端C.滚动条处于中间位置滚动条可能处于任何位置，具体位置取决于Max、Min属性值22.设窗体上有一个名为List1的列表框，并编写下面的事件过程：PrivateSubList1_Click（）DimchAsStringch=List1.List（List1.ListIndex）List1.RemoveltemList1.ListindexList1.AddItemchEndSub程序运行时，单击一个列表项，则产生的结果是（）。A.该列表项被移动到列表的最前面B.该列表项被删除C.该列表项被移动到列表的最后面D

9、.该列表项被删除后又在原位置插入23窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List_Click事件过程中能正确实现上述功能的语句是（）。List1.RemoveitemList1.TextB.List1.RemoveitemList1.ClearC.List1.RemoveItemList1.ListCountD.List1.RemoveitemList1.Listindex若要引用列表框List1中最后一个数据项的内容，应使用（）。A.List1.List（List1.Count）B.List1.TextC.Lis

10、t1.ListindexD.List1.List（List1.Count-1）窗体上有一名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A.PrintCb1.SelectedB.PrintCb1.List（Cb1.Listindex）C.PrintCb1.Selected.TextD.PrintCb1.List（Listindex）若要获得组合框中输入的数据，可使用的属性是（）。A.ListindexB.TextC.CaptionD.List列表框中的项目保存在一个数组中，这个数组的名字是（）。A.ColumnB.StyleC.MultiSelectD.List为了

11、在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。A.把这2组单选按钮设置为名称不同的2个控件数组B.使2组单选按钮的名称分别相同C.使2组单选按钮的index属性分别相同D.把2组单选按钮分别画到2个不同的框架中2.33.34.窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：PrivateSubForm_LoadOTimer1.Interval=10Timer1.Enabled=FalseEndSub程序运行时，单击命令按钮，则产生的结果是（）。A.命令按钮每10秒向左移动一

12、次命令按钮每10毫秒向左移动一次PrivateSubCommand1_Click()Timerl.Enabled=TrueEndSubPrivateSubTimer1_Timer()Command1.Left=Command1.Left+10EndSubB.命令按钮每10毫秒向右移动一次D.命令按钮每10秒向右移动一次如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（）A.它的Y1、Y2属性的值相等B.它的X1、X2属性的值相等它的X1、Y1属性的值分别与X2、Y2属性的值相等它的X1、X2属性的值分别与Y1、Y2属性的值相等以下说法中正确的是（）MouseUp事件是鼠标向上移动时出触

13、发的事件MouseUp事件过程中的x，y参数用于修改鼠标位置在MouseUp事件过程中可以判断用户是否使用了组合键在MouseUp事件过程中不能判断鼠标的位置以下关于菜单设计的叙述中错误的是（）。A.各菜单项可以构成控件数组B.每个菜单项可以看成是一个控件设计菜单时，菜单项的“有效”不选，即“有效（E）”。表示该菜单项不显示菜单项只响应单击事件设菜单编辑器中各菜单项的属性设置如下表所示：序号标题名称复选有效可见内缩符号1FileFile无2OpenOpenFile13SaveSaveFile14ExitEndOfAll15HelpShowHelp1针对上述属性设置，以下叙述中错误的是（）A.属

14、性设置有误，存在“标题”与“名称”重名现象B.运行程序，序号为“3”的菜单项不显示运行程序，序号为“4”的菜单项不可用D.运行程序，序号为“5”的菜单项前显示“W下列关于菜单的说法中，错误的是（）。只有当代码窗口为当前活动窗口时，才能打开菜单编辑器除了Click事件之外，菜单项不能响应其他事件C.菜单项的快捷键不能任意设置菜单的名称项（Name属性）不可缺省35以下关于弹出式菜单的叙述中，错误的是()。A.弹出式菜单在菜单编辑器中建立B.一个窗体只能有一个弹出式菜单弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为False弹出式菜单通过窗体的PopupMenu方法显示假定已经在菜单编辑器

15、中建立了窗体的弹出式菜单，其顶级菜单项的名称为al,其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=1AndButton=2ThenPopupMenualEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenualEndSubPrivateSubForm_Mouse

16、Down(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=1ThenPopupMenualEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenPopupMenualEndSub窗体上有一个名称为CD1的通用对话框，一个名称为Commandl的命令按钮，并有如下事件过程。运行上述程序，如下叙述正确的是PrivateSubCommand1_Click()CDl.DefaultExt=d

17、ocCD1.FileName=VB.txtCD1.Filter=All(*.*)|*.*|Word|*.Doc|CD1FilterIndex=1CD1.ShowSaveEndSub在窗体上画一个名称为CD1的通用对话框,PrivateSubForm_Load()CD1.DefaultExt=docCD1.FileName=c:files.txtCD1.Filter=应用程序(*.exe)|*.exeEndSub()。打开的对话框中文件“保存类型”框中显示“All(*.*)”实现保存文件的操作，文件名是VB.txtDefaultExt属性与FileName属性所指明的文件类型不一致，程序出错对话

18、框的Filter属性没有指出txt类型,程序运行出错并有如下程序：程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是()。A.应用程序(*.exe)BdocC.txtD.不确定39以下关于通用对话框的叙述中，错误的是（）。若没有指定InitDir属性值，则起始目录为当前目录用一个通用对话框控件可以建立几种不同的对话框FilerTitle属性指明了文件对话框中所选择的文件名文件对话框用属性Filerindex指定默认过滤器，它是一个从0开始的整数下列可作为VisualBasic变量名的是（）。A.A#AB.4ABCC.?xyD.Print_Text以下合法的VB变量名

19、是（）。A.caseB.name10C.t-nameD.x*y设有如下变量声明语句：Dima,bAsBoolean，则下面叙述中正确的是（）。A.a和b都是布尔型变量B.a是变体型变量，b是布尔型变量a是整型变量，b是布尔型变量D.a和b都是变体型变量43表达式Int（Rnd（0）*50）所产生的随机数范围是（）。A.【0,50】B.【1,50】C.【0,49】D.【1,49】下面可以产生2030（含20和30）的随机整数的表达式是（）。A.Int（Rnd*10+20）B.Int（Rnd*20+30）CInt（Rnd*11+20）.D.Int（Rnd*30+20）下列表达式中，不能将一个4位整

20、数N的百位数字提取出来的是（）。A.N100Mod10B.N10Mod100C.Mid（CStr（N）,2,1）D.（NMod1000）100表达式3*5八2Mod233的值是（）。A.2B.5C.6D.10设x是小于10的非负数。对此陈述，以下正确的VB表达式是（）。A.0仝=0andx=0orxbXorcva的值是（）A.TrueB.-1C.FalseD.1设a=2，b=3，c=4，d=5,则下面语句的输出是（）Print32*bOra=cAndbvcOrcdA.-1B.1C.TrueD.False设x=5，执行语句Printx=x+10，窗体上显示的是（）。A.15B.5C.TrueD.

21、False若设X=1,Y=2,则不能在窗体上显示出“A=3”的语句是（）A.PrintA=X+YB.PrintA=;X+YC.PrintA=+Str（X+Y）D.PrintA=&X+Y设x=3.3，y=4.5，表达式x-Int（x）+Fix（y）的值是（）A.4.3B.4.8C.3.5D.4.7下列有关转换函数的说法中，正确的是（）。Int和Cint函数的区别仅在于结果的数据类型不同Int和Fix函数将非整数数据转换成整数，转换后的结果类型是LongCint函数的功能是将其他类型的数据转换成Integer类型在处理负数时，Int和Fix函数的结果是相同的分别执行以下语句，输出结果为True的是

22、()A.PrintClnt(4.5)Int(4.5)B.PrintCInt(-4.5)Fix(-4.5)C.PrintCInt(-45)Int(-45)D.PrintCInt(45)Fix(45)在窗体上画两个名称分别为Textl、Text2的文本框。Textl的Text属性为“Database”。现有如下事件过程，运行程序，在文本框Textl中原有字符之前输入a,Text2中显示的是()。PrivateSubText1_Change()Text2.Text=Mid(Text1,1,5)EndSubA.DataAB.DataBC.aDataD.aBase设x为字符型变量，n为整型变量，以下关于

23、Mid函数的说法中，错误的是()Mid(x,n)表示从字符串x的第n个位置开始向右取所有字符若x=xyz，执行语句Mid(x,1,2)=ab后,x的值为abzMid(x,n,1)的取值与Left(x,n)的取值相同使用Mid函数可提取字符串中指定位置、指定个数的字符设有字符串变量s，其值为“abcd”，可将s的值替换为“aabcd”的语句是()。A.Left(s,1)=aaB.s=aa&Right(s,Len(s)-InStr(s,a)C.s=aa&Mid(s,InStr(s,aa)D.Mid(s,1,2)=aa表达式InStr(4,abcabca,c)+Int(2.5)的值为()A.7B.8

24、C.5D.9,y2x59数学表达式詁x+y-sin()对应的VB表达式是()x-yA.Sqr(x+y)-Sin(Abs(y人2*x)/(x-y)B.Sqr(x+y)-Sin(Abs(yA2*x)/x-y)C.Sqr(x+y)-Sin(|y八2*x|/(x-y)D.Sqr(x+y)-Sin(|y八2*x|/x-y)60.对应数学表达式Sin(30o)+x2+ex-lon的VB表达式是()。Sin(30*314159/180)+Abs(xA2+Sqr(y)+Exp(x)-Log(n)/Log(10)Sin(30)+Abs(x人2+Sqr(y)+e入x-Log(n)/Log(10)Sin(30*31

25、4159/180)+Abs(xA2+Sqr(y)+Exp(x)-Log(n)Sin(30)+Abs(x人2+Sqr(y)+eAx-Log(n)61窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下。运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是()程序运行有错误，数据类型不匹配程序运行有错误，InputBox函数的格式不对在Label1中显示5在Label1中显示23PrivateSubCommand1_Click()x=InputBox(输入x：,0)y=InputBox(输入y：,0)Label1.Caption=x+

26、yEndSub62.63.设程序中有如下语句：运行程序，执行上述语句，输入5并单击输入对X=InputBox（输入，数据,100）话框上的“取消”按钮，则窗体上输出（）。PrintXA.0B.5C100D.空白在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，则在信息框中显示的提示信息为（）A.字符串“123+321”C.数值“44464.65.PrivateSubCommand1_Click（）MsgBoxStr（123+321）EndSub下面4个语句中，错误的是（）A.N=InputBoxC输入N：,5）C.MsgBox请回答以下关于MsgBox函数的说法中，B.字

27、符串“444”D.空白66.67.68.B.InputBox（输入N：,5）D.K=MsgBox（请回答）正确的是（）。B.MsgBox函数没有返回值A.MsgBox函数有返回值，且返回值类型为数值型MsgBox函数有返回值，且返回值类型为字符型通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型以下关于If分支结构语句的说法中，正确的是（）。A.有EndIf一定有与之配对的IfC.有If一定有与之配对的EndIf设有分段函数：x0A.SelectCasexCaseIs0:Y=5CaseIs0:Y=2*xCaseelse:Y=x*x+1EndselectC.Y=IIf

28、（x0,5,IIf（x=5,2*x,x*x+1）B.有If一定有与之配对的ElseIfD.有If一定有与之配对的Else下述选项描述错误的是（）。B.Ifx0Theny=5Elseifx=5theny=2*xElsey=x*x+1EndifD.Ifx0Theny=5Ifx=0theny=2*xIfx5theny=x*x+1设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件PrivateSubCommand1_Click（）过程。程序运行时，如果在文x!=Val（Text1.Text）本框中输入-5，则在单击命令SelectCasex按钮后的输出结果是（）。C

29、aseIs=20:Print输入错误A.25CaseIs0:Print20-xC.5CaseIs10:Print20CaseIs=20:Printx+10EndSelectEndSubB.20D.输入错误 # 69.70.B.Case5=X=10D.Case5To1071.程序运行后，单击窗体，输出结果是（）121213133141816并有如下程序：程序运行后，单击命令按钮Commands输出结果为（）。A.0C.-2B-3D.-1并有如下程序：程序运行后，单击命令按钮Command1,输出结果为（）。A.101C.100B.-5-5D.-56fiasmPrivateSu

30、bForm_Click()a$=123456Fori=1To6PrintTab(12-i);NextiEndSub江南大学考SelectCaseX结构中(X为Integer类型)，若判断条件为X=5,正确的Case语句应该是()。CaseX=5B.CaseIs5C.Case=5D.Case5在SelectCaseX结构语句中(X为Integer类型)，能正确描述5X=5,Is=10C.Case5=X,X=5x=a*bPrintb;xa=a+bb=b+aLoopEndSub窗体上有一个名称为Command1的命令按钮，PrivateSubCommand1_Click()x=15DoWhilex0

31、 x=x-3x=IIf(Int(x/5)=x/5,x+2,x)LoopPrintxEndSub窗体上有一个名称为Command1的命令按钮，PrivateSubCommand1_Click()a=10Fork=1To5Step-1a=a-kNextkPrinta;kEndSub设有如下程序：i：12?d:ill：123456试卷专用纸试卷专用纸 75.76.77.程序运行后，单击窗体，要求结果如图所示，则在A.Left(a$,i)B.Mid(a$,8-i,i)设有如下程序：PrivateSubForm_Click()DimiAsInteger,xAsString,yAsStringx=ABCD

32、EFGFori=4To1Step-1y=Mid(x,i,i)+yNextiPrintyEndSub设有如下程序：PrivateSubForm_Click()DimsAsLong,fAsLong,nAsInteger,iAsIntegerf=1:n=4Fori=1Tonf=f*is=s+fNextiPrintsEndSub有人编写了如下程序：PrivateSubForm_Click()处应填入的内容为()C.Right(a$,i)D.Mid(a$,7,i)程序运行后，单击窗体，输出结果为()AABBCDEFGABCCDEDEFGABCDEFGAABBCCDDEEFFGG程序运行后，单击窗体，输出

33、结果是（）A.32C.34B.33D.35上述程序的功能是：计算s=1+22+32+n2+，直到s10000DimsAsInteger,xAsInteger为止。程序运行后，发现得不到正确的结果，必s=0:x=0DoWhiles=10000 x=x+1s=s+xA2LoopPrintsEndSub须进行修改。下列修改中正确的是()。把x=0改为x=1把DoWhiles=10000改为DoWhiles10000D交换x=x+1和s=s+xA2的位置78.窗体上有一个名称为Command1的命令按钮，其事件过程如下：PrivateSubCommand1_Click()DimiAsInteger,j

34、AsInteger,kAsInteger,sAsDoubles=0:i=1:j=0:k=-1DoWhilei6s=s+k*(j/i)i=i+1试卷专用纸江南大学考 j=j+1以上程序所计算的表达式是：k=-kA.-1/2+2/3-3/4+4/5LoopB.1/2-2/3+3/4-4/5PrintsC.1-1/2+2/3-3/4+4/5EndSubD.-1+1/2-2/3+3/4-4/579.有一个数列，它的前3个数为0,1,1,此后的每个数列都是其前面3个数之后，即0,1,1,2,4,7,13,24,要求编写程序如下：PrivateSubForm_ClickO运行上面的程序，发现输出的数列Di

35、miAsInteger,aAsInteger,bAsInteger不完整，应进行修改。以下正确的DimcAsInteger,dAsInteger修改是（）a=0:b=1:c=1:d=a+b+cA.把Whiled1000Whiled=1000B.在i=5的上面增加一个语句：Printd;Printa;b;c;a=b:b=c:c=d:d=a+b+cC.把i=i+1移到Whiled5Orx-1C.7NextD.3EndSub82.阅读下面的程序段：a=0Fori=1To3Forj=1ToiFork=jTo3a=a+1Nextk执行上面的程序段后，a的值为()A.3B.9C.14D.21NextjNe

36、xti如果一个正整数从高位到低位上的数字一次递减，贝Q称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。PrivateSubCommand1_ClickODimnAsLongDimflagAsBooleann=lnputBox(输入一个正整数)s=Trim(Str(n)Fori=2ToLen(s)IfMid(s,i-1,1)Mid(s,i,1)ThenExitForNextiIfi=Len(s)Thenflag=TrueElseflag=FalseIfflagThenPrintn;是降序数ElsePrintn;不是降序数EndSub运行

37、以上程序，发现有错，需要对给flag变量赋值的If语句进行修改。以下正确的修改是()。Ifi=Len(s)+1Thenflag=FalseElseflag=TrueIfi=Len(s)+1Thenflag=TrueElseflag=FalseIfi=Len(s)-1Thenflag=FalseElseflag=TrueIfi=Len(s)-1Thenflag=TrueElseflag=False窗体上有一个名称为Command1的命令按钮，并有如下程序：该程序的功能是()。求数值m和n的最小公倍数求数值m和n的最大公约数求数值m和n中的较大数求数值m和n中的较小数PrivateSubComma

38、nd1_Click()DimmAsInteger,nAsIntegerm=InputBoxC输入第一个数)n=InputBoxC输入第二个数)DoWhilemnDoWhilemnm=m-nLoopDoWhilenmn=n-mLoopLoopPrintmEndSub本题二、写出程序运行结果每空2分，共计20分得分说明：执行下述程序，按输出格式要求写出运行结果。执行下面程序，单击命令按钮Commandl，窗体上显示的第一行内容隹【L,第二行内容是【2】，第三行内容是【3】，最后一行内容是【4】。PrivateSubCommand1_ClickODimaAsInteger,bAsInteger,iA

39、sIntegera=1b=5Fori=bToaStep-1a=a+1b=b+aIfb30ThenExitForPrinta,bNextiPrinta,bEndSub执行下列程序，单击按钮Command1，窗体上显示的第一行内容是【5】，第二行内容是【6】，第三行内容是【7】。PrivateSubCommand1_Click0DimaAsInteger,bAsIntegera=4:b=3DoUntila10b=b/2DoUntilb10a=(a+b)2+bb=b+5Printa,bLoopa=a-3LoopEndSub执行下面的程序,单击窗体后，窗体上显示的第一行内容是【8】第三行内容是【9】，

40、最后一行内容是。PrivateSubForm_Click()DimxAsInteger,yAsInteger,sumAsIntegerForx=1To3Fory=1To2sum=sum+yIfsum2ThenExitForNextyPrintsum;xNextxPrintx;yEndSub本题得分三、程序完善题每空2分，共计38分在窗体上画一个名称为Timerl的计时器控件，其Enabled属性值设为False，Interval属性值设为100，要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆，其效果如图所示。DimaAsInteger,bAsIntegerP

41、rivateSubForm_【1】(ButtonAsInteger,ShiftAsInteger,XAsSingle,_AsSingle)a=X:b=YTimer1.Enabled=【2】EndSubPrivateSubTimer1_Timer()Form1.Circle(a,b),100EndSub设窗体上有一名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键停止实时显示，并将标签中内容清除。DimDownAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAs

42、Integer,XAsSingle,_AsSingle)SelectCaseCase1:Down=TrueCase2:Down=FalseEndSelectEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If14Then【5】=X=&X&Y=&YElseLabell.Caption=EndIfEndSubPrivateSubCommand1_Click()x=1:result=1Whilex=10result=【6】x=x+1WendPrintresultEndSub4.在窗体上

43、画一个命令按钮，其名称为Command2，然后编写如下事件过程:该程序的功能是，单击命令按钮，则计算并输出一下表达式的值:1+(1+3)+(1+3+5)+(1+3+5+39)在窗体上画一个命令按钮，其名称为Commandl，其名称为Commandl,然后编写如下事件过程，用来计算10的阶乘。请填空。PrivateSubCommand2_Click()t=0:m=1:Sum=0Dot=t+【7】Sum=Sum+tm=m+2LoopWhile【8】PrintSumEndSub5.窗体上有一个名称为List1的列表框，列表框中有若干数据项，列表框的Style属性为1；有一个名称为Label2的标签；还有一个名称为Command1，Caption属性为“计算”的命令按钮(见图)。运行程序，在列表框中选中某些数据项后，单击命令按钮，则可以计算所选数据之和，并将结果显示在标签Label2中。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()s=010】Fori=0ToList1.ListCount-1If【9】Thens=s+NextLabel2.Caption=【11】EndSub 试卷专用纸6用以下公式