在窗体上画一个命令按钮Command1 然后编写如下程序： Private Sub Command1
在窗体上画一个命令按钮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 art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
请帮忙给出正确答案和分析，谢谢！
参考解答
461***265
2023-07-22 23:10:54
正确答案：12
用Redim语句重定义数组的维数时，原有维数内的内容将被破坏。除非用RedimPreserve来重新定义维数。本题中由于输入值x＞4，动态数组在被重定义为包含4个元素的数组后(即Redimarry(3)，此时arry(3)=3)，重新被定义为包含5个元素的数组，而重定义时并未用Preserve关键字。故此时arry(3)=0(实际上arry(0)、arry(1)、arry(2)的值也都为0，即Integer类型变量的初始值)。
相似问题
建立打开文件 保存文件 颜色 字体 打印对话框所使用的方法分别为【 】 【 】 ShowColor
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【 】、【 】、ShowColor、ShowFont和ShowPrinter。请帮忙给出正确答案和分析，谢谢！
程序执行结果s的值是【 】。 Private Sub sub1(Byval p As Integer
程序执行结果s的值是【 】。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i
假定建立了一个工程 该工程包括两个窗体 其名称(Name属性)分别为Form1和Form2 启动窗体
假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求
当用【 】方式打开文件时 如果对文件进行写操作 则写入的数据附加到原来文件的后面。请帮忙给出正确答案
当用【 】方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。请帮忙给出正确答案和分析，谢谢！
执行以下语句后 输出结果为______。 s$='ABCDEFG' Print InStr(s$ '
执行以下语句后，输出结果为______。 s$= "ABCDEFG " Print InStr(s$， "efg ") Print LCase$(s$)请帮忙给出正确答案和分析，谢谢！
