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

admin2009-03-15  31

问题 在窗体上画一个命令按钮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://jikaoti.com/ti/Kfq0FFFM
0

最新回复(0)