VB上机实习第三章.docxVIP

下载本文档

62
0
约 7页
2017-07-21 发布于河南
举报
版权申诉

VB上机实习第三章.docx

1、本文档共7页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VB上机实习第三章

26有一个按纽事件及一个Sub 过程：P rivate Sub Commandl_Click( )Ind 2End Sub Sub ind(a As Integer)Static x As IntegerX = x + a Print x ;End Sub程序运行后，单击命令按纽3次，输出结果为（）。A．2 2 2 B.1 2 3 C.2 4 6 D.2 4 827.以下是在一个按纽事件过程中调用一个函数过程：Pricate Sub Commandl_Click( )a = 100b =25x = gys(a,b)Print x End Sub Function gys(By Val x As Integer,ByVal t As Integer) AS IntegerDo While y 0 Remi = x Mod y X = yy = remiLoopGys = xEnd Function程序运行后的结果是（）。A.0 B.25 C.50 D .10028有如下程序：Private Sub Commandl_Click()Dim a As Integera = 2For i = 1 to 3Print f(a)Next iEnd SubFunction f (a As Integer)b = 0Static cb = b + 1c = c + 1f = a + b + cEnd Function程序运行后，单击命令按钮。其输出结果为（）A.4 B. 4 C.4 D.4 4 5 6 84 630.有如下函数与调用过程： 30Private Sub Command1_Click（）I=Val（InputBox（“请输入一个数”）A=fact（i） Print a End Sub Function fact（x As Integer）As Long Dim p As Long，：I As IntegreP=1 For i=1 To xP=p*i Next iFact=p End Function程序运行后，若输入5，则运行结果为（） A．120 B。60 C。80 D.10031.有一个函数： Function total（x As Integre）As Long Dim ss As Long,I As IntegerSs=0 For I=1 To xSs=ss+i Next iTotal=ss End Function下面是调用它的事件过程。 Private Sub Command1_Click（） Dim I As Integer,sum As Long For I=1 To 5Sum=sum+total(i) Next i Print”和数为：“：sum End Sub该程序的运行结果为（） A.55 B。15 C.5 D.3532.有一个过程如下： Sub Cmax(x.y.max)Max=Lif(x＞y.x.y) End Sub调用过程如下： Private Sub Command1_Click()I=Val(InputBox(“请输入第一个数“)J=Val(IntegerBox(“请输入第二个数“) Cmax I .j.a Print a End Sub程序运行后，分别输入12.56.结果为（） A.12 B.56 C.24 D.11233.单击窗体时，下列程序的执行结果为（） Sub Proc1(x As integer,ByVal y As integer,zAs integer)X=3*zY=2*zZ=x+y End SubPrivate Sub Form-Click() Dim x As integer,y As integer,z As integerX=1:y=2:z=3 Call Proc1(x,x,z) Call Proc1(x,y,y) End Sub如果在定义过程时，在y 前面加上ByVal关键字，则运行结果会变为（） A.6 6 12 B.9 6 5 C9 6 5 D.9 10 106 10 10 6 10 10 6 4 10 9 10 1535在窗提模块的通用声明处下面的语句声明变量、数组，正确的语句有( )个。 1.PUBL