| 查看: 584 | 回复: 3 | |||
| 当前主题已经存档。 | |||
lygxxm至尊木虫 (正式写手)
|
[交流]
【求助】计算机高手改写一下程序
|
||
|
本人因工作需要，需要改写下面的程序，下面的程序在excel中用，用VBA编写的，要求根据输入的数字（比如95），填写在相应单元格里随机生成的数字是70，80，90，100中的一个，填写的12个单元格里的数和的平均正好是95（四舍五入）。谢谢了！ Function createdata(k) Dim datanew(1 To 1, 1 To 12) As Integer Dim dataend(1 To 1, 1 To 12) As Integer Dim i As Integer Dim j As Integer Dim l As Integer Dim grade As Integer Dim sum As Integer Dim aver As Integer Dim control As Integer grade = Cells(k, 33) If grade > 90 Then l = 102 - grade Else l = 10 End If For i = 1 To 12 datanew(1, i) = Int(l * Rnd) + grade dataend(1, i) = datanew(1, i) sum = sum + datanew(1, i) Next i aver = sum / 12 j = aver - grade If j > 0 Then For i = 1 To 12 dataend(1, i) = datanew(1, i) - j Next i End If If j < 0 Then For i = 1 To 12 dataend(i, 1) = datanew(i, 1) + j Next i End If Range(Cells(k, 3), Cells(k, 18)) = dataend End Function [ Last edited by 2007骑猪逛街 on 2008-1-8 at 20:37 ] |
回复此楼» 猜你喜欢
接受任何调剂
已经有7人回复
-
化学070300 求调剂
已经有29人回复
-
297，工科调剂?
已经有5人回复
-
22408 312求调剂
已经有26人回复
-
收到复试调剂但是去不了
已经有8人回复
-
260求调剂
已经有5人回复
-
急需调剂
已经有10人回复
-
申博/考博
已经有4人回复
-
化工学硕294分，求导师收留
已经有37人回复
-
求调剂
已经有11人回复
dwjnet
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 2217.8
- 散金: 7
- 帖子: 480
- 在线: 32.9小时
- 虫号: 14647
- 注册: 2003-06-06
- 性别: GG
- 专业: 工程热物理相关交叉领域
2楼2008-03-04 18:04:16
3楼2008-03-26 08:50:56
loujing
铁杆木虫 (正式写手)
- 应助: 19 (小学生)
- 金币: 5835.5
- 散金: 2028
- 红花: 8
- 帖子: 322
- 在线: 110.2小时
- 虫号: 58180
- 注册: 2005-02-20
- 性别: GG
- 专业: 计算机应用技术
4楼2008-06-13 03:43:33
50