哪两个分数相乘乘等于﹣2012，相加等于1

来源：蜘蛛抓取(WebSpider) 时间：2012-05-26 11:23 标签： 一位数与两位数相乘
您还未登陆，请登录后操作！
悬赏20爱心点
分享到微博
相乘再乘以相乘等于多少
您的举报已经提交成功，我们将尽快处理，谢谢！
2.5乘以0.4等于1，也就是还剩一个2.5.+×+1=()×()×()最后等于三个数相乘_百度知道
+×+1=()×()×()最后等于三个数相乘
我有更好的答案
按默认排序
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁选取任意几个数相乘后再相加，其中有0，如何编函数啊，举例，1，2，1，3，0，4六个数选每三个相乘后再相加，如1*2*1+1*2*3.................+3*0*4
如果要是在15个数中选三个，公式是一样的吗？各位高手求助啊，急急急！！！看附件
(273 Bytes, 下载次数: 19)
21:00 上传
下载次数: 19
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
不明白你要什么效果……
在线时间6 小时经验7 威望0 性别男最后登录注册时间阅读权限10UID2121562积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
→友の良杰← 发表于
不明白你要什么效果……
(310 Bytes, 下载次数: 13)
17:47 上传
下载次数: 13
感谢回复，我再说明一下啊，发个附件
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
★此时相逢★ 发表于
感谢回复，我再说明一下啊，发个附件
3个数相乘后再相加，需要加几次？3个数是在这些数中随机取吗？还是需要一定的规律？
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
02:46 上传
02:46 上传
02:46 上传
是这样的效果吗？
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
本帖最后由 →友の良杰← 于
14:26 编辑
代码如下：
Private Sub CommandButton1_Click()
& & Dim i, j, k, ir, sum, arr() As Integer
& & Dim Str As String
& & Dim r, rg As Range
& & Set rg = Application.InputBox(&请选择一个区域&, &选择区域&, Type:=8)
& & ReDim arr(rg.Count) As Integer
& & ir = 0
& & '判断数据有效性，并初始化数组
& & For Each r In rg
& && &&&If IsNumeric(r.Value) = False Then
& && && && &MsgBox (&你的选择有误，请确认选择都为数字！&)
& && && && &Exit Sub
& && &&&End If
& && &&&arr(ir) = Val(r.Value)
& && &&&ir = ir + 1
& & '调试数据
& & 'Debug.Print (UBound(arr))
& & '计算表达式sum = sum + arr(i) * arr(k) * arr(j)
& & For i = 0 To UBound(arr) - 1
& && &&&For j = i + 1 To UBound(arr) - 1
& && && && &For k = i + 2 To UBound(arr) - 1
& && && && && & Str = Str & arr(i) & &*& & arr(j) & &*& & arr(k) & &+&
& && && && && & sum = sum + arr(i) * arr(k) * arr(j)
& && && && && & '在立即窗口输出数据
& && && && && & Debug.Print (&i=& & i & &[& & arr(i) & &],j=& & j & &[& & arr(j) & &],k=& & k & &[& & arr(k) & &],sum=& & sum)
& && && && &Next
& && && && &i = i + 1
& && &&&Next
& && &&&i = i + 1
& & Str = Left(Str, Len(Str) - 1)
& & MsgBox Str & &=& & sum
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
附上源文件
(12.77 KB, 下载次数: 17)
02:51 上传
下载次数: 17
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
本帖最后由 →友の良杰← 于
13:30 编辑
→友の良杰← 发表于
代码如下：
[code=vb]Str = Str & arr(i) & &*& & arr(k) & &*& & arr(j) & &+&[/code]
代码中这句话，K和J写反了，正确的如下
Str = Str & arr(i) & &*& & arr(j) & &*& & arr(k) & &+&
在线时间6 小时经验7 威望0 性别男最后登录注册时间阅读权限10UID2121562积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
→友の良杰← 发表于
附上源文件
兄弟感谢您的回答，您给我的好像有点小问题，我在给您发一个附件，你看看，在帮我写一下，我对宏基本上不懂，告诉我在excle里怎么用这个，谢谢
(5.32 KB, 下载次数: 8)
23:48 上传
下载次数: 8
在线时间41 小时经验50 威望0 性别男最后登录注册时间阅读权限20UID1908653积分50帖子精华0分享0
EH初级, 积分 50, 距离下一级还需 300 积分
积分排行3000+帖子精华0微积分0
00:32 上传
(11.86 KB, 下载次数: 21)
00:33 上传
下载次数: 21
Private Sub CommandButton1_Click()
& & Dim i, j, k, ir&&As Integer
& & Dim sum, arr() As Double
& & Dim Str As String
& & Dim r, rg As Range
& & Set rg = Application.InputBox(&请选择一个区域&, &选择区域&, Type:=8)
& & ReDim arr(rg.Count) As Double
& & ir = 0
& & '判断数据有效性，并初始化数组
& & For Each r In rg
& && &&&If IsNumeric(r.Value) = False Then
& && && && &MsgBox (&你的选择有误，请确认选择都为数字！&)
& && && && &Exit Sub
& && &&&End If
& && &&&arr(ir) = Val(r.Value)
& && &&&ir = ir + 1
& & '调试数据
& & 'Debug.Print (UBound(arr))
& & '计算表达式sum = sum + arr(i) * arr(k) * arr(j)
& & For i = 0 To UBound(arr) - 1
& && &&&For j = i + 1 To UBound(arr) - 1
& && && && &For k = i + 2 To UBound(arr) - 1
& && && && && & Str = Str & arr(i) & &*& & arr(j) & &*& & arr(k) & &+&
& && && && && & sum = sum + arr(i) * arr(k) * arr(j)
& && && && && & '在立即窗口输出数据
& && && && && & Debug.Print (&i=& & i & &[& & arr(i) & &],j=& & j & &[& & arr(j) & &],k=& & k & &[& & arr(k) & &],sum=& & sum)
& && && && &Next
& && && && &i = i + 1
& && &&&Next
& && &&&i = i + 1
& & Str = Left(Str, Len(Str) - 1)
& & MsgBox Str & &=& & sum
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&用1，3，5，7，9中的任意一个数与2，4，6，8中的任意一个数相乘，在所有不同的乘积中有多少个能被6整除_百度知道
用1，3，5，7，9中的任意一个数与2，4，6，8中的任意一个数相乘，在所有不同的乘积中有多少个能被6整除
提问者采纳
9，4，8，浓芄丰锻莶蹬机伦6，不同的乘积有9个1。（11个）能被6整除，8，6；5；9；7；12，6；30；3，分别为；36；3；3，6；18；24，2；54，4；3，6，2；9；42；9：6
其他类似问题
按默认排序
其他4条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 一位数与两位数相乘 的文章

 

随机推荐