急求！一道VB程式設計題謝謝，10道VB題 急求答案！！！謝謝高手了

1樓：

private sub procmin(a() as integer, byval amin as integer)

dim i%, amin0%

for i = lbound(a) to ubound(a)print a(i);

amin0 = a(lbound(a))

if a(i) < amin0 then amin = a(i)next i

print

print "amin="; amin

end sub

private sub command1_click()dim a(1 to 10) as integer, i% ', amin0%

for i = 1 to 10

a(i) = int(501 * rnd + 300)next i

call procmin(a(), amin)end sub

2樓：匿名使用者

主程式dim a(10) as integerrandomize

for i = 0 to 9

a(i) = int((800 - 300 + 1) * rnd + 300)

next

procmin(a())

--子函式

function procmin(a() as integer) as integer

dim min as integer

min = a(0)

for i = 1 to 9

if min > a(i) then

min = a(i)

end if

next

procmin = min

end function

10道vb題 急求答案！！！謝謝高手了

3樓：匿名使用者

bcddaabdbc

樓上第一題b跟第六題a沒看清楚？明顯答案就是衝突的所以第六題是a

第二題是基礎基礎基礎啊 居然選a？應該是c

4樓：何宜校

badda dbdbc

(僅供參考)

求1道小學VB程式設計題目謝謝，急求！一道VB程式設計題 謝謝！

private sub form click dim i j s i 1,j 0 do while s 2000 j i j s s j i i 1 loop print n i print s s end sub 有點不記得了 大概是這樣的 你自己除錯一下哈！private sub form cl...

急求一道程式設計題答案

include include struct student char name 50 char y 10 int no int chinese int english int math int totalscore void sortinfo struct student arr,int n st...

一道數學題，急求答案，一道數學題，急求答案

暮秋之殤 由題知走了10天，設雨天有x天 則有 12x 17 10 x 160 解之得 x 2 設軍訓期間雨天有x 天,晴天有y天,則 12x 17y 160 x y 160 16 10 x 2,y 8 軍訓期間雨天有2天. 維 他命 設雨天為x，軍訓進行了160 16 天 10天 則晴天 10 x...