题目
vb中求任意六个值中最大值和最小值
是在这种界面上的
是在这种界面上的提问时间：2021-03-29
答案
Private Sub Form_Click()
Dim n(5) As Integer,nMax As Integer,nMin As Integer,i As Integer
Randomize
Print "六个数分别是：";
For i = 0 To 5
n(i) = Int(Rnd * 100)
Print n(i);
Next
Print
nMax = n(0)
nMin = n(0)
For i = 1 To 5
If n(i) > nMax Then nMax = n(i)
If n(i) < nMin Then nMin = n(i)
Next
Print "最大值是：" & nMax
Print "最小值是：" & nMin
End Sub
Dim n(5) As Integer,nMax As Integer,nMin As Integer,i As Integer
Randomize
Print "六个数分别是：";
For i = 0 To 5
n(i) = Int(Rnd * 100)
Print n(i);
Next
nMax = n(0)
nMin = n(0)
For i = 1 To 5
If n(i) > nMax Then nMax = n(i)
If n(i) < nMin Then nMin = n(i)
Next
Print "最大值是：" & nMax
Print "最小值是：" & nMin
End Sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点