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

admin2009-03-15 27

问题在窗体上画一个命令按钮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)
      arr(4)=x
   End If
   Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【  】。

选项

答案12

解析用Redim语句重定义数组的维数时，原有维数内的内容将被破坏。除非用Redim Preserve来重新定义维数。

转载请注明原文地址:https://kaotiyun.com/show/XR1p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类