2. 计算机
  3. 设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和

设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和

admin2010-09-11  59
问题 设有如下通用过程：    Public Sub Fun(a() As Integer, x As Integer)    For i=1 To 5    x=x+a(i)    Next    End Sub    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：    Private Sub Command1_Click()        Dim arr(5)As Integer, n As Integer        For i=1 To 5            art(i)=i+i        Next        Fun arr, n        Text1. Text=Str(n)    End Sub    程序运行后，单击命令按钮，在文本框中显示的内容是______。
选项 A、30
B、25
C、20
D、15
答案A
解析 在Command1_Click过程中，数组arr(1)～arr(5)的初值为2、4、6、8、10，在子函数Fun中，数组arr的内容传送给数组a，在For-Next循环中将其内容相加起来的30赋给变量x，x的内容按地址传送的方式传给变量n，函数Str将n的内容转换成字符串在Text1中显示出来。
转载请注明原文地址:https://kaotiyun.com/show/8tmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)