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 "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
(僅供參考)
一道vb題，急求，vb題一道，急求
答案是c.輸入10000個數值，計算平均數，適合採用迴圈結構演算法。a。判斷一個證書是否為偶數，解決該問題僅需一步判斷，也許需要一步賦值，沒有多次重複的步驟，不適合採用迴圈結構演算法。b。輸入一個圓的半徑，計算面積和周長。輸入資料 計算面積，這三個內容都是一個語句就可以完成的，沒有多次重複的步驟，不...
一道c語言程式設計題急求答案,一道C語言程式設計題急求答案
c語言程式 include stdio.h 對陣列進行排序 void sort int arr,int n void main int n 10 int max double avg 0.0 int i max arr 0 avg arr 0 for i 1 i max avg n sort arr...
一道VB題，一道VB題目
以指定次數來重複執行一組語句。語法for counter start to end step step statements exit for statements next counter for next 語句的語法具有以下幾個部分 部分 描述 counter 必要引數。用做迴圈計數器的數值變數...