- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
 - 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
 - 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
 - 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
 - 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
 - 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
 - 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
 
                        查看更多
                        
                    
                200在代码中,定义了一个子过程:
 
Sub P(a,b)
 … 
End Sub
 
下面调用该过程的格式正确的______D____。
A、P( )
B、P  10,20,30
C、P  10
D、P  10,20
201设有以下函数过程:
Function Fun(s As String) 
    Dim s1 As String
    For i = 1 To Len(s)
       s1 = UCase(Mid(s, i, 1)) + s1
    Next i
    Fun = s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
   Private Sub Command1_Click()
      Dim str1 As String
      str1 = InputBox(请输入一个字符串)
      Print Fun(str1)
   End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串 abcdefg ,则单击“确定”按钮后,在窗体上输出的结果为__b______。
 
A、ABCDEFG
B、GFEDCBA
C、gfedcba
D、abedefg
202下面所列中,合法的子过程语句是__c_____。
 
A、Sub  f1(ByVal  n() As Integer)
B、Sub  f1(n() As Integer) As Integer
C、Function  f1(ByVal n As Integer)
D、Function  f1(f1 As Integer) As Integer
203通用过程可以通过执行“工具”菜单中的____b____命令来建立。
 
A、通用过程
B、添加过程
C、添加窗体
D、添加模块
204子程序 Sub 过程与函数 Function 过程最根本的区别是_b_______。
A、两种过程参数的传递方式不同。
B、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值。
C、Function过程可以有参数,Sub过程不可以。
D、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以。
205设已定义函数过程 f,它有三个整型数值参数,再设 a, b 和 c 为实型变量,则调用该函数过程使用的语句为_____d___。
 
A、f  a+b, b+c, c+a
B、f
C、f(a+b, b+c)
D、f(a+b, b+c ,c+a)
206有如下程序:
    Private Sub Form_Click()
    a=1:b=2:c=3
    Call ss(a,b,c)
    Print a; b; c
    End Sub
    Private Sub ss( ByVal x , ByRef y , z )
    x=x+1: y=y+1: z=z+1
    End Sub
 
程序运行后,单击窗体,则输出的结果是__d______。
 
A、2   2   4
B、1   2   3
C、1   3   3
D、1   3   4
207设有如下的程序:
   Private Sub Form_Click()
  Dim a As Integer, b As Integer
  a= 8: b= 3
  Call test(6,a,b+1)
  Print 主程序,6,a,b
  End Sub
  Sub test (x As Integer, y As Integer, z As Integer)
      Print 子程序,x,y,z
      x = 2: y = 4:  z = 9
  End Sub
 
当运行程序后,单击窗体,显示的结果是____d____。
A、子程序  6  4  3              
   主程序  6  8  4
B、主程序  6  4  3
   子程序  6  8  4
C、主程序  6  8  4
   子程序  6  4  3
D、子程序  6  8  4
   主程序  6  4  3
208在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框,程序如下:
   Private Sub Command1_Click()
    Dim x,y,z As Integer
    x=5: y=7: z=0
    Text1.text=  
    Call P1(x,y,z)
    Text1.Text=Str(z)
   End Sub
   Sub P1(ByVal a As Integer,ByVal b As Integer,c A
                您可能关注的文档
最近下载
- 基于隐私保护的社会性别劳动分工信息共享底层协议与算法实现.pdf VIP
 - 根据多波束水深数据估算人工鱼礁空方量的方法.pdf VIP
 - 如何理解“作风建设永远在路上,永远没有休止符”?我们应如何加强作风建设? (3) .doc VIP
 - 2025年咨询工程师环保项目现金流量表的编制与环境效益量化专题试卷及解析.pdf VIP
 - 联通华盛终端连锁化运营项目-销售管理培训.pdf VIP
 - 临时用电验收要点:国标GB50194-2014.pdf VIP
 - 综合交通运输体系规划编制技术导则.pdf
 - 2025至2030中国铝合金压铸件行业投资策略及应用需求潜力研究报告.docx VIP
 - 医院重大事件请示报告制度.docx VIP
 - 金风25MW机组运行维护手册.pdf VIP
 
原创力文档
                        

文档评论(0)