vb中求任意六个值中最大值和最小值
题目
vb中求任意六个值中最大值和最小值
是在这种界面上的
答案
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- Why does love have to be so hard,all i ever wanted was a simple fairy tale.- Queen B 这句话是啥意
- shen着慌 shen字怎么写
- 将方程3x²-5=6x化为一般形式ax²+bx+c=0后,a=______,b=_______,c=_______
- 保护世界文化遗产有什么重要意义
- wta points race
- 已知1/2=1-1/2,1/6=1/2-1/3,1/12=1/3-1/4.计算1/2+1/6+1/12+1/201/30+1/42+1/56+1/72+1/90=?
- See you later,alligator
- 8吨的5分之1等于()吨的5分之1
- 下面容器中的圆柱体和圆锥体底相等,高都是3分米,观察图中发生的变化,求出圆柱的体积.
- 大正方形的周长比小正方形的周长长96厘米,它们的面积相差960平方厘米.求这两个正方形的边长.