上海海事大学VB题库教学提纲

上海海事大学VB题

库1、写出用随机函数产生一个200至300之间整数的VB表达式[1].答案：200*+*lnt(*Rnd*100*)或200*+*lnt(*100*Rnd*)2,已知文本框的内容为"ABCDE"，若文本框Selstart=4,Sellength=2,则SelText为【1】.答案：DE3、VB提供了列表框控件，当列表框中的项目较多，超过了列表框的长度时，系统会自动的在列表框边上加一个【1】.答案：垂直滚动条或滚动条4、想拥有"快捷键”这项功能,必须在"菜单编辑器"中增加一些特殊的设置，也就是在字母之前加上[1].答案：&5、列表框(ListBox)显示【1】，用户可以从中选择一个或多个项目.答案：项目列表或列表6、设置控件背景颜色的属性名称是【1】.答案：backcolor7、如果在模块的声明段中有OptionBase0语句，则在该模块中使用Dima(6,3To5)声明的数组有【1】个元素.答案：218、定时器控件的Interval属性值是指时间间隔，单位为毫秒;当每隔此间隔的时间，定时器会触发一次【1】事件.答案：Timer9、写出清除标签Labell的显示信息的语句为【1】.答案：Labell,caption=""或Labell=""或Label1.Caption=""10、写出清除图片框的文字或图形信息的语句【1】.答案：Picturel.cis或cis11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的［1］属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E访问，应设置属性【1】.答案:Caption14、当程序运行时，要求窗体中的文本框呈现空白，则在设计时，把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线)，则其Caption属性设置为［1］.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、VisualBasic为添加到窗体上的第一个图片框picture提供的默认对象名为［1］.答案：Picturel18、使用Scale方法建立窗体Forml的用户坐标系淇中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为［1］.答案：forml.scale(-200,250)-(300,-100)19、如果在模块的声明段中有OptionBase1语句，则在该模块中使用Dima(3To5,6)声明的数组有【1】个元素.答案：1820、把"VisualBasic程序设计”添加到列表框IstBooks的语句为［1］.答案：IstBooks.Additem"VisualBasic程序设计”21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义［11.答案：public*mystringik-as^string*1522、若要在字符串asdgewl中取dge,则使用函数［1］实现.答案:Mid$(asdgewl$,2,3)或Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中，不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\Calc.exe,可在程序代码窗口必要的地方添加语句【1】.答案:shell("c:\windows\Calc.exe")或shell("calc.exe")24、设置计时器控件只能触发【1】事件.答案：timer25、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Forml上以(15,15)为圆心,10为半径画圆，具体形式为［1］.答案:forml.circle(15,15),1027、使用Move方法把图形框Picturel的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为［1］.答案:Picturel.move200,100,picture1.width/sqr(2),picturel.height/sqr(2)28、对象是既包含m又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change30、以图片框Pic1的中心位置为圆心，以700为半径在Pic1上画•个圆的方法是【1】.pic1.Circle(pic1,width/2,pic1.height/2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案：interval32、对象具有属性和【1】答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案：CTRL+R34、列表框控件不支持Click事件,但支持［1］事件.答案：dblclick35、VisualBasic中的文本框中要使该框不允许多行输入,应设置［11属性为false.答案：MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案：click37、将焦点定位于命令按钮Commandl之上的语句为【1】.答案：Commandl.SetFocus或SetFocus38、滚动条控件主要支持两个事件,它们是scroll和11】事件.答案：change39、文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件或随机40、由Fork=35to0step3:nextk循环语句控制的循环次数是【1】.答案：041、循环语句FORK=1TO10STEP-1控制的循环次数为［1］.答案：042、由Fork=35to0step3:nextk循环语句控制的循环次数是【1】.43、VB中，变量的声明可分为两种方法：【1】数组和动态数组.答案：静态44、OptionBase1的作用是确定数组的下界为［1］.答案：145、VB中,变量的声明可分为两种方法:隐式声明和［1］.答案：显式声明46、一元两次方程ax2+bx+c=0有实根的条件为aWO,并且b2-4ac20,列出逻辑表达式［1］答案：a<>0★and★bA2-4*a*c>=047、在VB6.0中，设Single型变量XYZ的值为123.45,若要将其转换成字符串，应使用的类型转换函数是［1］.答案：STR或CSTR48、由Dima(10)Assingle定义的数组占用［1］字节的内存空间.答案：4449、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】.答案：VAL或Cint50、在VB中，若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示，应当将这个文本框的［1］属性的值设置为True.答案：MultiLine51,大于X的最小整数的VB表示形式为【1】.答案：lnt(x)+1或lnt(x)*+*152、一个工程可以包括多种类型的文件，其中扩展名为.bas的文件表示【1】文件.答案：标准模块或模块53、在VB6.0中，变量名最长可达【1】个字符. 答案：25554、在VB中，若要改变一个窗体的标题，应在属性窗口中改变这个窗体的【1】属性的值.答案：Caption55、在控件之中，【1］不能从工具箱中被删除.答案：内部控件或标准控件56、在VB中，若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.答案：OptionExplicit57、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是name和11】.答案：caption58、一个工程可以包括多种类型的文件，其中ActiveX控件的文件扩展名为【1】.答案：OCX59、在利用VisualBasic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和［1］ 答案：逻辑错误60、要使一个按钮无效，则可把它的Enable属性设为【1】.答案：False61、在VB中,窗体由属性定义外观，由［1］定义行为，由事件定义其与用户的交互.答案：方法62、一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示【1】文件.答案：工程63、一个工程可以包括多种类型的文件，其中，扩展名为.frm的文件表示【1】文件.答案：窗体64、要使同一类型控件组成一个控件数组，必须要求【1】.答案：Name相同或名称相同65、要使一个按钮设为默认按钮，应把此按钮的【1】属性的值设为True.答案：Default66、在VB中，若要重新定义一个动态数组的元素个数，应当使用【1】语句对其进行重新定义.答案：ReDim67、在控件之中，【1】单独保存在.OCX文件中，在必要时可以加入到工具箱中.答案：ACTIVEX控件68、VB中的变量按其作用分为全局变量，模块变量，【1】.答案：局部变量69、在一条Dim语句中可以声明多个变量，如DimstrVar,intVar,sngVarAsInteger,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和【1】.答案：Integer70、设x为大于零的实数,则大于x的最小奇数的VisualBasic表达式是[1].答案:IIF(int(x)mod2=0,int(x)+2,int(x)+1)71、说明变量类型有隐含类型说明和【1】两种方法.答案：强制类型或强制类型说明72、表达式(-3)Mod8的值为【1】.答案：-373、设X$="abc123456"则"a"+str$(val(right(X$,4)))的值是[1].答案:a345674、设a=2,b=3,c=4,d=5,则NOTa<=cOR4*c=bA2ANDb<>a+c的值为[1].答案：False75、String(3,"abc")的结果为[1].答案：aaa76、VB的工作模式可分为三种:"设计"、"运行"以及"[1]答案：中断77、VB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符.答案：连接78、Integer类型的变量占用【1】字节空间.答案：279、表达式81\7MOD2A2的值是[1].答案：380、设x为一个两位数，将x个位数和十位数交换后所得两位数VB的表达式是【1】.答案：(xmod10)***10*+*int(x/10)81、求x与y之积除以z的余数的VB表达式为【1】.答案：x*y*Mod*z82、变量min&表示【1】类型的变量.答案：长整型83、A和B同为正整数或同为负整数的VB表达式为[1].答案：A=INT(A)*AND*B=INT(B)*AND*A*B>084、Val(T23.55ab456")的值是多少[1].答案：123.5585、表达式"[A]"Like"[A]"的值为[1].答案：False86、sst="ABC12DE",则Val(sst)=[1].答案：087、VB表达式9A2MOD45\2*3的值【1】.88、表达式32\7MOD3八2的值是[1].答案：489、默认情况下，所有未经显示声明的变量均视为Variant类型，如果要强制变量的声明，应在模块的声明段使用【1】语句.答案：OptionExplicit90、征兵的条件:男性(sex)年龄(age)在18—20岁之间，身高(size)在1.65米以上;或者女性年龄在16—18岁之间，身高在1.60以上，列出逻辑表达式【1】.答案：(sexandage>=18andage<=20andsize>=1.65)or(notsexandage>=16andage<=18andsize>=1.60)91、把整数0赋给一个逻辑型变量，则逻辑变量的值为【1】.答案：False92、a和b中有仅只有一个为1,相应的VisualBasic逻辑表达式为[1].答案：a=1★xor^b=193、设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)ORx<yIMPy<b的结果为[1].答案：True94、把整型数1赋给一个逻辑型变量，则逻辑变量的值为【1】.答案：True95、如果:l=12:J=3:l=int(-8.6)+l\J+13/3MOD5,则I值是[1].答案：-196、如果：1=11力=3:1=祈耳-8.6)+14+13/31\/10。5,则1值是[1].答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1andx<12或x<12andx>=198、声明单精度常量g(重力加速度)代表9.8可写成【1】.答案：constg=9.8constsingleg=9.8100,X=2:丫=8:PRINTX+Y=10的结果是［1］.答案：True101、声明单精度常量P1代表3.14159的语句为【1】.答案：ConstPl=3.14159或ConstpiAsSingle=3.14159102、VB6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7MOD2"3的值是［1］.答案：5104、VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：(1).&或+ (2).&或+105、表达式1and0的值［1］.答案：False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时，语句ifx=2thenPrintx=2的结果值是［1］.答案：True108、设x为大于零的实数,则大于x的最小偶数的VisualBasic表达式是【1】答案:iif(int(x)mod2=0,int(x)+2,int(x)+1)109、声明定长为10个字符变量Sstr的语句为【1】.答案:DimSstrasString*10或SstrasString*10110、表达式(-3)And8的值为［11.答案：True111、Print"x="&(2=4)的结果为【1】.答案：x=False(1)在设计时，为了把窗体上的某个控件变为活动的,应执行双击该控件。(错误)(2)确定一个控件在窗体上位置的属性是Top和Left。 正确(5)窗体的NAME属性的值是显示在窗体标题栏中的文本。 错误(6)A[B]7是VB中的合法变量名。 错误(8)设有如下声明：DimxAsInteger如果Sgn(x)的值为-1,则x的值是大于。的整数。 错误(9)如果x是一个正实数，对x的第3位小数四舍五入的表达式是0.01*lnt(100*(x+0.005))o正确(10)表达式4+5\6*7/8Mod9的值是4。 错误(11)Textl是文本框的名称，Textl.Print25使文本框Textl输出25。错误(15)下列语句a%=3.14156Printa%的输出结果是3.14%。 错误(18)记时器控件能有规律地以一定时间间隔触发Time事件，并执行该事件过程中的程序代码。错误(19)"X是小于100的非负数"，用VB表达式表示正确的是0<=x0rx<100。错误(20)表达式"12345"<>"12345"&"ABC"的值是True。 正确(23)DoUntil条件循环体Loop上面的循环结构如果"条件"是一个为0的常数，则一次循环体也不执行。错误(24)K=0DoWhileK=k+1Loop上面循环的执行次数是11次。 错误(26)若有一个动态数组a有两个元素a(0)和a(1),先要令数组a有3个元素a(0)a⑴和a(2),应当使用的语句是ReDima(3)。 错误(27)由Array函数建立的数组必须是Variant类型。 正确(31)按地址传递参数通过子过程不会影响变量本身；按值传递参数通过子过程可以改变变量本身的值。 错误(32)在过程定义中出现的变量名叫做形式参数；在调用过程时传送给过程的变量、常量、表达式叫做实际参数。 正确(33)Sub过程可返回一个值到调用的过程。 错误(34)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型。正确(35)过程的定义可以嵌套，过程的调用也可以嵌套。 正确(107)一个变量在刚被定义尚未被赋值之前没有值。 错误(108)如果A和B都是整型变量，A的值为1,B的值为256,则变量A所占用的内存空间比变量B小。 错误(109)If和EndIf关键字必须成对地使用，有一个If就有一个EndIf与之相对应。错误(110)For和ExitFor必须成对地使用，有一个For就必须有一个ExitFor与之相对应。错误(114)如果有多重Do循环嵌套，位于最里层循环体语句中的ExitDo语句可以跳出所有的循环。 错误(115)通用过程中使用Static关键字定义的过程级变量都是静态变量。 正确(116)通过改变属性窗口中的Name属性，可以改变窗体上显示的标题 错误(119)无论是在定义时，还是在访问其元素时，数组的下标不能是变量，只能是常量表达式。 错误(120)数组下标的下界可以是负值，但上界只能是正数。 错误(123)在函数过程中，如果不给函数名赋值，则函数不返回任何值。 错误(125)数组作通用过程的参数时，一定是按地址传递。 正确(127)时钟控件的属性Interval值为0时，表示屏蔽计时器 正确(126)文本框控件有Caption属性. 错误(128)在过程中用Dim和Static定义的变量都是局部变量。 正确(130)单选钮和复选框都有Value属性，当选中它们时，Value属性都为True。错误(131)在VB开发环境中，可同时创建、打开和设计多个工程项目。 正确(132)面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。正确(134)通过代码设置属性的一般格式是：属性名.对象名=属性值。错误(135)TextBox与Label有许多共同特点，它们都能显示和输入文本。 错误(136)所有的控件在程序运行以后都是可见的。 错误(138)ListBox控件和ComboBox控件一样，都只能选择一项。 错误(139)一个应用程序中只能创建一个窗体。 错误(140)Msgbox函数建立的信息框能显示信息又能输入用户的信息。 错误(106)因为Single类型的变量可表示的范围大于Long类型的变量，所以Single类型占用的内存空间大于Long类型。 错误(103)标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。 错误(87)窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。 正确(102)窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变与窗体的大小和位置有关的属性值。 正确(104)命令按钮支持Click事件，但不支持DbICIick事件，所以双击按钮不会有任何反应。 错误(105)VisualBasic工程文件的扩展名为.vbp,窗体文件的扩展名为.frm。 正确(4)VisualBasic窗体设计器的主要功能是建立用户界面。 正确52(7)表达式2*3八2+2*8/4+3A2的值为31。 正确53(12)a=27b=65Printa;b的输出结果是2765 正确54(13)设有语句x=lnputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值10并按回车键，变量x的值是字符串"10"。正确55(14)文本框失去焦点能够触发文本框Change事件的操作。 错误56(16)设a=3,b=5,表达式(a>b)Or(b>0)的值为真。 正确57.(17)设a=5,b=6,c=7,d=8,则执行x=IIF((a>b)And(c<d),10,20)语句后，x的值为20o正确(21)为了清除列表框中的所有内容，应使用的方法是Clear。 正确(22)为了清除列表框中的所有内容，应使用的方法是Remove。 错误(111)SelectCase语句实现的是一个循环结构。 错误（118）DimA（6）定义了A（1）到A（6）共6个元素。 错误（133）vb应用程序是分层管理的，其最高的层次为工程。 正确（137）设有如下变量声明:DimTestDateAsDate,为变量TestDate正确赋值的表达方式是TestDate=#"1/1/2002"# 错误一、选择题改变控件在窗体中的上下位置，应修改控件的_A属性A.TopB.LeftC.WidthD.Right将通用对话框类型，设置为字体对话框，可修改该控件的D属性A.fontB.filenameC.filterD.action标签控件最重要的属性是_AA.captionB.textC.nameD.width文本框中选定的内容，由下列C属性反映。A.TextB.CaptionC.SeitextD.sellenght选中复选框控件时，value属性的值，可以是_DA.trueB.falseC.0 D.1设置列表框选中的文本用D属性A.selectedB.captionC.textD.list简单组合框的style值为BA.0B.1C.2D,3在文件列表框的实现文件的多重选择，应修改该控件的—D属性A.filenameB.patternC.pathD.multiselect语句listl.removeitem1将删除list.listindext等于 D的项目。A.0B.2C.3D.1计时器的interval属性为0时，表示A。A.计时器失效 C.相隔0毫秒B.相隔。秒 D.计时器的enable属性为false以下的vb常量中非法的是（B）a."GoodLuck"b.PIc.1.5E-03d.16.3412要想返回文本框中输入的内容则可利用其（B）属性进行编程d.righttoleft下列不能用commondialog控件调用的对话框是（D）a.open/saveb.helpc.fontd.searchvb应用程序是分层管理的，其最高的层次为（A）a.工程b.模块c.窗体d.过程vb程序设计中的窗体在oop中称为（C）a.屏幕b.事件c.对象d.控件欲使某命令按钮失效，应修改命令按钮的（D）属性。A.VisibleB.CaptionC.EnableD.Enabled要使标签能透出窗体的背景，必须设置 （A）属性。A.BackStyleB.BorderStyleC.AppearanceD.BackColor用鼠标拖动滚动条中滚动框并释放，将触发滚动条的（D）事件。A.ScrollB.Change C.DragOverD.A和B组合框的类型由Style属性决定，简单组合框的Style属性值应为（B）.A.0B.1C.2D.3下面哪些控件不会影响到界面设计效果。（A）A.定时器B.文本框C.标签D.Line控件Clear方法适用于（D）控件。A.图片框B.窗体 C.复选框D.组合框下列哪个变量的取法是不正确的（C）A.sTmeB.T_TempC.T12%D.T_12如果要设置窗体的标题栏，应选择以下那种属性（B）A.NameB.CaptionC.TipsD.Text如果要给字体加删除线，可以选择下列那种属性（C）A.FontNameB.FontSizeC.FontStrikethruD.FontUnderLine下列哪个变量的取法是不正确的（D）A.TNameB.T_TempC.T32D.T32#清除列表框的所有选项应选择下列哪种方法（A）A.ClearB.CisC.ClearltemD.Removeitem下面哪些控件不会影响到界面设计效果。（C）A.LabelB.TextC.CommonDialogD.Frame要使得窗体在出现之前就完成相关的程序设置可在（C）事件中进行编程A.linkopenB.KeyPressC.loadD.click要使文本框中显示密码符有效，必须首先设置 （B）属性。A.TextB.MultiLineC.Locked D.Enabled要在垂直位置上移动控件，应利用控件的（C）属性。A.LeftB.WidthC.TopD.Height下列表达式中，其值为0的是（C）A.7/9B.7mod15C.7\9D.15mod9一个对象可以执行的动作和可被对象识别的动作分别称为 （A）oA、事件、方法B、方法、事件C,属性、方法D、过程、事件在窗体Forml的Click事件过程中有以下语句：LabeH.Caption="VisualBasic"若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为 （B）。A.”Label"、"Label"B,"Label1\"VisualBasic"C、"Label1'\"LabeH"D、"Caption","Label"（D）对象不具有Caption属性。A、LabelB、OptionC、FormD、TimerInterger类型的变量可存的的最大整数是（D）。A、250B、256C、32768D、32767下列数据类型中，占用内存最小的是 （B）oA、BooleanB、ByteC、IntegerD、Single已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（B）oA、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0C、(A+C)>=CAndA-C<=C)AndC>0D、A+B>CAndA-B>CAndC>0下面(C) 是日期型常量。A、"12/19/99"B、12/19/99C、#12/19/99#D、｛12/19/99)二、判断题：全局变量用global或public关键字声明，且仅在通用声明处可以定义。（F）如果某子程序add用publicstaticsubadd（）定义，则该子程序的变量都是局部变量。（F）move方法的一般形式是：对象名.moveA,B[,C,D],其中A指Left,C指width»（F）TOC\o"1-5"\h\z清除list"（列表框对象的内容的语句是listl.cls。 （F）清除combo"）对象的内容是combol.clear。 （T）对■象的可见性用enabled属性设置，可用性用visible属性设置。 （F）滚动条控件不可作为用户输入数据的一种方法。 （F）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。 （F）控件是对象，而窗体不是对象，它只是控件对象的窗口。 （F）TextBox与Label有许多共同特点，它们都能显示和输入文本。 （F）有的对象属性既可在属性窗口中设定又可在程序代码中设定。 （T）在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True.（T）标签没有Change事件和SetFocus方法。 （T）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定，而Sub过程是由户自定义。 （F）Function函数有参数传递，并且一定有返回值。 （F）滚动条控件不可作为用户输入数据的方法。 （T）Msgbox函数建立的信息框能显示信息又能输入用户的信息。 （F）Dimi,jasinteger表明i和j都是整型变量。（F）菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触发Click事件。（T）某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。（F）目录列表框中的列表项不可以通过Additem方法进行添加。（T）在表达式中，运算符两端的数据类型要求一致。（T）VisualBasic程序的运行，仅能从某一窗体启动，如Form1窗体。（F）VB是一种面向对象的程序设计语言。（T）在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件。（F）在VB中，文件菜单的“删除工程”的作用是将当前VB工程在硬盘中删除掉。（F）有一个程序在属性窗口中设置了它的窗体字体大小为10号，而程序代码若设置了它的窗体字体大小为20号，那么当程序运行后实际的窗体字体大小为20号。（T）所有的VB的变量，都有隐含说明字符和强调声明两种方法来定义。（F）所有的控件在程序运行以后都是可见的。（F）标签控件可以用来让用户输入数据。（F）在框架控件上放置的控件可以移动到框架控件的外面。（F）如果一个列表框一共有5个选项，而当选中第三项时，这时列表框的Listindex属性为2。（T）单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务。（F）除了标准控件外，还可引入其它控件及第三方厂商研制的控件。（T）TextBox与Label有许多共同特点，它们都能显示和输入文本。（F）Listl.clear是清除Listl的全部列表项，所以Clear是对象的方法。（T）有的对象属性既可在属性窗口中设定又可在程序代码中设定。（F）在框架控件内的几个单选按钮中，可有一个或多个单选按钮的Value属性为True.（F）Variant是一种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等特殊值。（T）窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。（T）框架控件和形状控件都不能响应用户的鼠标的单击事件。（T）在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸载。（F）当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动反这一条目添加到它的列表框中。（F）当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件。（F）如果一个菜单项的Visible属性为False,则它的子菜单也不会显示。（T）填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义： Publicmystringasstring*152.设X$=匕"123456”则七"+5T$“21（的忖仪$,4）））的值是a34563.拖动滚动条中的滚动框将会产生 Scroll、Change4.请写出清除以下对象内容的语句：文本框 Text1.text=^^^^ ，窗体—Forml.CIs _，列表框_Listl.Clear，组合框 comboil.Clear变量min@表示_货币数据变量 类型的变量。如果：1=11：J=3：l=int(-8.6)+l\J+13/3MOD5,则I值是_-2请写出满足以下条件的VB表达式：0<X<10,X>0andx<10—.X为[0-100]之间的数，能被2整除，但不能被3整除—x>=0andx<=100andxmod2=0andxmod3<>0.下列循环语句控制的循环次数为_0_FORK=1TO10STEP-1表达式1and0的值(False).设a=2,b=3,c=4,d=5,表达式(a>bXorb<c)ORb<dEQVa<c的结果为(True).TOC\o"1-5"\h\za和b中有仅只有一个为1,相应的VisualBasic逻辑表达式为(a=1xorb=1) 。设1=5,则由下列循环语句控制的循环次数是 (6) oDo1=1+2LoopWhilel<=15表达式32\7MOD3A2的值是(4) 。PrivateSubcmdSum_Click()staticSumasintegerSum=2*Sum+1EndSub问：第三次单击命令按钮cmdSum后，Sum的值为：(7) 。欲定义一个定长为10的字符串变量Mystr,可写成：(DimMystrasString*10)o下列表达式返回的值为True还是FalseTrue。9>4+3Or5+3>10AndNot(4+2>5EQV3+5>2)按照数据文件的存储方法的不同，文件可以分为三种不同的类型：―顺序文件随机文件和二进制文件。下列循环语句控制的循环次数为_0oFORK=1TO20STEP-2TOC\o"1-5"\h\zVB表达式9A2MOD45\2*3的值 4。设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)ORx<yIMPy<b的结果为(True)oa和b中有仅只有一个不为1,相应的VisualBasic逻辑表达式为(av>1xorb<>1) °当x=2时，语句ifx=2thenPrintx=2的结果值是(True)。声明单精度常量g(重力加速度)代表9.8可写成：(constg=9.8) 。VB的工作模式可分为三种：“_设计一”、运行—”以及中断由Fork=35to0step3:nextk循环语句控制的循环次数是(0)。想拥有“快捷键”这项功能，必须在“菜单编辑器”中增加一些特殊的设置，也就是在字母之前加上—&若要在字符串asdgewl中取dge,则使用函数_(Mid$(asdgewl$,2,3)实现。设x为大于零的实数，则大于x的最小偶数的VisualBasic表达式是(iif(int(x)mod2=0,int(x)+2,int(x)+1))设x的初值为5,则由下列循环语句控制的循环次数是(1)oDoWhilex>=5x=x-1Loop在上程序中，若x的初值为-5,则循环次数为(0)sst="ABC12DE”,则Val(sst)=(0)四、程序阅读(假如所有的变量类型都已定义)程序1FORJ=10TO5step-2K=J+1IfK<6thenexitforNEXTJPRINTK；J输出的结果_74—程序2A=1：l=0SELECTCASEA*2A=A+1A=A+2CASEELSEA=A+3ENDSELECTA的值为_3—程序4C=lnputBox(“请输入字符串：”)P二””ForL=Len(c)To2Step-2P=Mid(C,L-1,2)+PNextLPrintPEndSub如果输入：ABCDEFG,则结果：BCDEFG程序4DimYAsIntegerPrivateSubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction 结果：222程序5PrivateSubCommand1_Click()DimSAsInteger,IAsIntegerS=0ForI=1To10IfZS(I)ThenIfl*2<=10ThenPrintStr(l*2)S=S+1ElseExitForEndIfEndIfNext1Prirt“S二”&Str(S)EndSubPublicFunctionZS(ByVaiXAsInteger)ASBooleanDimJAsIntegerJ=2DoWhileJ<XIfInt(X/J)=X/JThenExitDoJ=J+1LoopIfJ=XThenZS=TrueElseZS=FalseEndIfEndFunction结果：610S=3程序6PrivateSubForm_Click()Dima1AsInteger,a2AsIntegera1=10:a2=100wua1,a2printtta1=";a1,na2=w;a2EndSubPrivateSubwu(b1AsInteger,Byvalb2AsInteger)b1=b1\2:b2=b2Mod13printMb1=";b1,wb2=M;b2EndSub写出程序运行时单击窗体后，在Forml上的输出结果。结果为：b1=5b2=9a1=5a2=100程序7PrivateSubForm_Click()Dimkasinteger,sasinteger,jasintegerForml.clsFork=1to5s=0forj=kto5s=s+1nextjnextkPrint"s=”,sEndSub写出程序运行时单击窗体后的输出结果。结果为：s=1程序8DimaAsIntegerPrivateSubCommand1_Click()StaticsAsIntegerIfs<5Thens=s+aElses=s*aEndIfa=sEndSubPrivateSubForm_Load()a=5EndSub当连续按三次Commandl按钮后，s的值 625程序9PrivateSubForm_Click()Fori=1To7PrintSpc(7-i);Ifi=1ThenPrintElsePrintSpc(2*(i-1)-1);H*HEndIfNextiEndSub以上程序的输出结果：(32)程序10PrivateSubForm_Click()Dimstr1,str2AsStringDimsAsStringDimiAsIntegerstr1="abcdefghijk”Fori=Len(str1)To1Step-2str2=str2&Mid(str1,i,1)NextiEndSub以上程序运行完成以后，str2的值为kigeca.程序11DimYAsIntegerPrivateStubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction 结果：2 2 2程序12privatesubForm_click()N=3DimA(3,3)AsIntegerForI=IToNForJ=IToNA(l,J)=(J-1)*N+INextJNextIForI=2ToNForJ=1ToI-1TEMP=A(I,J)A(l,J)=A(J,I)A(J,I)=TEMPNextJNextIForX=1ToNPrintX,A(X,N+X-1),A(X,X)NextXEndSub结果：1 0 42 7 8程序13PrivateSubCommand1_Click()N=0:x=1:y=0DoWhilex<20n=n+1y=x+yx=x*(x+1)LoopTextl.Text="n="&Str(n)Text2.Text="x="&Str(x)Text3.Text="y="&Str(y)EndSub结果为：n=3x=42y=97.程序14PrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=1b=1Forn=1To3z=chg(a,b)Forml.Print"n="；n,Mz=H,zNextnEndSubFunctionchg(aAsInteger,bAsInteger)AsIntegerDimnAsIntegerForn=0To2a=a+bNextnchg=aEndFunction写出程序运行时单击窗体后，Forml上的输出结果。n=1z=4n=2z=7n=3z=101.程序15PrivateSubForm_Click()Dimx(5)AsIntegerx(1)=8x(2)=3x(3)=1x(4)=6x(5)=4Fori=1To4Forj=i+1To5Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=tNextj,iFork=1To5Forml.Print”x(";k;x(k)NextkEndSub写出程序运行时单击窗体后，Forml上的输出结果。x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1五、程序填空以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行比较，如有相同，则将相同表项删除，其他项，则不动。PrivateSubcommand1_click()DimaAsString,IAsIntegerA$=Trim(Combo1.Text)Ifa<>MMThenforl=0toCombol.ListCount-1IfCombol.List(i)=aThenCombol.RemoveitemiNextIEndIfCombol.SetFocusEndSub下列程序用于对输入的x和n的值，进行计算S=X/2!-X2/3!+x3/4!-x4/5!+....+(-1)n-1xn/(n+1)lPrivatefunctionFs(byvalxassingle.byvalnasinteger)assingleDimsumassingleDimremultiplyaslongDimIasintegerSum=0Remultiply= I1=1Dountill>nRemultiply=remultiply*lSum=sum+remultiply 『1+1 _loop Fs=sumEndfunction输入三个数，由大到小排序DimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(lnputBox(HPleaseinputfirstinteger「输入正整数”))B=Val(lnputBox(HPleaseinputsecondinteger"，”输入正整数”))C=Val(lnputBox(MPleaseinputthirdinteger"，”输入正整数”))IfA<=BThennTemp=A:A=B:B=nTempEndIfIfA<=CThennTemp=A:A=C:C=nTempEndIfIfB<=CThennTemp=B:B=C:C=nTempEndIfPrint“Theintegersinorderis";A;B;CEndSub歌德巴赫猜想:任何一个大于或等于六的偶数都可以分解成两个素数之和.PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,mAsIntegerDimnAsInteger,mlAsInteger,m2AsInteger,numnum=val(inputbox(“请输入要验证的整数范围最大值(MAX)”))Fori=6TonumStep2Forj=3Toik= (lnt(Sqr(j)))Form=2TokIfjModm=0Then(ExitFor)NextmIfm>kThenn=i-jml=(lnt(Sqr(n)))Form2=2TomlIfnModm2=0Then(Exitfor)Nextm2If(m2>ml)ThenPrinti;j;n;,EndIfNextjPrintNextiEndSub从计算机输入三个数，找出中间数PrivateSubFindMidNum()X=INPUTBOX(HPLEASEINPUTTHEFIRSTNUMBER")Y=INPUTBOX(UPLEASEINPUTTHESECONDNUMBER)Z=INPUTBOX(HPLESSEINPUTTHETHIRDNUMBER)IF(X<Y)THENA=XX=YY=AENDIFIF(Y>=Z)THENPRINTYELSEIF(X>=Z)THENPRINTZELSEPRINTXENDIFEndSub［程序说明］由输入对话框输入n(设n为大于零且小于30的自然数)，计算下列表达式的值，并在标签框Label1上显示。［程序］PrivateSubForm_Click()DimnAsInteger,sumasDouble,kAsIntegern=Val(lnputBox("n=”「请输入自然数n(n>0且n<30)M))Do(Whilen<=0orn>=30)n=丫21(即此0乂(“田”请重输入”))LoopSum=0(k=0)dok=k+1sum=(sum+1/(k*(k+1)))LoopUntilk>=nLabell.Caption-'Sum-'+St^sum)EndSub一、判断共10题(共计10分)第1题Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.答案：N第2题VisualBasic程序的运行可以从Main。过程启动，也可以从某个窗体启动.答案：丫第3题图片框的属性Enabled设置为FALSE,图片框上的控件仍可响应用户操作.答案：N第4题若已在窗体中加入了一个通用对话框:要求在运行时，通过ShowOpen打开对话框时,只显示扩展名为DOC的文件，则对通用对话框的FHter的属性设置应该是:"(*.DOC)|(.DOC)".N第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：丫第6题清除listl列表框对象的内容的语句是listl.cls.答案：N第7题图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值. 答案：N第8题当窗体的ScaleTop=0,ScaleLeft=0时，这个窗体Top和Left值也是0.答案：N第9题框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：丫第10题通用对话框只能用SHOW方法进行调用.答案：N二、单项选择共10题(共计10分)第1题用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:HideB:CheckedC:VisibleD:Enabled答案：C第2题定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒 答案：C第3题要在图片框P1中打印字符串"HowAreYou",应使用语句().A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C第4题F列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C第5题启动Visua旧asic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1B:窗体1C:工程D:窗体答案：A第6题设a=10,b=5,c=1,执行语句Printa>b>c后，窗体上显示的是().A:TrueB:FalseC:1D:出错信息 答案：B第7题MSGBOX函数中有4个参数，其中必须写明的参数是().A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的C第8题应用程序设计完成后，应将程序保存,保存的过程是().A:只保存窗体文件即可B:只保存工程文件即可C:先保存工程文件，之后保存窗体文件D:先保存窗体文件(或标准模块文件)，之后还要保存工程文件 答案：D第9题改变控件在窗体中的左右位置应修改该控件的()属性.A:TopB:LeftC:WidthD:Right答案：B第10题VB认为下面()组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A三、程序填空共3题(共计30分)第1题’【程序填空】'功能：以下程序的功能如(图1)。PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBoxf请输入a的值”)b=InputBoxC,请输入b的值”)c=lnputBox(M请输入c的值”)d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then，***m*Space**********If[?]Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p，*★*★****★★Spac[?]Print"x1=H;x1,"x2=";x2，**********Space**********[?]q=Sqr(-d)/(2*a)PrintHx1=M;p;H+”；q;“i“，“x2=”;p;“・“；q;“i”EndIfEndSub答案：1).d>0或Ovd2).EndIf3).日se第2题’【程序填空】'功能：完成程序，使程序输出值为15PrivateSubCommand1_Click()nm*SPACE****mDimi,j,x,[?]AsIntegerFori=1To4x=4Forj=1To3x=3，*m***SPACE**********For[?]=1To2，***m*SpACE**********x=x+(?)NextkNextjNextiPrintxEndSub答案：1).k2).k3).6第3题’【程序填空】'功能：用输入对话框输入X,根据如图公式计算对应的y,,在窗体上输出y的值。PrivateSubCommand1_Click()，**********space**********DimxAsSingle,[?]AsSinglex=Val([?]CPleaseinputx:"」输入X的值”))Ifx=10Then，m****SPACE***m*(?]Elselfx>10Then，**m**Space**********y=Sqr(x)[?]Elsey=2*xA3+6EndIfPrintyEndSub答案：1).y2).InputBox3).y=04).+Sin(x)四、程序改错共3题(共计30分)第1题’【程序改错】'题目:设窗体中有图片框Pic1,现要求在其中绘制10个同心圆,'然后将此图以Test.BMP作文件名存入磁盘。OptionExplicitPrivateSubCommand1_Click()DimXAsIntegerDimYAsIntegerDimIAsIntegerDimrad(9)AsIntegerX=Pic1.ScaleWidth/2Y=Pic1.ScaleHeight/2t***m*FounQ**********ForI=1To9rad(l)=500*RndNextImn*FOUND**********DoUntilI<1Pic1.Circle(X,Y),rad(l),RGB(256*Rnd,256*Rnd,256*Rnd)・**m**FouN0**********LoopSavePicturePic1.Image,*'Test.BMP*'EndSub答案：1).fori=0to9或fori=0to9step1.DoUntilIv0或dountil0>i.I=I-1或i=-1+i第2题，【程序改错】'题目：从计算机输入三个数，找出中间数OptionExplicitPrivateSubFindMidNum()DimxAsInteger,yAsInteger,zAsInteger,AAsIntegerx=InputBoxf'PLEASEINPUTTHEFIRSTNUMBER")y=InputBoxf'PLEASEINPUTTHESECONDNUMBER")z=lnputBox(MPLESSEINPUTTHETHIRDNUMBER")m*****FOUNIfx>yThenEndIft***m*Foun0**********Ify=zThenPrinty・**m**FounQ**********Elselfx=zThenPrintzElsePrintxEndIfEndSubPrivateSubForm_Click()FindMidNumEndSub答案：1).IfxvyThen或lfy>xThen.Ify>=zThen或Ifzv=yThen.Elselfx>=zThen或Elselfz<=xThen第3题’【程序改错】，题目：输出40以内能够被3整除的数，要求输出结果为5,个数一行。OptionExplicitPrivateSubForm_Click()CisDimxAsIntegerDimiAsIntegerI****★★****PQU **********i=1Forx=1To40If(x/3)=(x\3)Then，***m*FounD**********Printxi=i+1EndIfl**********PQU^JQ*★★*****★★IfiMod3=0ThenPrintEndIfNextxEndSub答案：1).i=02).Printx;3).ifimod5=0then五、程序设计共2题(共计20分)第1题’【程序设计】'题目：编写函数fun其功能是：根据整型形参m,计算如下公式的<7=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)^iJ^：若m=9,则应输出：1.168229'要求:函数中用到的中间变量必须声明为Single类型。答案： DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y第2题（10.0分）题号:488'【程序设计】'题目：（事件）单击窗体。（响应）已知sum=1/2!・1/4!+1/6!・1/8!+1/10!,请将sum结果值输出到窗体上。使用dowhile...loop语句完成程序答案： DimiAsIntegerDimnAsIntegeri=1P=1DoWhilei<=10P=P*iIfiMod2=0Thenn=n+1sum=sum+(-1)A(n-1)/pEndIfi=i+1LoopPrintsum一、判断共10题(共计10分)第1题所有的对象都有caption属性.答案：N第2题喜件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用.答案：N第3题当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件.答案：N第4题当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起来.答案：丫第5题在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：N第6题VisualBasic程序的运行可以从Main()过程启动，也可以从某个窗体启动.答案：丫第7题VB允许设计和使用用户自己设计的控件. 答案：丫第8题在VB中，可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上.答案：Y第9题Function函数有参数传递,并且一定有返回值. 答案：N第10题在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件.答案：N置顶二、单项选择共10题(共计10分)第1题代数式x1-|a|+ln10+sin(x2+2n)/cos(57o)对应的Visua旧asic表达式是().A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*n)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*n)/Cos(57) 答案：A第2题设计动画通常使用时钟控件()来控制动画速度.AiEnabledB:IntervalC:TimerD:Move答案：B第3题要把一个命令按钮设置成无效,应设置其哪-属性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第4题设a=10,b=5,c=1,执行语句Printa>b>c后，窗体上显示的是().A:TrueBrFalseC:1D:出错信息 答案：B第5题任何控件都具有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C第6题当事件能被触发时,()就会对该事件作出响应.A:对象B:程序C：控件D:窗体答案：A第7题F列叙述正确的是().A:对象是包含数据又包含对象数据进行操作的方法的物理实体B:对象的属性只能在属性窗口中设置C：不同的对象能识别不同的事件D:事件过程都要由用户点击对象来触发 答案：C第8题下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置D:不同控件的属性项都完全一样 答案：C第9题表达式2+3*4A5-SIN(X+1)/2中最先进行的运算是().A:4"5B:3*4C:x+1D:SIN答案：C第10题一个对象可以执行的动作和可被对象识别的动作分别称为().A:事件、方法B:方法、事件C:属性、方法D:过程、事件答案：A三、程序填空共3题(共计30分)第1题’【程序填空】’下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。PrivateSubForm_Click()Print”5个数34、124、68、73>352的最大值是：”maxi=max(34,124,68)，*m***SPACEm****maxi=[?)PrintmaxiEndSubPublicFunctionmax(ByVala%,ByVaib%,ByVaic%)，**********space**********If[?]Thenm=a日sem=bEndIf，m****Space**********If[?]Thenmax=mElsemax=cEndIfEndFunction答案：1).max(max1,73,352)2).a>b或bva3).m>c或cvm第2题’【程序填空】'功能：输入数字1・7,显示其对应是星期几(例:输入1,显示星期日，*如果输入其它内容，一律显示“输入错误")PrivateSubCommand1_Click()dimxasintegerdimyasstringx=val(text1.text)，***m*Space**********[?]y="今天是星期日"y="星期一“y="星期二"y="星期三"y="星期四"，***m*Space**********[?]y="星期六”，**m**Space**********[?]y="输入错误”endselectText2.Text=yEndSub答案:1).selectcasex2)・y="星期五"3).CaseElse第3题’【程序填空】’功能：以下程序段用于求gn!PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBoxC请输入一个正整数”)sum=0Fori=1Ton，******pacE**********sum=[?]NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsInteger，*m***Space**********Fori=1To[?]Nexti，****mSPACE***m*[?]EndFunction答案：1).sum+mul(i)2).x3).mul=s四、程序改错共3题（共计30分）第1题’【程序改错】题目：输出40以内能够被3整除的数，要求输出结果为5个数-行。OptionExplicitPrivateSubForm_Click()CisDimxAsIntegerDimiAsIntegerFound**********Forx=1To40If(x/3)=(x\3)Then1**********PrintxEndIfIfiMod5=0ThenPrintEndIfI*******★★★PQ Q★★★*★*****stepiEndSub答案：1).i=02).Printx;或？x;3).Nextx或Next第2题U程序改错】'题目:程序功能为求解一