1樓：匿名使用者
窗體上新增兩個command，然後使用以下**：
dim a() as single, i as integer, j as integer
private sub command1_click()redim a(1 to 20) as singleclsfor i = 1 to 20
a(i) = val(inputbox("請輸入第" & i & "個元素的值"))
next i
end sub
private sub command2_click()for i = 1 to 19
for j = i + 1 to 20
if a(i) > a(j) then
t = a(i): a(i) = a(j): a(j) = tend if
next
next
print "最小值元素：" & a(1) & vbcrlf & "最大元素：" & a(20)
end sub
private sub form_load()command1.caption = "輸入陣列"
command2.caption = "顯示"
end sub
2樓：匿名使用者
'1、在名稱為form1，標題為「陣列為引數」的窗體上有兩個命令按鈕c1，c2，標題分別為」輸入顯示」，「退出」；
'2、兩個文字框text1,text2,初始內容為空，兩個標籤l1,l2，標題為標題分別為「陣列中的最大值」和「陣列中的最小值」。
'3、在text1和text2中分別顯示出最大值和最小值。單擊c2退出程式。
private sub c1_click()
dim array1(0 to 19) as double
dim a as double
dim b as double
for i = 0 to 19
array1(i) = val(inputbox("輸入數值"))
next i
call max(array1, a, b)
text1 = a
text2 = b
end sub
private sub c2_click()
unload me
end sub
private sub form_load()
me.caption = "陣列為引數"
text1 = ""
text2 = ""
l1.caption = "陣列中的最大值"
l2.caption = "陣列中的最小值"
c1.caption = "輸入顯示"
c2.caption = "退出"
end sub
sub max(array1, a, b)
for i = 0 to ubound(array1) - 1
for j = ubound(array1) - 1 to i step -1
if array1(j) > array1(j + 1) then
a = array1(j)
array1(j) = array1(j + 1)
array1(j + 1) = a
end if
next j
next i
a = array1(ubound(array1))
b = array1(0)
end sub
vb程式設計題，定義一下有20個元素的一維陣列，使用inputbox函式為陣列中的所有元素賦值，並顯示
3樓：匿名使用者
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
4樓：匿名使用者
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 )
隨機生成25個兩位數，構成一個5*5二維陣列。在靠邊元素及對角元素中求出最大值最小值並顯示結果的v
5樓：千鋒教育
private sub form_click()dim a(1 to 5, 1 to 5), t%, r%, c%, max%, min%
max = 10: min = 99
for r = 1 to 5
for c = 1 to 5
randomize
t = int(rnd * 90) + 10a(r, c) = t
print a(r, c);
if r = 1 or r = 5 or c = 1 or c = 5 or r = c then
if t > max then max = tif t < min then min = tend if
next c
next r
print "max: "; max
print "min: "; min
end sub
宣告一個有20個元素的一維陣列a，使用inputbox函式為其所有元素賦值，然後將其所有元素的值及其下標顯示出 35
6樓：伶伶妖
private sub form_click()dim arry(20) as integerdim str1 as string
for i = 0 to 19
str1 = "請輸入第" + str(i) + "個值"
arry(i) = val(inputbox(str1, "輸入值"))
next i
for i = 0 to 19
print "下標為"; i; "你輸入的值為"; arry(i)print
next i
end sub
把這個貼到你的**上，我自己寫的，要給分哦。
7樓：_星_新
**如下：
private sub form_click()dim arry(20) as integerdim str1 as string
for index = 1 to 20
str1 = "請輸入第" + index + "個值"
arry(index - 1) = val(inputbox(str1, "輸入值"))
next index
for index = 0 to 19
print "下標為" + index + "你輸入的值為"+ arry(index)
next index
end sub
8樓：
private sub form_click()dim a(1 to 20), i as integer, j as integer
for i = 1 to 20
a(i) = inputbox("")
next i
for j = 1 to 20
print "a(" & j & ")=" & a(j)next j
end sub
程式設計求出任意一個一維陣列元素中最大值和最小值的下標。陣列元素的值由使用者鍵盤輸入
9樓：珈藍惜夢
源程式**以及演算法解釋如下：
#define _crt_secure_no_warnings//vs環境下需要，vc不需要
#include
using namespace std;//引用名稱空間
void main()
if (number[i] < min)//如果小那麼取出來
}cout << "max: " << max << endl;
cout << "min: " << min << endl;
cout << "i_max: " << i_max << endl;
cout << "i_min: " << i_min << endl;
}程式執行結果如下：
擴充套件資料：
對任意一個一維陣列，從中找出陣列元素的最大值和最小值並輸出 。
要求：1）陣列有10個元素；
2）使用scanf函式實現陣列元素的輸入，輸入前給出必要的提示資訊；
3）輸出時，首先輸出陣列的十個元素，然後輸出其最大值和最小值。
樣例輸入
1 2 3 4 5 6 7 8 9 0
樣例輸出
a[0]=1
a[1]=2
a[2]=3
a[3]=4
a[4]=5
a[5]=6
a[6]=7
a[7]=8
a[8]=9
a[9]=0
max:9,min:0*/
#include
int main()
printf("max:%d,min:%d",max,min);
return 0;
}
10樓：願者上鉤
**： #include
void main()
else
if(a[i] } } printf("最大值的下標是%d(下標從0開始)\n",max_f); printf("最小值的下標是%d(下標從0開始)\n",min_f); } 圖： vb程式設計宣告一個有10個元素的一維陣列a使用inputbox函式為所有元素賦值,將其最小元素的值及下標顯示出來 11樓：岔路程式緣 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 尤在尤存 一樓有問題.dim a 19 as double for i 0 to 19 a i inputbox 請輸入一個數 next dim min1 as double 記錄最小值dim min2 as integer 記錄下標min1 a 0 min2 0 要賦初值for i 1 to 19... 大野瘦子 如下 include include include void main int i,a 10 max,min,pmax,pmin,tmp srand time null for i 0 i 10 i a i rand 100 0 printf 這十個數分別為 n for i 0 i 10... 沒錢的萌娃紙 程式設計 如下 檔案字尾名為.cpp include using namespace std define num 20 求和資料個數的最大值 int main int i,n int sum 0 int a num cout 請輸入需要求和的資料的個數 cin n cout 請輸入需...用vb編寫求元素的一維陣列A，使用INPUTBOX函式賦值，輸出最小元素的值及其下標
C語言 定義包含元素的一維陣列找出其中的最大值讓其與元素交換，找出最小值與最後
C 程式設計一維陣列元素求和