VB复习题含答案

1、VB复习题一、选择题1设窗体上有一个文本框，名称为textl,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：BA)text1.maxlength=0B)text1.enabled=falseC)text1.visible=falseD)text1.width=02以下能在窗体Forml的标题栏中显示"VisualBasiC®体"的语句是CA) Form1.Name="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption=&qu

2、ot;VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivateSubCommand1_Click()x=InputBox("Input")SelectCasexCase1,3Print"分支1"CaseIs>4Print"分支2"CaseElsePrint"Else分支"EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A)分支1B)分支2

3、C)Else分支D)程序出错4 以下关于MsgBox的叙述中，错误的是D(见书P88-92)A) MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是DA)Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer1.Interval=50D)Timer1.Interval=5006 在窗体上画一个名称为C

4、ommand1的命令按钮，然后编写如下事件过程：BPrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A)42B)1218C)1230D)467 以下叙述中错误的是DA)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定8 以下合法的VisualBasic标识符是AA)ForLoopB)ConstC)9abcD)a#x9 当一个复选框被选

5、中时，它的Value属性的值是CA)3B)2C)1D)010 表达式5Mod3+35*2的值是BA)0B)2C)4D)611 设x=4,y=8,z=7，以下表达式的值是Dx<yAnd(Noty>z)Orz<xA) 1B)-1C)TrueD)False12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：APrivateSubCommand1_Click()a$="VisualBasic"PrintString(3,a$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)VVVB)VisC)sicD)1113 设有如下程序段

6、：x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是BA)26B)27C)38D)5714 如果编写的过程要被多个窗体及其对象调用,应将这些过程放在那类模块中?BA)窗休模块B)标准模块C)工程D)类模块15 执行如下两条语句，窗体上显示的是DPrintFormat(a,"$00,00.00")B) $9.86C)9.8617 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Print

7、x,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)105B)125C)107D)12718 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOptionBase1PrivateSubCommand1_Click()Dima(5)asIntegerDimiAsIntegerFori=1ToUBound(a)a(i)=iNextiFori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行

8、后，单击命令按钮，则在窗体上显示的内容是A)4B)5C)6D)719 阅读程序OptionBase1PrivateSubForm_Click()Dimarr(10)asintegerDimSumasintegerDimiasintegerSum=0Fori=1To10Arr(i)=2*i-1NextiFori=1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输入结果为CA)13B)14C)27D)1520 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：DOptionBas

9、e1PrivateSubCommand1_Click()Dima(5)AsVariantDimi,xAsIntegerDimsumAsIntegerFori=1ToUBound(a)a(i)=iNextisum=0Fori=1To5sum=sum+a(i)Nextix=sum/5Fori=1To5Ifa(i)>xThenPrinta(i);NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)12B)123C)345D)4521 .在VisualBasic设计界面中不能隐藏的窗口是(A)。A)工程窗口B)属性窗口C)立即窗口D)窗体窗口22 .以下可以构成语句的一项是(

10、B)。23 .以下不是VisualBasic的特点的选项是(B)。A)可视编程B)算法设计C)事件驱动D)面向对象24 在VisualBasic中通过(A)属性来设置字体的颜色。A)FontColorB)ClipControlC) BackColorD)ShowColor25 设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用(D)属性。A)ControlBoxB)ClipControlC)BordeStyleD)AutoRedraw26 (C)是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。A)文件B)属性C)方法D)窗体27 以

11、下不属于同类的是(A)。A) ClickB) NameC) CaptionD) Top28当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是(B)。A)AutoSize属性B)Resize事件C)AutoRedraw属性D)Stretch方法29 .对象可以识别和响应的某些行为称为（D）。A）属性A）方法C）继承D）事件30 与传统的程序设计语言相比，VisualBasic最突出的的特点是（C）。A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术31在正确安装VisualBasic6.0后，可以通过多种方式启动VisualBasic。以下方式中，不能启动Vis

12、ualBasic的是（D）。A）通过“开始”菜单中的“程序”命令B）通过“我的电脑”找到vb6.exe,双击该文件名C）通过“开始”菜单中的“运行”命令32为了用键盘打开菜单和执行菜单命令，第一步应按的键是（A）。A）功能键F10或AltB）Shift+功能键F4C）Ctrl或功能键F8D）Ctrl+Alt33 VisualBasic6.0集成环境的主窗口中不包括（C）。A）标题栏B）菜单栏C）状态栏D）工具栏34 用标准工具栏中的工具按钮不能执行的操作是（B）。A）添加工程B）打印源程序C）运行程序D）打开程序35 VisualBasic窗体设计器的主要功能是（A）。A）建立用户界面B）编写

13、源程序代码C）画图D）显示文字36 在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是（B）。A)编写代码B)新建一个工程C)打开属性窗口D)进入VisualBasic环境37 下列不属于VisualBasic6特点的是(C)。A)对象的链接与嵌入B)结构化程序设计C)编写跨平台应用程序D)事件驱动程序编程机制38 下列不是VisualBasic6.0中打开工程的方法(A)。A) Alt+OB)执行“文件”菜单中的“打开工程”命令C)Ctrl+OD)单击标准工具栏上的“打开工程”按钮39 下面关于VisualBasic6.0工具栏的说法不正确的是(B)。

14、A)工具栏的位置可以任意改变B)工具栏一定在菜单栏的下方C)工具栏可以显示或隐藏D)VisualBasic有多个工具栏40 下列各组函数中，函数值类型相同的一组是(C)。A)Exp(x)、Chr(x)、Lcase(x)B) Asc(x)、Str(x)、RTrim(x)(注：Asc(x)为转换函数)C) Sgn(x)、Cint(x)、Asc(x)D)Fix(x)、Left(x)、Ucase(x)41可以使X为数值型数据的语句是(A)。A) X=val(InputBox("请输入数据")B) X=InputBox$("请输入数据")D) X=Listl.li

15、st(3)42既可用于输入数据又可用于输出数据的控件是(B)控件。A)LabelB)TextBoxC)ListBoxD)OptionButton43可用作输入数据的控件是(A)控件。A)OptionButton和CheckBoxB)ListBox和ComboBoxC) Label和TextBoxD) Form和Frame44阅读事件过程，回答问题。PrivateSubCommandl_Click()x=InputBox("请输入X的值：")y=Text1.Textz=x+yDebug.PrintzEndSub在InputBox函数弹出的对话框中输入123,在文本框Textl

16、中输入456。单击命令按钮Commandl后，窗口上立即显示出(C)。A) 123B) 579C)123456D)错误信息45已执行语句x=123456.789,输出x值时要求加午位分隔答，小数点后取2位有效数字。下列格式输出语句正确的是B。(注：见P82-84)A)PrintFormat$(x,#,#.#)B)PrintFormat$(x,"#,#.#")C)PrintFormat$(x,",#.#")D)PrintFormat$(x,"#,.#")465。旧济$函数中，格式说明符的使用规则正确的是B。A)格式符“#”与“0”的作用

17、完全相同B)格式符与格式符"#”与“0”结合使用，用于确定输出数据的小数点位置C)若Format$函数中使用“”或“$”格式符，则在所显示的数值后加上一个“”负号或一个“$”号D)格式符“+”或格式符“-”表示：若输出正数，则在数值前加上一个正号；若输出负数，则在数值前加上一个负号47下列程序段的执行结果为一A一。A="HELLOGOODMORNING”B="WANGCHANGLI”C=Left(A,5)+"!"D=Right(A,7)E=Mid(A,6,4)F=Mid(B,Len(B)-6,5)+"!"G=E+"

18、"+D+"!"H=C+""+FPrintH+""+GA)HELLO!CHANG!GOODMORNING!B)HELLO!WANG!GOODMORNING!C)HELLO!LI!GOODMORNING!D)HELLO!CHANG!GOOD!MORNING!48有如下程序：DefStrX-ZX="123"Y="456"Z=X$+Y$PrintZ$End运行后，输出的结果是B。A)显不'出错信息B) 123456C) “579”D) 57949选拔身高T超于1.7米且体重W小于62.

19、5公斤的人，表示该条件的布尔表达式C50如果将布尔常量值True赋值给一个整型变量，则整型变量的值为BA) 0B) -1C) TrueD) False51下列符号常量的声明中，C是不合法的。B) ConstaAsInteger="12"C) ConstaAsDouble=Sin(1)D) Consta="OK"52以下不合法的常量是一A。A) 10A2B) 100D)10E+0153有如下程序：a$="Flying":b$="IS":c$="funny!"Printa$+""

20、+Lcase$(b$)+""+Ucase$(c$)End运行后输出的结果是B。A) FlyingIsfunny!B) FlyingisFUNNY!C) FlyintgISFUNNY!D) FLYINGISFUNNY!54下列符号A是VisualBasic中的合法变量名。A) x23B) 8xyC) ENDD) X8B55下面D不是字符串常量。A)“你好”B)""C)"True"D)#False#56表达式Val(".123E2CD")的值是B。A).123C) 0D) .123E2CD57VisualBasic布尔

21、运算符Xor、Or、Eqv、And中，级别最高的运算符是DA) XorB) OrC) EqvD) And58有如下程序a$="China”b$=Right$(a$,3):c$=String$(3,b$)Printc$End运行后输出的结果是C。A) ChiB) aaaC) iiiD) ina59在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B) 工具箱窗口C) 代码窗口D) 属性窗口60 以下叙述中正确的是(A)A) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的

22、Name属性的值D) 对象的Name属性值可以为空61 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)A) 单选按钮B) 图片框C) 通用对话框D) 文本框62 设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是(A)A) TestDate=#112002#B) TestDate=#1/1/2002#C) TestDate=date(1/1/2002)D) TestDate=Format("m/d/yy","1/1/2002")63 设有如下声明：DimXASInteger如果Sgn(X)的值为-

23、1,则X的值是(D)A)整数B)大于0的整数C)等于0的整数D)小于0的数64在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=lY=Y+5X=5+XPrintX，YEndSub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为(C)A) 1516B) 156C) 155D) 5665设a=3,b=5,则以下表达式值为真的是(B)A) a>=bAndb>10B) (a>b)Or(b>0)C) (a<0)Eqv

24、(b>0)D) (-3+5>a)And(b>0)66设有语句x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是(D)A) 变量X的值是数值10B) 在InputBox对话框标题栏中显示的是“示例”C) 0是默认值D) 变量X的值是字符串“10”67从键盘上输入两个字符串，分别保存在变量字符串中起始位置的函数是(D)A) LeftB) MidC) StringD) Instr68设a="VisualBasic",下面使b=&qu

25、ot;Basic'A) b=Left(a，8，12)B) b=Mid(a，8，5)C) b=Right(a，5，5)D) b=Left(a，8，5)69下列程序PrivateSubForm_click()DimaAsInteger,bAsInteger,xAsIntegera=InputBox(“a=?”)b=InputBox(“b=?”)x=a+bIfa>bThenx=a-bPrintxEndSub运行时从键盘输入3和4，输出的x的值是(str1、str2中。确定第二个字符串在第一个C)。A3B5C7D970下列程序PrivateSubForm_click()E=1:F=1Fo

26、rJ=1to3E=E+F:F=F+ENextJPrintE;FEndSub该程序的输出结果是(C)。A66B58C132171 下列程序PrivateSubForm_click()Forx=1to2a=0Fory=1tox+1a=a+1NextyPrinta;NextxEndSub运行时输出的结果是(D)。A11B00C1272 下列程序PrivateSubForm_click()s=Val(InputBox(“inputvalueofs:”)SelectCasesCaseIs<6f=s+1CaseIs<5f=s+2CaseIs<4f=s+3CaseElseF=s+4EndS

27、electPrints;fEndSub运行时从键盘输入6，输出的结果是(D)。A67B68C69D3455D61073 下列程序PrivateSubForm_click()m=1Fork=3to1Step1x$=String(k,“*”)Printm;x$M=m+1NextkEndSub运行后输出是(D)。A1*B1*2*2*3*3*C3*2*1*D1*2*3*D36D318274 下列程序PrivateSubForm_click()Sum=0Forj=1to10Ifj=10ThenElseSum=Sum+jEndIfNextjPrintsumEndSub运行时输出结果是(A)。A45B55C

28、显示错误信息75 下列程序PrivateSubForm_click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber;sEndSub运行输出的结果是(D)。A01B3030C43076 下列程序PrivateSubForm_click()a=70Forj=1to4x=Val(InputBox(“请输入一个数”)IfxMod5=0Thenb=b+x:a=xElseb=b+aEndIfNextjPrintbEndSub运行时输入75,55,42,80,输出的结果是(B)。A252B265C280D28577 下列程序Pri

29、vateSubForm_click()c=4d=Val(InputBox(“请输入一个数”)DoWhiled>0Ifd>cThenc=c+1d=Val(InputBox(“请输入一个数”)LoopPrintc+dEndSub运行时输入9,8,7,6,5,4,3,2,1,0，输出的结果是(C)。A5B6C7D878 下列程序PrivateSubForm_click()c=4x=Val(InputBox(“请输入一个数”)Whilex<>-999Ifx>cThenc=xX=Val(InputBox(“请输入一个数”)WendPrintc;:PrintAbs(x)End

30、Sub运行时输入5,9,8,2,-999，输出的结果是(C)。A98B92C9999D2999二、填空题1 在对象名与事件名之间用_符号连接。窗体的对象名用Form表示。2 VisualBasic的窗体和控件是具有自己的属性、事件和方法的对象。3 窗体和控件的大部分属性可以通过属性窗口设置、也可以通过程序代码设置。4在面向对象程序设计中，对象是一个由代码和数据组成的概念。5 VisualBasic中的对象包括窗体、控件和可访问的实体。6 .Name属性的含义是设置对象名称,窗体的默认Name属性是Forml7 .Show方法的作用是显示一个窗体,Hide方法的作用是隐藏一个窗体。8 .一个窗体

31、对象，其最先发生的事件是Load事件，最后发生的事件是Unload事件。9 .移动窗体时，为了初始化该窗体中的各控件，可选用窗体的Load事件；关闭窗体用Unload事件。10 .窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的顺序是：KeyDown卜KeyPress卜KeyUp。11 .设A=37,贝UHex(A)=25,Oct(A尸45。12 .若A=120,B=80,C=70、D=30,贝U式A+B>160Or(B*C>200AndNotd>60)的值是True。13 .VisualBasic中，变量名字只能由英文字母、数

32、上下划线组成,总长度不得超过255。14 .表达式6Mod2*6A2/62的值为0。15 .表达式Len(Str(1.3)的值为4。1ox/(0.5+x2)的VisualBasic表达式为(logx/log10)/(0.5+xA2)。(注：超过要求)17 .表达式Int(Rnd*10+0.5)可能的全部值0,1,2345678,9,10。18 .Format(10,"0.00%”)的返回值为1000.00%。19 .设有如下程序段:a$="BeijingShanghaib$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为

33、Shanghai。20 .VisualBasic应用程序中工程文件的扩展名是vbp21Picture1.picture=loadpicture(");而将与工程文件同在一目录下的Picture1.picture=loadpicture(app.path+)22在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1,程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。PrivateSubOption1_Click(IndexAsInteger)SelectCase_indexCas

34、e0a="宋体"Case 1 a="黑体"Case 2 a="楷体GB2312”EndSelecttext1.fontname=aEndSub23在窗体上画两个组合框，其名称分别为Combol、Combo2,然后画两个标签，名称分别为Labell、Label2,如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。PrivateSubCombo1_Click()CallShowItem(Combo1,Label1)EndSubPrivateSubCombo2_Click()CallShowIte

35、m(Combo2,Label2)EndSubPublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)tmpLabel.Caption=_tmpCombo.TextEndSubE24下面程序的功能是计算1到10之间的奇数之和及偶数之和，请在处填入正确的语句。PrivateSubForm_Click()a=0c=0Fori=1To10Step2a=a+ic=c+i+1NextIPrint奇数之和="aPrint偶数之和="cEndSub25 .下面程序的功能是：输出100以内能被3整除且个位数为6的所有整数。PrivateSub

36、Form_Click()Fori=1To=10一j=i*10+6If_jmod3=0ThenPrintj;EndIfNextiEndSub26 .设有以下程序PrivateSubForm_Click()n2=Val(InputBox(请输入一个数”)DoWhilen2<>0n1=n2Mod10n2=n210PrintStr(n1)LoopEndSub程序运行后，如果从键盘上输入1298,则输出结果为8,9,2,1。27 .下列程序运行的输出结果是8。PrivateSubForm_Click()i=10:j=0Doj=j+1i=i-1LoopWhilei>2Printj;End

37、Sub28下列程序是在键盘上输入月份的数值，即112之间的一个整数，计算机即打印出该月份的季节(12,1,2为冬季，其余类推)。如输入7,则打印出Summer,请在处补充完整程序。PrivateSubForm_Click()Don=InputBox(Thenumberofmouth-")LoopUntiln>0Andn<13m=_nSelectCasemCase3,4,5PrintSpring”Case6,7,8PrintSummer”Case9,10,11PrintAutumn”CaseElsePrintWinter”EndSelectEndSub、写程序运行结果设有以

38、下函数过程：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10)调用此函数，则s的值为30设有如下程序：PrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub程序运行后，单击窗体，输出结果为36。四、程序设计题1、编写程序，(1)计算1-2+3-+99的值使用For循环

39、语句，相应的程序如下：PrivateSubForm_Click()Dimsum,iasintegersum作为存放总和的变量sum=0(2)计算1-1/2+1/3-+1/n的值(N值由键盘输入)使用While循环语句，相应的程序如下：PrivateSubForm_Click()Dimsum,iasintegersum作为存放总和的变量2、验证哥德巴赫猜想(使用函数过程)3、用选择法对数组a(10)进行排序(a数组元素的值在1100之间)4、编写费波拉契序列的递归过程第四章控制结构第二题、单选题(共45分，每项1.5分)1. If结构的结束语句是。5A.EndSelectB.EndSubC.En

40、dIfVD.EndDo2. InputBox函数的返回值的类型为。4A.数值B.字符串V3. MsgBox函数的返回值的类型为。5A.整数，4. 通过代码在运行时设置属性的语法格式为。14A.对象名=属性.新值B.对象名.属性=新值,C.对象名.新值=属性.新值D.对象名.属性=属性.新值第三题、简单程序(共15分，每项1.5分)1 .从键盘输入一个实数mm,利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是。11PrivateSubCommand1_Click()mm=Val(InputBox("请输入一个实数")n$=Str$(m

41、m)p=InStr(n,".")'InSt)函数：指定一字符串在另一字符串中最先出现的位置Ifp>0ThenPrintMid(n,p)Mid语句来得到某个字符串中的几个字符ElsePrint"END"EndIfEndSubC.输出数据的小数部分VD.只去掉数据部分的小数点，保留所有数码输出2.运行下面程序后，在弹出的消息窗口中显示的是。7PrivateSubForm_Click()score=Int(Rnd)+5当参数为负数时，Int函数返回小于或等于该参数之最大整数，rem而Fix函数则返回大于或等于该参数之最小整数。SelectCase

42、scoreCase5a$="Good"Case4a$="Ok"Case3a$="Pass"CaseElsea$="Bad"EndSelectMsgBoxa$EndSubA.BadB.PassC.OkD.Good，3. 以下程序的输出结果是。8PrivateSubCommand1_Click()a=100Dos=s+aa=a+1LoopUntila>100printaEndSubA.100B.120C.201D.101Vz4. 以下程序的循环次数是。11PrivateSubCommand1_Click()For

43、j=8To35Step3Printj;NextjEndSubA.10iM(35-8)/3+1,5. 执行下面程序段后，变量a的值为。20ForI=1To3Forj=1ToIFork=jTo3a=a+1NextkNextjNextIB.9C.14Vz6. 执行下面程序段后，变量x的值为。20x=5ForI=1To20step2x=x+I5NextIA.21Vz7. 当输入4时，以下程序的输出结果是。7PrivateSubCommand1_Click()x=InputBox(x)IfxA2<15Theny=1/xIfxA2>15Theny=xA2+1PrintyEndSubA.4B.1

44、7Vz8. 运行下面程序后，在弹出的消息窗口中显示的是。3PrivateSubForm_Click()Dimcountercounter=0Whilecounter<20counter=counter+1WendMsgBoxcounterEndSubA.0B.21C.20Vz9. 运行下面程序后，在窗体中显示的是。4PrivateSubForm_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)指定长度重复字符的字符串。Printx$;NextkPrintEndSubA.、*B.*$*$*$C

45、.1*$2*$3*$D.、$，10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为。7PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSubA.1和0B.2和72Vz11. 执行下面的程序段后，I的值为。3s=2s=s+1NextIA.6.4BV12. 执行下面的程序段后，变量S的值为。3S=5ForI=2.6To4.9Step0.6S=S+1NextIA.7B.8C.9Vz13. 在窗体中添加一个文本框(其中Name属性为T

46、ext1),然后编写如下代码：2PrivateSubForm_click()Text1.Text=""ForI=1To10Sum=Sum+INextIText1.Text=SumEndSub上述程序运行后，单击窗体，则运行的结果。A.在文本框Textl中输出55Vz14. 运行下面程序后，在弹出的消息窗口中显示的是。2PrivateSubForm_Click()k=0DoWhilek<70k=k+2k=k*k+ka=a+kLoopMsgBoxaEndSubA.64B.72C.78Vz第二卷主观题填空题(共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左

47、至右的顺序添入答题卡！)1 .请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。14PrivateSubForm_Click()Forx=1To50Fory=xTo50z=Sqr(x*x+y*y)Ifz<=50Andz=Int(z)ThenPrintx;y;zZ是小于50的整数吗NextyNextxPrintEndSub2 .在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程2PrivateSubCommand1_C1ick()DimaAsStringa=123456789”Fori=1To5PrintSpc(6-I);Mid$(a,6-1,2*I-1)NextIEndSub程序运行后，单击命令按钮，要求窗体上显示的输出结果为5456345672345678123456789请填空。3 .请用正确的内容填空。下面程序运行后，输出的结果是：*PrivateSubForm_Click()ForI=1To4PrintTab(10+I);Forj=1To8Print"*"NextjPrintNextIEndSub4 .请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。PrivateSubForm_Click()a$=&