在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr() As Integer ReDim arr(3) For i=0 To

admin2010-09-11  35

问题 在窗体上画一个命令按钮Command1,然后编写如下程序:
   Private Sub Command1_Click()
       Dim arr() As Integer
       ReDim arr(3)
       For i=0 To 3
           art(i)=i
       Next i
       x=InputBol("请输入一个数字:")
       If Val(x)>4 Then
           ReDim arr(4)
           art(4)=x
       End If
       Me.Print (arr(4)-arr(3))
   End Sub
   程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【   】。

选项

答案12

解析 用Redim语句重定义数组的维数时,原有维数内的内容将被破坏。除非用Redim Preserve来重新定义维数。
本题中由于输入值x>4,动态数组在被重定义为包含4个元素的数组后(即Redim arry(3),此时ally(3)=3),重新被定义为包含5个元素的数组,而重定义时并未用Preserve关键字。故此时arty(3)=0(实际上arty(0)、 any(1)、arry(2)的值也都为0,即Integer类型变量的初始值)。
转载请注明原文地址:https://jikaoti.com/ti/FDg0FFFM
0

随机试题
最新回复(0)