vb編寫程式 具有元素的一維陣列,下標從1到10,要求用inputbox從鍵盤上輸入其元

2021-04-15 12:27:06 字數 3717 閱讀 5086

1樓:1號阿江

解: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)最小的數字

專為屬:" & min

end sub

2樓:逐鹿傳說

private sub command1_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開始),輸出陣列元素於一行,將該陣列元素... 20

3樓:丹溪藍終覓

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

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

vb程式設計宣告一個有10個元素的一維陣列a使用inputbox函式為所有元素賦值,將其最小元素的值及下標顯示出來

4樓:岔路程式緣

option explicit

private sub form_load()form1.autoredraw = truedim a(10) as single

dim i as byte

for i = 1 to 10

a(i) = val(inputbox("輸入bai第du" & i & "個數

zhi", "輸入", 88))

print a(i);

next

print

a(0) = 1

for i = 2 to 10

if a(a(0)) > a(i) then a(0) = inext

print "最小

dao的元

內素是第

容a("; a(0); ")"; "="; a(a(0))end sub

已知一個具有10個整數的一維陣列,各元素值隨機產生(範圍在[10,99]內),要求從鍵盤輸入一個整

5樓:匿名使用者

#include

#include

#include

int main ()

}printf("沒有找到哦\n");

} while (1);

return 0;}

vb已知一個具有10個整數的一維陣列,各元素值隨機產生(範圍在10,99)求出該一維陣列中的最小位 10

6樓:聽不清啊

private sub command1_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

print "最小元素a("; m; ")="; a(m)print

end sub

vb程式設計題,定義一下有20個元素的一維陣列,使用inputbox函式為陣列中的所有元素賦值,並顯示

7樓:匿名使用者

dim a(1 to 20) as integerprivate sub form_click()mx = a(1)

mn = a(1)

for i = 1 to 20

a(i) = inputbox("輸入一來個數自值", "輸入")if a(i) > mx then mx = a(i)if a(i) < mn then mn = a(i)next

print "最大值是

" & mx & ",最小值是" & mnend sub

8樓:匿名使用者

dim a(20)

dim i,j,k

for i=0 to 19

a(i) = inputbox("輸入第

baidu"& i + 1 &"個資料

:zhi")

if i=0 or j>a(i) thenj = a(i)

end if

if i=0 or k小

dao="& j &",最回

大答="& k )

vb程式設計:某陣列中有10個元素,元素的值由鍵盤輸入,要求將前5個元素與後5個元素對換,

9樓:良陣

dim a() as integer 』原來的陣列dim b() as integer '換後的陣列dim i as integer

for i=0 to 4

b(i)=a(9-i)

b(9-i)=a(i)

next i

你要怎麼樣輸入輸出資料?是一個一個輸,輸10次還是一個textbox中輸入10個數中間用空格隔開

輸出,是在另一個textbox中顯示還是msgbox彈出來顯示

10樓:匿名使用者

private sub command1_click()dim a(1 to 10) as integerdim i as integer, tmp as integerfor i = 1 to 10

a(i) = inputbox("input number")print a(i);

next

print

for i = 6 to 10

tmp = a(i - 5)

a(i - 5) = a(i)

a(i) = tmp

next

for i = 1 to 10

print a(i);

next

11樓:匿名使用者

直接伸手啊,把你會的**拿出來,我幫你發言

編寫程式,求有資料的一維陣列中最小元素的平方根

include include include include main printf n 冒泡法答排序 for i 0 i 10 1 i 輸出排列後的陣列 printf 排列後的隨機數陣列的各元素為 n for i 0 i 10 i printf 最小3個元素的平方根之和為 2lf n sum i...

用VB編寫程式,用VB編寫一個程式

樓上的,不許要引用吧 option explicit private declare function getdrivetype lib kernel32 alias getdrivetypea byval ndrive as string as long private declare funct...

第一題 編寫程式 對陣列元素依次賦值為 0,2,4 198,要求按逆序輸出

int num 100 int i 0,j 0 for i 0 i 100 i for i 0 i 10 i printf n 對10個陣列元素依次賦值為0,1,2,3,4,5,6,7,8,9,要求按逆序輸出。錯了呢 語法上錯誤有 int i a 10 變數i與變數a 10 之間少了符號,輸出格式錯...