1樓：匿名使用者
正數賦予給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）等物件。
2樓：網海1書生
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
3樓：
dim a(6) as integer
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=1k=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
vb6.0程式設計：輸入10個資料,統計其中正數,負數和零的個數（要求用多分值語句做）……求大神解答，謝謝啦
4樓：浪花飄零
加乙個按鈕，加入下面程式，若滿意請及時採納，謝謝private sub command1_click()dim num as integer
dim fl(-1 to 1) as integerfor i = 1 to 10
num = inputbox("輸入第" & i & "個數版")if num > 0 then
fl(1) = fl(1) + 1
elseif num = 0 then
fl(0) = fl(0) + 1
else
fl(-1) = fl(-1) + 1
end if
next i
msgbox ("正數：" & fl(1) & "個，權0：" & fl(0) & "個,負數：" & fl(-1))
end sub
5樓：網海1書生
private sub form_load()dim i as integer, n as doubledim n1 as long, n2 as long, n3 as long
for i = 1 to 10
n = val(inputbox("請輸du入第" & i & "個數zhi
dao"))
if n > 0 then
n1 = n1 + 1
elseif n < 0 then
n2 = n2 + 1
else
n3 = n3 + 1
end if
next
msgbox "正數" & n1 & "個，回負數" & n2 & "個，零
答" & n3 & "個"
end sub
VB給陣列 賦值，急急急，VB中給陣列元素賦初值
為定義陣列大小.需要先定義data2 list陣列大小 redim data2 list n n為指定值.vb中給陣列元素賦初值 有問題請追問，滿意請採納，新年快樂！加油！1 vb6定義陣列時不需要人為初始化陣列，它會自動把數值型陣列的每個元素初始化為0，把字串陣列的每個元素初始化為空串。2 如果你...
設a2,給定數列 Xn ,其中X1 a,X（n
牧菲菲鄞美 下表用 1 由 x n 1 1 2 x n a x n 知道x n 0時,x n 1 0 而x 1 a 0，所以所有的 x n 0 等式兩邊減根號a x n 1 根號a 1 2x n x n 2 a 根號ax n 1 根號a 1 2x n x n 2 2根號a x n a x n 1 根...
c語言程式設計給定數，找小於這個數的所有勾股陣列。例如 使用者輸入15系統會給出 1）共有3組勾
要求的程式已經編寫完成 include include int main int i,j,k,p,n,q 1,max,maxi,a 100 3 scanf d n p int float n n sqrt 2 for i 3 i p i for j i jfor k int i 1.4 kif i ...