1/25
文档分类:资格/认证考试

江苏计算机二级vb填空题.doc


下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

特别说明:文档预览什么样,下载就是什么样。

0/100
您的浏览器不支持进度条
下载所得到的文件列表
江苏计算机二级vb填空题.doc
文档介绍:
填空题1执行下面程序,mand1,则窗体上显示的第一行是(1),最后一行是(2)。mand1_Click()DimnAsLong,kAsInteger,a()AsIntegern=123456789Dok=k+1ReDimPreservea(k)a(k)=nMod100n=n\100LoopUntiln=0Fork=1ToUBound(a)Printfun(a(k))NextkEndSubPrivateFunctionfun(nAsInteger)AsIntegerDimkAsIntegerk=nMod10fun=k*10+(n\10)EndFunction执行下面程序,mand1,则数组元素a(2,1)的值是(3),a(1,2)的值是(4)。mand1_Click()Dima(3,3)AsInteger,iAsInteger,kAsIntegerDimnAsIntegern=9Fork=1To3Fori=1To3a(i,k)=nn=n-1NextiNextkFori=1To3Fork=1To3Printa(i,k);NextkPrintNextiEndSub执行下面程序,mand1,则窗体上显示的第一行是(5),第二行是(6),第三行是(7)。mand1_Click()DimiAsInteger,aAsInteger,bAsIntegera=1b=2i=aDoWhilefun(i,b)<=7i=i+ab=b+1PrintiLoopEndSubPrivateFunctionfun(ByValxAsInteger,yAsInteger)AsIntegerx=x+1y=y+1fun=x+yPrintfunEndFunction执行下面程序,mand1,则窗体上显示的第一行是(8),第二行是(9),最后一行是(10)。OptionExplicitDimkAsInteger'mand1_Click()DimNAsInteger,MAsInteger,LcmAsIntegerN=6M=9Lcm=Rec(N,M)PrintLcmEndSubPrivateFunctionRec(AAsInteger,BAsInteger)AsIntegerk=k+1PrintAIfAModB=0ThenRec=AElseRec=Rec(A+A/k,B)EndIfEndFunction2执行下面程序,mand1,则窗体上显示的第一行是(1),第三行是(2)。mand1_Click()DimsAsString,kAsIntegerDimqAsString,a()AsString,nAsIntegers="ABCDEFG"n=1Dok=k+1ReDimPreservea(k)a(k)=Mid(s,n,n)n=n+1LoopWhilen+Len(a(k))<=Len(s)Forn=1ToUBound(a)q=""Callsub1(a(n),q)PrintqNextnEndSubPrivateSubsub1(sAsString,qAsString)DimiAsIntegerFori=1ToLen(s)q=Mid(s,i,1)&qNextiEndSub执行下面程序,mand1,则数组元素a(1,2)的值是(3),a(3,1)的值是(4)。mand1_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3If(i+j)Mod2=0Thena(i,j)=i+jElsea(i,j)=(i*3+j)/2EndIfPrinta(i,j);NextjPrintNextiEndSub执行下面程序,mand1,则数组元素a(5)的值是(5),窗体上显示的第二行是(6),第三行是(7)。mand1_Click()DimiAsInteger,a(5)AsInteger,jAsIntegerFori=1To5a(i)=2*i-1Printa(i);NextiPrintFori=a(5)Toa(3)Step-1Printfun(i,a(i-4))NextiEndSubPrivateFunctionfun(aAsInteger,bAsInteger)AsIntegera=a-1b=b-1fun=(a+b)/2EndFunction执行下面程序,mand1,则数组元素yz(1)的值是(8),数组元素yz(3)的值是(9),窗体上显示的最后一行是(10)。mand1_Click()DimnAsInteger,yz()AsInteger,sAsIntegerDimiAsIntegern=12Callsub1(n,yz)Fori=1ToUBound(yz)s=s+yz(i)Printyz(i)NextiPrintsEndSub 内容来自淘豆网www.taodocs.com转载请标明出处.
更多>> 相关文档
非法内容举报中心
文档信息
  • 页数25
  • 收藏数0 收藏
  • 顶次数0
  • 上传人wdggjhm62
  • 文件大小95 KB
  • 时间2020-08-10
文档标签