UC知道求助：C#，改写VB
来源：百度知道 编辑：UC知道 时间：2024/06/04 09:18:12
Private Sub Command2_Click()
Dim i, j, m, waitnum, refusenum, arrivenum As Integer
Dim refuseall, arriveall As Long '多次仿真转送他人，和送来的总次数
ReDim randshow1(1 To 1000) As String '随机数序列
ReDim randshow2(1 To 1000) As String
For m = 1 To 1000 '1000次仿真
Randomize (m) '初始化随机数生成器
For j = 1 To 1000
randshow1(j) = Rnd(8)
randshow2(j) = Rnd(7)
Next j
i = 2
j = 2
Dim timearrive, sumarrive, timedeal, sumdeal, timenow As Double
timearrive = 0 '单次抽样表的到达时间
sumarrive = 0 '累计表的到达时间
timedeal = 0 '单次抽样工作人员处理时间
timearrive = 0 '累积工作人员处理时间
timenow = 0 '当前时刻
waitnum = 0 '等待处理的表格个数
refusenum = 0 '每次仿真转送其他人员的表格总数
arrivenum = 0 '每次仿真到达总数'从零时刻开始抽表到达时间，然后抽第一次处理时间
time
Dim i, j, m, waitnum, refusenum, arrivenum As Integer
Dim refuseall, arriveall As Long '多次仿真转送他人，和送来的总次数
ReDim randshow1(1 To 1000) As String '随机数序列
ReDim randshow2(1 To 1000) As String
For m = 1 To 1000 '1000次仿真
Randomize (m) '初始化随机数生成器
For j = 1 To 1000
randshow1(j) = Rnd(8)
randshow2(j) = Rnd(7)
Next j
i = 2
j = 2
Dim timearrive, sumarrive, timedeal, sumdeal, timenow As Double
timearrive = 0 '单次抽样表的到达时间
sumarrive = 0 '累计表的到达时间
timedeal = 0 '单次抽样工作人员处理时间
timearrive = 0 '累积工作人员处理时间
timenow = 0 '当前时刻
waitnum = 0 '等待处理的表格个数
refusenum = 0 '每次仿真转送其他人员的表格总数
arrivenum = 0 '每次仿真到达总数'从零时刻开始抽表到达时间，然后抽第一次处理时间
time
using Microsoft.VisualBasic;
public class Class1
{
private void Command2_Click()
{
int i;
int j;
int m;
int waitnum;
int refusenum;
int arrivenum;
long refuseall;
long arriveall;
//多次仿真转送他人，和送来的总次数
// ERROR: Not supported in C#: ReDimStatement
//随机数序列
// ERROR: Not supported in C#: ReDimStatement
//1000次仿真
for (m = 1; m <= 1000; m++) {
Randomize(m);
//初始化随机数生成器
for (j = 1; j <= 1000; j++) {
randshow1(j) = Rnd(8);
randshow2(j) = Rnd(7);
}
i = 2;
j = 2;
double timearrive;
double sumarrive;
double timedeal;
double sumdeal;
double timenow;
timearrive = 0;
//单次抽样表的到达时间
sumarrive = 0;
//累计表的到达时间
timedeal = 0;
//单次抽样工作人员处理时间
timearrive = 0;
//累积工作人员处理时间
timenow =