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
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 "最小元素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
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 之間少了符號,輸出格式錯...