VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数
题目
VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数
B(1)=A(1)+A(2)+A(3)+A(4)
B(20)=A(20)+A(1)+A(2)+A(3)
随机生成数组A,用循环结构求出每四个相邻数之和,用数组B保存
答案
'把所有的与最大值相同的都显示出来
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(0 To 19) As Integer
Dim b(0 To 19) As Integer
Dim Max As Integer
Dim i As Integer
Max = 0
Print "随机生成的整数:";
For i = 0 To 19
Randomize
a(i) = Int(Rnd * 11)
Print a(i);
Next
Print
Print "被累加后的整数:";
For i = 0 To 19
b(i) = a(i Mod 20) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20)
If b(Max) < b(i) Then Max = i
Print b(i);
Next
Print
FindData b, b(Max), a
'Print "最大值:" & b(Max)
'Print "相邻的数:" & a(Max Mod 20); a((Max + 1) Mod 20); a((Max + 2) Mod 20); a((Max + 3) Mod 20)
End Sub
Function FindData(arr() As Integer, ByVal MaxI As Integer, arra() As Integer)
Dim i As Integer
For i = 0 To UBound(arr)
If arr(i) = MaxI Then
Print "最大值:" & arr(i)
Print "相邻的数:" & arra(i Mod 20); arra((i + 1) Mod 20); arra((i + 2) Mod 20); arra((i + 3) Mod 20)
End If
Next
End Function
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 求英语新目标九年级上册Unit1 1a、1b 对话
- 把一个分数的分子扩大到原来的5倍,分母缩小到原来的三分之一,得到7又2分之1,原分数是?
- both是限定词时后面的复数名词一定要是数量为2的吗
- 数学题:2 7 8 9=24 怎么写 ? 用上符号
- 用简便方法计算:-3.14×35.2+6.28×(-23.3)-1.57×36.4=_.
- dream as if you could live forever,live as if you would die today
- 某零件制造车间有工人20名,已知每名工人每天可制造甲种零件6个或乙种零件5个,且每制造一个甲种零件可获利150元,每制造一个乙种零件可获利260元.在这20名工人中,车间每安排x名工人制造甲种零件,其
- 如图,平行四边形ABCD中,AB=5,BC=10,BC边上的高AM=4,E为BC边上的一个动点(不与B、C重合).过E作直线AB的垂线,垂足为F.FE与DC的延长线相交于点G,连接DE,DF.
- 一杯糖水100克,糖和水的九分之一,如果再加入60克水,这是糖占糖水的()%
- 过量盐酸与碳酸钙反应式