| 查看: 568 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿北京化工大学 070300 学硕 336分 求调剂
已经有5人回复
-
323求调剂
已经有6人回复
-
352求调剂
已经有3人回复
-
一志愿东华大学化学070300，求调剂
已经有8人回复
-
277材料科学与工程080500求调剂
已经有7人回复
-
317求调剂
已经有18人回复
-
293求调剂
已经有5人回复
-
280分求调剂 一志愿085802
已经有7人回复
-
0854电子信息求调剂
已经有3人回复
-
263求调剂
已经有4人回复
3楼2008-03-26 08:50:56
dwjnet
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 2217.8
- 散金: 7
- 帖子: 480
- 在线: 32.9小时
- 虫号: 14647
- 注册: 2003-06-06
- 性别: GG
- 专业: 工程热物理相关交叉领域
2楼2008-03-04 18:04:16
loujing
铁杆木虫 (正式写手)
- 应助: 19 (小学生)
- 金币: 5835.5
- 散金: 2028
- 红花: 8
- 帖子: 322
- 在线: 110.2小时
- 虫号: 58180
- 注册: 2005-02-20
- 性别: GG
- 专业: 计算机应用技术
4楼2008-06-13 03:43:33
