设有如下通用过程: Public Sub Fun(a( )As Integer,x As Integer) For i=1 TO 5 x=x+a(i)

admin2013-01-23  35

问题 设有如下通用过程:          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_Cliek(   )           Dim arr(5) As Integer,n As Integer           For i=1 To 5               arr(i)=i+i           Next               Fun arr,n           Text1.Text=Str(n)        End Sub        程序运行后,单击命令按钮,则在文本框中显示的内容是

选项 A、30
B、25
C、20
D、15

答案1

解析 本题需先对通用过程分析Fun(a(  )As Integer,x As,Integer)的功能,该通用过程是将数组的a(1)到a(5)的和返回,arr(5)的各个元素a(1)到a(5)的值分别为2、4、6、8、10,所以其和为30。
转载请注明原文地址:https://jikaoti.com/ti/NtO0FFFM
0

最新回复(0)