| 查看: 573 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿安大生物学07初试322、本科二本、调剂求助
已经有7人回复
-
0856专硕求调剂 希望是a区院校
已经有25人回复
-
085600材料与化工，求调剂
已经有12人回复
-
一志愿2110，化学学硕310分，本科重点双非求调剂
已经有19人回复
-
材料工程085601，270求调剂
已经有33人回复
-
复试调剂
已经有12人回复
-
新一代电子信息294求调剂 不挑学校
已经有8人回复
-
290调剂生物0860
已经有29人回复
-
279学硕食品专业求调剂院校
已经有15人回复
-
310求调剂
已经有14人回复
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
