求助VB大神啊,我是个菜鸟。 求教:虚拟颗粒数目Nf,分成C=200类,每类的数目i不同。我想问一下怎么编程使

[复制链接]
查看11 | 回复1 | 2013-5-10 11:29:53 | 显示全部楼层 |阅读模式
Private Sub Form_Click()Const N1 = 1000000 Nf = 1000wa = N1 / Nf id = 0Do For j = 1 To C
N(j) = j * N1 / 201 / 100
Nd(j) = N(j) / wa
If Nd(j) = 0 Then
Nd(j) = 1
ElseIf
Nd(j)0 Then
For i = id + 1 To id + Nd(j)
w(i) = N(j) / Nd(j)...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行