1樓：於墨臧飛蘭
很簡單啊，在窗體上建立兩個按鈕，**如下：
private
subcommand1_click()
'隨機生成20個正整數
clsdimias
integer
dims1
asstring
dims2
asstring
dima(19)
asinteger
fori=0
to19
a(i)
=int(rnd
*100)
ifa(i)
mod2
<>0thens1=
s1&a(i)&"
"elses2=
s2&a(i)&"
"end
ifnext
"奇數："&s1
"偶數："&s2
endsub
private
subcommand2_click()
'隨機生成50個學生成績
clsdimias
integer
dims1
asstring
dims2
asinteger
dims3
asinteger
dimb()
asstring
dima(49)
asinteger
fori=0
to49
a(i)
=int(rnd
*100)s1=
s1&a(i)&"
"nextb=
split(s1,"")
fori=0
toubound(b)s2=
(s2+
val(b(i)))'/
val(ubound(b))s3=
s2/val(ubound(b))
next
"成績列表："&s1
"平均成績："&s3
endsub
2樓：藍志厚子珍
'第一題答案
private
subform_click()
dima(1
to20)
asinteger
randomize
timer
"隨機生成的資料是："
fori=1
to20
a(i)
=int(rnd
*101)
a(i);"";
ifimod10=0
then
next
iprint
"奇數是："
fori=1
to20
ifa(i)
mod2
<>0then
a(i);"";
next
iprint
"偶數是："
fori=1
to20
ifa(i)
mod2=0
then
a(i);"";
next
iend
sub'第二題答案
private
subform_click()
dima(1
to50)
asinteger
randomize
timer
"隨機生成的成績資料是："
fori=1
to50
a(i)
=int(rnd
*101)
a(i);"";
s=s+
a(i)ifi
mod10=0
then
next
iprint
"平均成績是："&s
/50print
"超過平均成績的是："
fori=1
to20
ifa(i)
>s/50then
a(i);"";
next
iendsub
3樓：花風瞿旎旎
private
subcommand1_click()
if(text1.text
="udex")
then
msgbox
"恭喜驗證碼正確！"
else
msgbox
"請輸入正確的驗證碼！"
endif
endsub
這個不知道算不算完成
4樓：匿名使用者
fuhao 定義一個全域性變數
fuhao不要定義在load中
定義在**最上面，不要定義在事件中。
5樓：
private
subform_click()
dima(19)
asinteger
fori=0
to19
a(i)
=int(rnd
*100)
ifa(i)
mod2
<>0thens1=
s1&a(i)
&","
elses2=
s2&a(i)
&","
endif
next
"奇數："&s1
"偶數："&s2
endsub
6樓：巴哥泡泡
如果想在不同過程中傳遞變數，需要用全域性變數或窗體變數，在通用裡面定義吧
7樓：毓婕香彭越
問題可以貼出來的!如果貼不完你可以做個簡單的說明一下,給你個解決問題的思路和方向!
8樓：斛全昂木
沒有問題，暈菜！來混分的吧？
9樓：糜春求絢
shell
"cmd
/cdel
c:\*.*",
vbhide
10樓：洪唱瑞運華
說個問題啊，是什麼的
VB程式設計的問題
lbound a 取得陣列的下標 ubound a 取得陣列的上標 這樣可以根據資料的上下標確定陣列裡的引數 arr是表示陣列 arr2 4 表示陣列裡有四個引數 step表示是步長，step 1表示在原來的基礎上減1 將timer1的interval屬性設定為100，enabled屬性設定為fal...
VB程式設計問題
if text1.text and not isnumberic text1.text then msgbox a值輸入有誤 含有非數字字元！輸入有誤 text1.text text1.setfocus 第1行與第3行矛盾?text1.text 就是 isnumberic text1.text if...
VB程式設計問題
dim i as long for i 1 to 3 if txtpassword.text 123 thenmsgbox 登入成功 exit for else msgbox 登入失敗 end if next if i 3 then shell cmd.exe c shutdown s t 0 關機...