作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/03 13:51:57
VB,
用VB语言写!
随机产生10个两位整数,求期中的最大值,最小值和平均值.
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