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？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？ 這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。 網海1書生 private sub form load timer1.interval 60000 60秒檢測一次當前日期 timer1.enabled trueend sub private sub timer1 timer if date 2010 5 9 then 如果日期為2010 5 9則... 我有個程式和你說的差不多，也是用adodc加datagrid連線access資料庫做的，程式已發到你郵箱。還有不明白的發我資訊，郵件裡有我qq 給你發了乙個程式，原始檔，介面 private sub command dim conn as adodb.connectionset conn new a... 樓主連程序和執行緒都沒搞清楚怎麼做 一個程式只能有一個程序,而一個程序可以多執行緒.你想實現程序相互監視,必須得做2個exe程式互相監督,這個比較簡單,不停重新整理工作管理員來獲取當前的程序有沒存在指定程序即可,如果不存在則開啟就ok.開機啟動寫下登錄檔就好了 隱藏工作列需要把自己的程式註冊為一個系...vb如何實現定時呼叫函式的功能，vb如何實現定時呼叫乙個函式的功能
VB實現ACCESS資料庫記錄的查詢，新增，刪除，修改
這個用VB怎麼實現，VB怎麼實現這個簡單的功能？