1樓：
private sub form_load()dim b(15) as string
b(3) = "a"
b(9) = "b"
b(11) = "c"
msgbox searchvalinarray(b, "b")end sub
private function searchvalinarray(byref a() as string, byval val as string) as integer
dim r as long
searchvalinarray = -1for r = 0 to ubound(a)if a(r) = val then
searchvalinarray = r
exit for
end if
next
end function
大概就是這麼個意思
2樓：匿名使用者
dim a(15) as integer
private function inarr(n as integer) as boolean
dim i as integer
for i = 0 to 15
if a(i) = n then
inarr = true
exit for
end if
next i
end function
private sub command1_click()dim i as integer
clsrandomize
for i = 0 to 15
a(i) = rnd * 50
print a(i)
next i
if inarr(10) then
print "有10"
else
print "沒有10"
end if
end sub
c語言：①題目：編寫程式，定義一個含有15個元素的陣列，並編寫函式分別完成以下操作：
3樓：匿名使用者
③按順序對每隔3個數求1個和，並傳回主函式；
這步怎麼理解，是按照陣列順序還是陣列元素的順序，需不需要引入新的陣列儲存每三個數的和。
4樓：匿名使用者
#include
#include
#define m 15
void getx(int *s);
void putx(int s);
int sum(int x,int s);
main()
,i;getx(x);
putx(x);
for(i=0;i<15;i++)printf("%d ",x[i]);
printf("\n");
for(i=0;i<15;i++)
printf("%d ",sum(i,x));
system("pause");
}void getx(int *s)
void putx(int s)
int sum(int y,int s)
5樓：匿名使用者
main()
int qiuhe(int a,int j)
6樓：匿名使用者
for(i=0,j=i+2.k=0;j a[k++]=a[i]+a[j]; vb編寫一個函式過程，用於求任意一維陣列的所有元素的平均值（使用陣列引數）。在「生成隨機數」按鈕的 7樓：武林神話之劍客 option explicit '窗體放兩個文字框，兩個按鈕 dim i%, p#, s%, sjs%(20)private sub command1_click()randomize text1 = "" for i = 1 to 20 sjs(i) = int(rnd * 101)text1 = trim(text1 & " " & sjs(i))next end sub private sub command2_click()text2 = pjz(sjs) end sub function pjz(ar%()) as doubledim p% for i = 1 to ubound(ar)p = p + ar(i) next pjz = p / ubound(ar) end function vb程式設計題，定義一下有20個元素的一維陣列，使用inputbox函式為陣列中的所有元素賦值，並顯示 8樓：匿名使用者 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 9樓：匿名使用者 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程式設計問題：1使用隨機函式產生10個10~100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在一個 10樓：匿名使用者 根據已有的程式行，缺的內容主要就是一個排序過程。新增一個排序的過回 程就答行了。但是不知道該添在**，請說明程式的空白處是在**？能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？ 或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2. text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的， 那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？ 這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。 private function a n as integer as long dim sum as long,nn as integer,i,jsum 0 for j 1 to n nn 1 for i 1 to j nn nn i next i sum sum nn next j a sum e... select from 表1 where 貨號 trim text1.text update 表1 set 38碼 trim text2.text 39碼 trim text3.text 40碼 trim text4.text 41碼 trim text5.text 42碼 trim text6.t... rnd，產生隨機函式，所得值在0 1之間 所以要產生0 100的隨機數，那麼就用100 rnd 1 就可以產生0 100的隨機數 如果要取正的話 就用int rnd 100 1 還有一點要強調 如果每次都要使隨機數不一樣，那麼還要在產生隨機數之前加上randomize 這個表示產生的隨機數不一樣例子...vb編寫函式，實現計算1 2n
VB連線ACCESS，如何實現查詢指定內容
VB語言中隨機函式，VB中隨機函式的用法