前言：
今天朋友们对“vb数组最多可以有多少个元素”都比较关注，姐妹们都想要学习一些“vb数组最多可以有多少个元素”的相关资讯。那么小编也在网上网罗了一些关于“vb数组最多可以有多少个元素””的相关知识，希望咱们能喜欢，小伙伴们快快来学习一下吧！设a是一个具有10个元素的一维整型数组，下标从1到10，每个元素的值由用户输入，要求把数组a中的非0数据按照原来的次序存入数组b中，并输出数组b各元素的值。
错误（不严谨）写法，这样会导致输出数组b元素的值可能会存在0的情况，题目含义要求的是数组b是专门用来存放非0数据的，下面两部分代码分别是不严谨写法和正确写法：
Private Sub Command1_Click() ’单击事件过程开始 Dim a(1 To 10) As Long, b(1 to 10) As Long ‘声明定长数组a、数组b For i = 1 To 10 ‘循环10次给数组a的10个元素赋值 a(i) = Val(InputBox("请输入第" & i & "个元素的值：")) ’数组a中10个元素的值由用户输入 If a(i) <> 0 Then ‘ 如果数组a中某个元素的值不为0 b(i) = a(i) ’将数组a中不等0的元素的值赋值给数组b中对应的元素 print b（i） End If ‘if判断语句结束 NextEnd SubPrivate Sub Command1_Click() ’单击事件过程开始 Dim a(1 To 10) As Long, b() As Long ‘声明定长数组a和动态数组b Dim i As Long, count As Long ’声明变量i和计数器count 你不想声明也没关系但是需要给计数器count赋初值0 For i = 1 To 10 ‘循环10次给数组a的10个元素赋值 a(i) = Val(InputBox("请输入第" & i & "个元素的值：")) ’数组a中10个元素的值由用户输入 If a(i) <> 0 Then ‘ 如果数组a中某个元素的值不为0 count = count + 1 ’计数器+1 ReDim Preserve b(1 To count) ‘给动态数组b开辟存储空间(不清空数组b中原先元素的值) b(count) = a(i) ’将数组a中不等0的元素的值赋值给数组b中对应的元素 End If ‘if判断语句结束 Next For i = 1 To count Print b(i) ’通过for循环将数组b中的元素依次输出 NextEnd Sub 版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #vb数组最多可以有多少个元素 #功能从键盘为一维整型数组输入10个整数 #vb给数组赋值几种方法 #vb 数组添加元素 #vb如何给数组赋值
