1樓：涐吢銥舊囿儚
option explicit
private sub ***mand1_click()dim a(1 to 10) as longdim v as long, n as longdim i as long
n = 0: randomize
me.cls
for i = 1 to 10
v = 100 + 300 * rnd()a(i) = v '存入陣列
'print v; '輸出產生的隨機數n = n + (v and 1 xor 1) '偶數統計next
print "偶數個數為："; n
end sub
樓主可以參考一下這段**。
2樓：匿名使用者
sadsad awsdasd
c程式，輸入10個整數存入一維陣列，從第二個元素開始，每個元素的值等
3樓：凌亂心扉
#include
#include
int main()
for(i=1;i<10;i+
for(i=0;i<10;i++)
printf("%d ",b[i]);
return 0;
}include用法copy：
#include命令預處理命
令的一種，預處理命令可以將別的源**內容插入到所指定的位置；可以標識出只有在特定條件下才會被編譯的某一段程式**；可以定義類似識別符號功能的巨集，在編譯時，預處理器會用別的文字取代該巨集。
插入標頭檔案的內容
#include命令告訴預處理器將指定標頭檔案的內容插入到預處理器命令的相應位置。有兩種方式可以指定插入標頭檔案：
1、#include《檔名》
2、#include"檔名"
4樓：癯月笑浮生
#include
void fun();
int main()
void fun()}
乙個具備有10個元素的一堆陣列，下標從1到10，每個元素的值是由隨機函式產生的【100，400】之間
5樓：聽不清啊
private sub ***mand1_click()dim a(10) as integer, n as integer, i as integer
randomize
print "產生的10個數是:"
for i = 1 to 10
a(i) = int(301 * rnd) + 100print a(i);
if a(i) mod 2 = 0 then n = n + 1next
print "其中共有偶數"; n; "個"
end sub
6樓：匿名使用者
參考**：
sub aa()
dim arr(1 to 10)
for i = 1 to 10
arr(i) = int(301 * rnd() + 100)if arr(i) mod 2 = 0 thenn = n + 1
end if
next
msgbox "偶數個數為：" & n & "個。"
end sub
乙個具有10個元素的一維陣列，下標從1到10，每個元素的值是由隨機函式產生的[200，500]之間的隨機整數。要
7樓：西域牛仔王
大概意思 ，自己完善。
dim i，k，s，a(10)
for i=1 to 10
a(i)=int(301*rnd()+200)next i
s=a(1)
k=1for i=2 to 10
if a(i)最小值為 a(」；k ；「)="；a(k)end
vb編寫程式：乙個具有10個元素的一維陣列，下標從1到10，要求用inputbox從鍵盤上輸入其元
8樓：1號阿江
解：private sub ***mand1_click()dim a(1 to 10) as doubledim min as double
for i=1 to 10
a(i)=val(inputbox("請輸入陣列元素值："))next i
for i=1 to 10
if a(i)最小的數字
專為屬：" & min
end sub
9樓：逐鹿傳說
private sub ***mand1_click()dim a(1 to 10)
dim b, c
b = val(inputbox(""))a(1) = b
for i = 2 to 10
c = val(inputbox(""))a(i) = c
if b > c then b = c
next
msgbox "最小:" & b
end sub
vb程式設計「宣告乙個陣列有10個元素,各元素賦值與其下標相同，下標從1到10
10樓：網海1書生
dim a(1 to 10) as integer, i as integer
for i = 1 to 10
a(i) = i
next
vb中 乙個10個元素的陣列，第乙個元素下標是1。產生10個隨機值放入陣列，統計陣列的平均值，最大
11樓：匿名使用者
private sub ***mand1_click()
dim a(10)
randomize
dim sum as integer, min as integer, max as integer, imax as integer, imin as integer
sum = 0: min = 100: max = 0: imax = 0: imin = 0
for i = 0 to 9
a(i) = int(101 * rnd))
sum = sum + a(i)
if a(i) < min then min = a(i): imin = i+1
if a(i) > max then max = a(i): imax = i+1
print a(i);
next i
print vbcrlf & "最大值
索引:"; imax
print "最小值:"; imin
print "平均值:"; sum / 10
end sub
一、建立乙個10個元素的int陣列， 1) 隨機賦值 100以內的整數 2) 按降序排序 3) 輸出排序後的陣列元素 30
12樓：兄弟連教育北京總校
#include
#include
#include
int main()
for(i = 0; i < 10; i ++)printf("%d ", a[i]);}
13樓：_葉子妞妞
這個 不就是昨天那個嘛...
vb已知乙個具有10個整數的一維陣列，各元素值隨機產生（範圍在10，99）求出該一維陣列中的最小位 10
14樓：聽不清啊
private sub ***mand1_click()randomize
dim a(10) as integer
m = 1
for i = 1 to 10
a(i) = int(rnd * 90) + 10print a(i);
if a(i) < a(m) then m = inext i
print "最小元素a("; m; ")="; a(m)print
end sub
乙個小品應該具備那些元素？小品劇本都需要那些要素？
基本要求是語言清晰，形態自然，能夠充分理解和表現出各角色的性格特徵和語言特徵，最為代表的是喜劇小品。小品劇本都需要那些要素？1 深入生活，貼近生活，體驗生活，從生活中找靈感。要用藝術的眼光去發現題材，挖掘題材。2 題材宜小不宜大，要 大題小做 不要 小題大做 切忌包羅永珍，搞 高大全 乙個小品最好只...
vb中的問題，vb中的乙個問題
這個格式化數字的函式,可以把數字按使用者要求的格式顯示,2.34 對應後面的引號內的 0.00 表示格式為小數點前一位數及後面兩位數,其餘位數字四捨五入,後面 e 00 表示指數形式,e 02 表示10的兩次方.這是將 234.45 轉變為科學計數法，不進行四捨五入print format 234....
VB的另問題，VB的另乙個問題
第一種方法 private sub command1 click for i 1 to 3 print tab 4 i for j 1 to 2 i 1print next print next for k 2 to 1 step 1print tab 4 k for l 1 to 2 k 1pri...