1樓:聽不清啊
private sub command1_click()dim a(10) as integer
for i = 1 to 10
a(i) = 2 * i
print a(i);
next i
end sub
vb程式設計宣告一個有10個元素的一維陣列a使用inputbox函式為所有元素賦值,將其最小元素的值及下標顯示出來
2樓:岔路程式緣
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個元素的int陣列, 1) 隨機賦值 100以內的整數 2) 按降序排序 3) 輸出排序後的陣列元素 30
3樓:兄弟連教育北京總校
#include
#include
#include
int main()
for(i = 0; i < 10; i ++)printf("%d ", a[i]);}
4樓:_葉子妞妞
這個 不就是昨天那個嘛...
vb程式設計「宣告一個陣列有10個元素,各元素賦值與其下標相同,下標從1到10
5樓:網海1書生
dim a(1 to 10) as integer, i as integer
for i = 1 to 10
a(i) = i
next
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 )
求一vb程式設計,編寫陣列,將資料系列最後元素移動到位置,其餘元素依次後移
把最後一個放到一個臨時變數,然後運用迴圈將倒數第二個賦給倒數第一個,倒數第三個賦給倒數第二個,最後把臨時變數賦給第一個元素。如果要我給出原始碼來就沒意思了。private sub form load 建立一個陣列 dim a 9 as integer 初始化陣列 dim i as integer f...
VB題 定義陣列,包含兩位的隨機整數,求出其中的最大
private sub form click dim a 1 to 10 as integerprint 原始資料是 for k 1 to 10 a k int 90 rnd 10 print a k next k max a 1 print print 最大數是 for each x in a i...
vb計算某一陣列元素對應的值是多少
array arglist 所需的 arglist 引數是一個用逗號隔開的值表,這些值用於給 variant 所包含的陣列的各元素賦值。如果不提供引數,則建立一個長度為 0 的陣列。說明用來表示陣列元素的符號由變數名 圓括號以及括號中的所需元素的索引號組成。在下面的示例中,第一條語句建立一個 var...