VB问题 给定数组a(10,-30,44,12,-13,77),试编程将其中的正数赋予给b数组，负数赋给c数组。急急急!!!
正数赋予给b数组，负数赋给c数组的代码：
Dim a(), b(), c()
Dim i As Integer, m As Integer, n As Integer
a = Array(10, -30, 44, 12, -13, 77)
Print "a数组：";
For i = 0 To UBound(a)
Print a(i);
If a(i) > 0 Then
ReDim Preserve b(m)
b(m) = a(i)
m = m + 1
ElseIf a(i) < 0 Then
ReDim Preserve c(n)
c(n) = a(i)
n = n + 1
End If
Next
Print "b数组：";
For m = 0 To UBound(b)
Print b(m);
Next
Print "c数组：";
For n = 0 To UBound(c)
Print c(n);
Next
扩展资料：
在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。
事件（Event）
事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如，在命令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件。总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件。
方法（Method）
方法是用来控制对象的功能及操作的内部程序。例如，人具有说话、行走、学习、睡觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”。以窗体为例，它具有显示（show）或隐藏（hide）的方法。总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作。
属性（Property）
属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。
有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。总之属性指明了对象“是什么样的？”，常用于定义对象的外观。
对象与类
对象（Object）
Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。
在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。
参考资料来源：百度百科-Visual Basic
Dim i As Integer, m As Integer, n As Integer
a = Array(10, -30, 44, 12, -13, 77)
Print "a数组：";
For i = 0 To UBound(a)
Print a(i);
If a(i) > 0 Then
ReDim Preserve b(m)
b(m) = a(i)
m = m + 1
ElseIf a(i) < 0 Then
ReDim Preserve c(n)
c(n) = a(i)
n = n + 1
End If
Next
Print "b数组：";
For m = 0 To UBound(b)
Print b(m);
Next
Print "c数组：";
For n = 0 To UBound(c)
Print c(n);
Next
你好，很佩服你的能力，十分感谢。请问如果这题改为将奇数和偶数分别赋给b,c数组该怎么写编程呢？期待您的回答！事关考试
If a(i) > 0 Then
改为
If a(i) Mod 2 = 1 Then
ElseIf a(i) < 0 Then
改为
Else
dim b(6) as integer
dim c(6) as integer
a(1)=10…
dim i as integer
dim j as integer
Dim K as integer
j=1
k=1
for i=1 to 6
if a(i)>0then
b(j)=a(i)
j=j 1
else if a(i)<0 then
c(k)=a(i)
K=k 1
endif
next i
