Exce中 A1到A9与B1到B9单元格对应,C1到C9与D1到D9单元格对应,B列与D列循环相加结果为11时,求A C的数值是多少?有多少组?用VBA代码如何编写?
题目
Exce中 A1到A9与B1到B9单元格对应,C1到C9与D1到D9单元格对应,B列与D列循环相加结果为11时,求A C的数值是多少?有多少组?用VBA代码如何编写?
答案
Sub test()
Dim arr,x&,y&,i&,Str1$
arr = Range("A1:D9").Value
For x = 1 To UBound(arr)
For y = 1 To UBound(arr)
If arr(x,2) + arr(y,4) = 11 Then
i = i + 1
Str1 = Str1 & "," & arr(x,1) & "和" & arr(y,3)
End If
Next y
Next x
MsgBox "共" & i & "组,对应A和C的值为:" & Mid(Str1,2,Len(Str1))
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- _the earth ,there are seven other planets in the solar system?——In addition to
- 1988年,李叔叔的年龄是林红和李强年龄和的4倍,2006年,李叔叔的年龄是他们的2倍,问,李叔叔那一年出生的?
- 增大和减小压强的方法各三条
- 英语翻译
- 直径8毫米的水管,水的流速为2.5米每秒,1小时要流掉多少吨水?
- what does chinese mean
- 你读哪几班?我读1班,用英语怎么说?
- 如图所示,斜面体A静止放置在水平地面上.质量为m的滑块B在外力F1和F2的共同作用下沿斜面体表面向下运动.当F1方向水平向右,F2方向沿斜面体的表面向下时斜面体受到地面的摩擦力方向向左
- 从里面量一种油箱,底面是边长为3分米的正方形,高是3.6分米.按每升汽油重0.68千克计算,这种油箱可装汽油
- He is going to go to Beijing by train tomorrow 对Beijing提问