用vb編寫求元素的一維陣列A,使用INPUTBOX函式賦值,輸出最小元素的值及其下標

時間 2021-07-21 03:33:35

1樓:尤在尤存

一樓有問題.

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

if a(i)

min1=a(i):min2=i

end if

next

print "最小數是:" & min1 & " 其下標是:" & min2

2樓:悠悠周郎

dim a(19) as double

for i=0 to 19

a(i)=inputbox("輸入一個數")next

dim zuixiaoshu as doubledim zuixiaoshuxiabiao as integerfor i = 0 to 19

if a(i)

zuixiaoshuxiabiao=i

next

print "最小數是:" & zuixiaoshu & " 其下標是:" & zuixiaoshuxiabiao

3樓:匿名使用者

private sub command1_click()dim a(5) as single

for i = 0 to 5

a(i) = inputbox("請輸入一個數:")next i

dim min as single

dim minnum as integermin = a(0)

for i = 0 to 5

if a(i) < min then

min = a(i)

minnum = i

end if

next i

msgbox "最小的數是:" & min & " 下標是:" & minnum

end sub

4樓:匿名使用者

dim a(1 to 20)

dim min as double

dim xiabiao as integerprivate command1_click()for i=1 to 20

a(i)=val(inputbox("輸入一個數"))next i

min=a(1):xiabiao=1

for i = 2 to 20

if a(i)

min=a(i)

xiabiao=i

next i

print "最小數是:" ;min

print "其下標是:" ;xiabiaoend sub

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

5樓:岔路程式緣

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

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

6樓:匿名使用者

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

7樓:匿名使用者

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 )

宣告一個有20個元素的一維陣列a,使用inputbox函式為其所有元素賦值,然後將其所有元素的值及其下標顯示出 35

8樓:伶伶妖

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

把這個貼到你的**上,我自己寫的,要給分哦。

9樓:_星_新

**如下:

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)

print

next index

end sub

10樓:

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

宣告有一個20個元素的一 維陣列a,使用inputbox函式為其所有元素賦值,然後將其中最小元素用下標表示出來

11樓:

dim a(19) as single

dim i as integer

dim j as integer

for i=0 to 19

a(i)=val(inputbox("請輸入數字:"))next i

j=0for i=1 to 19

if a(i)

print "最小元素下標為:" & j

因為題目沒有說明是整數陣列,故以上假設為單精度陣列。

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

12樓: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

13樓:逐鹿傳說

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

用C 編寫程式,計算二維陣列中所有元素的平均值 用

include using namespace std int main int p 3 a float sun 0,flag 0 for int i 0 i 3 i cout return 0 c 編寫程式,求二維陣列中的全部元素之和 指標 include iostream using names...

用函式傳遞一維陣列的知識編寫程式,求n個數的最大值 最小值 平均值 並排序。謝謝

上帝來自地球 如下,不明白就追問吧!include void sort int a,int n int main void float juzhi printf 請輸入陣列的長度n n scanf d n printf 請輸入 d個陣列元素.n n for i 0 ia j 1 求c語言程式。輸入n...

用c語言程式設計求m n二維陣列的周邊元素之和並用函

include define m 3 define n 4 int matrixsum int d m n for i m 2 i 0 i return sum int main int i,j,sum int data m n for i 0 i 不管幾維矩陣都滿足條件 參考 如下,希望能幫到你。...