Question

VB,用VB语言写!随机产生10个两位整数,求期中的最大值,最小值和平均值.

Answer 1

Dim nMax as Integer, nMin as Integer, nTmp as Integer, nJsq as Integer

Dim dSum as Double

Randomize

nTmp = CInt(Rnd * 100)

nMax = nTmp

nMin = nTmp

dSum = nTmp

For nJsq = 2 To 10

nTmp = CInt(Rnd * 100)

IF nTmp > nMax Then nMax = nTmp

IF nMin < nTmp Then nMin = nTmp

dSum = dSum + nTmp

Next

dSum = dSum / 10

Print "Max = "+ CStr(nMax) + vbNewLine

Print "Min = "+ CStr(nMin) + vbNewLine

Print "Avr = "+ CStr(nSum) + vbNewLine