VB中元素的陣列,元素下標是1。產生隨機值放入陣列,統計陣列的平均值,最大

2021-03-21 18:35:14 字數 5268 閱讀 2490

1樓:匿名使用者

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

vb考試一個具備有10個元素的一堆陣列,下標從1到10,每個元素的值是由隨機函式產生的【100,40

2樓:涐吢銥舊囿儚

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

print "偶數個數為:"; n

end sub

樓主可以參考一下這段**。

3樓:匿名使用者

sadsad awsdasd

利用vb,編寫一個3*4的二維陣列輸入任意整數,求所有陣列元素和及平均值

4樓:匿名使用者

利用vb,編寫一個3*4的二維陣列輸入任意整數並且求所有陣列元素和及平均值方法為:

1、輸入標頭檔案和主函式。

2、初始化陣列並定義變數型別。

3、輸入i和j。

4、輸出第i行第j列的元素。

5、編譯、執行。

注意事項:在visual basic 6.0中,採用物件導向程式設計方法(object-oriented programming),把程式和資料封裝起來作為一個物件,每個物件都是可視的。

5樓:匿名使用者

private sub ***mand1_click()

dim i as integer, j as integer, a(1 to 3, 1 to 4) as integer, x as integer

'i、j、x 是變數,a(1 to 3, 1 to 4)是二維陣列變數

for i = 1 to 3   'i是迴圈變數,這

裡迴圈3次

for j = 1 to 4   'j是迴圈變數,這裡迴圈4次

randomize    '重新整理隨機數種子

a(i, j) = int(rnd * 90 + 10)    '產生隨機數,儲存在a陣列中

x = x + a(i, j)    '計算陣列的和

print a(i, j) & "   ";    '列印陣列的值

next j   'j迴圈結束

print    '列印換行

next i    'i迴圈結束

print   '設定一個空行

print "3*4陣列的和 = " & x    '列印陣列的和

print "平均值 = " & round((x / ((i - 1) * (j - 1))), 2) '列印平均值,取小數後二位

end sub

6樓:聽不清啊

private sub ***mand1_click()print "請輸入一個3*4的二維陣列"

dim a(3, 4)

for i = 1 to 3

for j = 1 to 4

x = val(inputbox("請輸入a(" & i & "," & j & "):"))

a(i, j) = x

s = s + a(i, j)

print a(i, j),

next j

print

next i

print

print "元素總和="; s

print "平均值="; s / 12

end sub

vb程式設計求**(陣列) 一個有十個元素的陣列,產生十個隨機數放入陣列中,要求統計陣列的平均值,最大

7樓:

private sub ***mand1_click()dim a(1 to 10)

randomize

sum = 0

maxid = 1: minid = 1

for i = 1 to 10

a(i) = int(rnd * 100)if a(maxid) < a(i) then maxid = iif a(minid) > a(i) then minid = isum = sum + a(i)

next i

print "平均值是:" & sum / 10print "最大值是:" & a(maxid) & "   下標是:" & maxid

print "最小值是:" & a(minid) & "   下標是:" & minid

end sub

vb程式設計:隨機生成10個資料,用一維陣列存放(預設下標從1開始),輸出陣列元素於一行,將該陣列元素... 20

8樓:丹溪藍終覓

option

base

語句在模組級別中使用,用來宣告陣列下標的預設下界。語法option

base

說明由於下界的預設設定是

0,因此無需使用

option

base

語句。如果使用該語句,則必須寫在模組的所有過程之前。一個模組中只能出現一次

option

base,且必須位於帶維數的陣列宣告之前。注意dim、private、public、redim以及static

語句中的

to子句提供了一種更靈活的方式來控制陣列的下標。不過,如果沒有使用to子句顯式地指定下界,則可以使用

option

base

將預設下界設為

1。使用

array

函式或paramarray

關鍵字建立的陣列的下界為

0;option

base

對array

或paramarray

不起作用。option

base

語句隻影響位於包含該語句的模組中的陣列下界。

一個具備有10個元素的一堆陣列,下標從1到10,每個元素的值是由隨機函式產生的【100,400】之間

9樓:聽不清啊

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

print "其中共有偶數"; n; "個"

end sub

10樓:匿名使用者

參考**:

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,每個陣列元素的值是隨機函式產生的1~10

11樓:匿名使用者

private sub ***mand1_click()dim a(1 to 10) as integerrandomize

for i = 1 to 10

a(i) = int(rnd * 100) + 1print a(i);

next

print

for i = 1 to 10

for j = 1 to i

if a(i) < a(j) then t = a(i): a(i) = a(j): a(j) = t

next

next

for i = 1 to 10

print a(i);

next

end sub

vb程式設計「宣告一個陣列有10個元素,各元素賦值與其下標相同,下標從1到10

12樓:網海1書生

dim a(1 to 10) as integer, i as integer

for i = 1 to 10

a(i) = i

next

一個具有10個元素的一維陣列,下標從1到10,每個元素的值是由隨機函式產生的[200,500]之間的隨機整數。要

13樓:西域牛仔王

大概意思 ,自己完善。

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編寫程式 具有元素的一維陣列,下標從1到10,要求用inputbox從鍵盤上輸入其元

解 private sub command1 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 最小的數字 專為屬 mi...

matlab中如何刪去陣列中元素

具體方法如下 a 1 10 生成陣列a a 1 2 3 4 5 6 7 8 9 10 a 5 刪除陣列a中第5個元素 a a 1 2 3 4 6 7 8 9 10 擴充套件資料 生成 hdl coder 可替代 simulink hdl coder 的新產品,新增了直接從 matlab 生成 hdl...

在C 中引用陣列元素時,其下標的資料型別允許的是 A整形常

整形常量與整形表示式都可以,寫程式中有a 1 常量 a x y 表示式 應該選c非父點型表示式 在c語言中,引用陣列元素時,其陣列下標的資料型別允許是 a 整型常量 b 整型表示式 c 整型常 單選題麼?是的話選a c是怎麼回事沒打全啊 a b都是可以的 c 你沒寫全。整形常量或整形表示式 在c語言...