搜索
31．（新）编写如下程序：（★★）PrivateSubCommand1_Click()DimnAsIntegerStaticsAsIntegerForn=1To3s=s+nNextPrintsEndSub程序运行后，第三次单击命令按钮Command1时，输出结果为（A）A）18B）9C）6D）332.（新）编写如下程序：（★★）PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEndSubPrivateFunctionfun1(ByValmAsInteger,nAsInteger)AsIntegerm=m*mn=n+nEndFunction程序运行后，单击命令按钮Command1，则输出结果为（C）A）10025B）10040C）1040D）102537．（新）编写如下程序：（★★）PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=1To3Ifi1Andj1Thena(i,j)=a(a(i-1,j-1),a(i,j-1))+1Elsea(i,j)=i*jEndIfNextjNextiFori=1To3Forj=1To3Printa(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮Command1，输出结果为（B）A）123B）123C）123D）12320023122221130032333331138．（新）编写如下程序：（★★）PrivateSubCommand1_Click()Fori=1To4PrintSpace(12-3*i);Forj=1ToiPrintj;NextjFork=i-1To1Step-1Printk;NextkPrintNextiEndSub程序运行后，单击命令按钮Command1，输出结果为（D）A）1234321B）1C）1D）112321121121121121123211232112321112343211234321123432139.（新）编写如下程序：（★★）DimnumAsInteger,rAsInteger,nAsInteger,iAsIntegerDimarr(5)AsIntegerPrivateSubCommand1_Click()num=12r=2Callsub1(num,r,n)Fori=nTo1Step-1Printarr(i);NextiEndSubSubsub1(dAsInteger,rAsInteger,kAsInteger)k=0DoWhiled0k=k+1arr(k)=dModrd=d\rLoopEndSub程序运行后，单击命令按钮Command1，输出结果为（B）A）1010B）1100C）0011D）010121）（新）在设计阶段，如果双击窗体上的一个文本框控件，则在代码窗口中显示该控件的事件过程所对应的事件是（D）（★★）A）DblClickB）ClickC）GotFocusD）Change22）（新）要使标签中的文本靠右显示，应将其Aligment属性设置为（C）（★★）A）3B）2-CenterC）1-RightJustifyD）0-LeftJustify23）（新）以下不能用形状控件画出的图形是（A）（★★）A）扇形B）椭圆C）圆形D）矩形24）（新）通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是（A）（★★）A）FileNameB）DirC）DriveD）Path25）（新）在设计阶段，假定在图片框Picture1中装入了一个图形，为了删除该图片框控件，应采用的正确操作是（A）（★★）A）选择图片框，然后按Del键B）执行语句Picture1.Picture=””C）选择图片框，在属性窗口中选择Picture属性，然后按回车键D）执行语句Picture1.Picture=LoadPicture（””）26）（新）为了删除列表框中的一个列表项，应使用的列表框方法是（A）（★★）A）RemoveItemB）MoveC）RemoveD）Clear27）（新）为了暂时关闭计时器，应把它的一个属性设置为False，这个属性是（A）（★★）A）EnabledB）IntervalC）TimerD）Visible28）（新）假定在窗体上添加了一个通用对话框控件，其名称为CD1，并有如下程序段：（★★）CD1.ShowOpenCD1.DefaultExt=”doc”在打开文件的对话框中选择了”c:\file1.txt”文件，则FileTitle属性的值是（C）A）c:\file1.docB）file1.docC）file1.txtD）c:\file1.txt29）（新）以下能接收焦点的控件是（C）（★）A）图像框B）标签C）命令按钮D）框架30）（新）以下不能设置Picture属性的控件是（B）（★★）A）复选框B）列表框C）命令按钮D）窗体31）（新）三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是（C）（★★）A）Ifa+b=cOra+c=bThenPrint不能构成三角形ElseIfb+c=aThenPrint不能构成三角形ElsePrint可以构成一个三角形EndIfB）Ifa+b=cOra+c=bOrb+c=aThenPrint不能构成三角形ElsePrint可以构成一个三角形EndIfC）Ifa+bcOra+cbOrb+caThenPrint可以构成一个三角形ElseD）Ifa+bcAnda+cbOrb+caThenPrint可以构成一个三角形ElsePrint不能构成三角形EndIfPrint不能构成三角形EndIf32）（新）由高中数学可知，对于连续函数f（x），若f（x1）与f（x2）值的符号相反，则在x1和x2之间必存在x0，使得f（x0）=0（该点称为“零点”）。（★★）设有VB函数：PivateFunctionf（xAsSingle）AsSingle可以返回f（x）的值（函数体没有给出）。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。PrivateSubCommand1_Click()Dimx1AsSingle,x2AsSinglex1=InputBox(请输入一个实数x1)x2=InputBox(请再输入一个实数x2)If(_______________)ThenPrint在;x1;与;x2;之间存在零点ElsePrint不能确定在;x1;与;x2;之间是否存在零点EndIfEndSubPrivateFunctionf(xAsSingle)AsSingle......EndFunction为使上面程序可以实现该功能，程序代码中横线处应填写的代码是（A）A）f（x1）*f（x2）0B）f（x1）*f（x2）0C）f（x1）0Andf（x2）0D）f（x1）0Orf（x2）033）（新）设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：（★★）PrivateSubForm_Load()Image1.Picture=LoadPicture(LEAF.bmp)Image2.Picture=LoadPicture(OPEN.bmp)Image3.Visible=FalseEndSubPrivateSubImage1_Click()Image2.Picture=Image1.PictureEndSubPrivateSubImage2_Click()Image3.Picture=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Image3.PictureEndSub在程序运行期间单击Image2，则在窗体上看到的结果是（D）A）Image1、Image2中都是原来Image2中的图片B）Image1、Image2中都是原来Image1中的图片C）在Image3中显示Image2中的图片D）Image1、Image2中原有图片被交换了34）（新）设有下面程序代码：（★★）PrivateSubCommand1_Click()DimstrAsString,chAsStringstr=VisualBasicProgrammingch=an=fun(ch,str)Printstr,nEndSubPrivateFunctionfun(chAsString,strAsString)AsIntegerDimstrbufAsString,cAsString,nAsIntegerFork=1ToLen(str)c=Mid(str,k,1)IfcchThenstrbuf=strbuf&cElsestrbuf=strbuf&UCase(c)n=n+1EndIfNextkstr=strbuffun=nEndFunction程序运行时的输出是（C）A）VisulBsicProgrmming3B）VisualBasicProgramming2C）VisuAlBasicProgrAmming3D）VisualBasicProgramming035）（新）窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码：（★★）DimrAsSingle,flagAsIntegerPrivateSubForm_Load()r=Shape1.WidthTimer1.Enabled=TrueTimer1.Interval=500EndSubPrivateSubTimer1_Timer()Ifflag=0ThenShape1.Width=Shape1.Width-10IfShape1.Width=100Thenflag=1EndIfElseShape1.Width=Shape1.Width+10IfShape1.Width=rThenflag=0EndIfEndIfEndSub运行程序后产生的结果是：（D）Ａ）圆每隔0.5秒向右移动一次B）圆一直在缩小C）圆每隔1秒向下移动一次D）圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复36）（新）下面程序的功能是输出100以内所有素数：（★★）PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek=n/2And_____________IfnModk=0Thenisprime=Falsek=k+1LoopIfisprimeThenPrintnEndIfNextnEndSub为使上面程序可以实现该功能，程序代码中横线处应填写的代码是（B）A）NotisprimeB）isprimeC）n=100D）n10037）（新）有下面程序代码：（★★）PrivateSubCommand1_Click()i=1DoWhilei5j=1Doj=j+1Print*;LoopUntili+j10Printi=i+2LoopEndSub程序运行时输出字符”*”的个数是（D）A）20B）15C）50D）1638）（新）设有下面程序代码：（★★）PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1ToUBound(a)Ifa(k)mThenn=mm=a(k)ElseIfa(k)nAnda(k)mThenn=a(k)EndIfNextkPrintnEndSub程序运行时的输出是（D）