2. 计算机
  3. 在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_click() Dim arr() As Integer ReDim arr(3) For i=0 To 3 arr(i

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

admin2013-04-11  54
问题 在窗体上画一个命令按钮Command1，然后编写如下程序：
   Private Sub Command1_click()
   Dim arr() As Integer
   ReDim arr(3)
   For i=0 To 3
     arr(i)=i
   Next i
   x=InputBox("请输入一个数字：")
   If Val(x)＞4 Then
      ReDim arr(4)
      an(4)=x
   End If
        Me.Print(an(4)-arr(3))
   End Sub
   程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【  】。
选项
答案12
解析 用Redim语句重定义数组的维数时，原有维数内的内容将被破坏。除非用Redim Preserve来重新定义维数。
   本题中由于输入值x＞4，动态数组在被重定义为包含4个元素的数组后(即Redim arry(3)，此时arry(3)=3)，重新被定义为包含5个元素的数组，而重定义时并未用Preserve关键字。故此时arry(3)=0(实际上arry(0)、 arry(1)、arry(2)的值也都为0，即Integer类型变量的初始值)。
转载请注明原文地址:https://www.kaotiyun.com/show/eBQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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