请使用Visual Studio作为程序的开发环境,将源代码粘贴到答题的文本编辑框中(无需提交附件)。 定义一个模块级整型数组oldArr,并为其赋初值: Dim oldArr%() = {1, 3, 4, 5, 0, 0, 6, 6, 0, 5, 4, 7, 6, 7, 0, 5} 在窗体的Load事件过程中,将oldArr在TextBox1中显示。 单击“去掉零”命令按钮后,将oldArr中值不为0的元素存入一个新的数组newArr中,并将newArr在TextBox2中显示。提示:由于不确切知道newArr的大小,可先不定义newArr的大小。在遍历oldArr的过程中,每发现一个非0元素,则将newArr的大小扩大一个,并将数据写入。这里需要定义一个变量来记录newArr的下标上界或元素个数。可参考如下代码: Dim i%, newArr%() Dim count% = -1 For i = 0 To oldArr.GetUpperBound(0) If oldArr(i) <> 0 Then count += 1 ReDim Preserve newArr(count) newArr(count) = oldArr(i) End If Next