www.pudn.com > j1.rar > Module1.bas

Attribute VB_Name = "Module1" 
Public a, b, c, d As Integer  ' a页面走向变量  b 内存块数  c 页面流长度 
Public Sub Optimal()    '最佳置换算法 
Dim m, n As Integer     'm 存放要置换的内存块下标，n 存放页面流下标 
Dim flag As Boolean 
For i = 0 To b - 1 
   For j = a To c - 1 
      If Form2.Text1((a - 1) * 10 + i).Text = Form2.TxtPage(j).Text Then  '看内存页面在页面流中是否出现 
        If j > n Then m = i: n = j: flag = True                           '出现则 
     End If 
   Next j 
   If Not flag Then m = i: Exit For                                        '不出现则 
   flag = False 
Next i 
Form2.Text1((a - 1) * 10 + m).BackColor = vbRed 
For i = 0 To b - 1 
   Form2.Text1(a * 10 + i).Text = Form2.Text1((a - 1) * 10 + i).Text 
Next i 
Form2.Text1(a * 10 + m).Text = Form2.TxtPage(a).Text 
m = 0: n = 0 
End Sub 
 
Public Sub FIFO()         '先进先出算法 
For i = 0 To b - 1 
    Form2.Text1(a * 10 + i).Text = Form2.Text1((a - 1) * 10 + i).Text 
 Next i 
 Form2.Text1(a * 10 + d).Text = Form2.TxtPage(a).Text 
 Form2.Text1((a - 1) * 10 + d).BackColor = vbRed 
d = d + 1 
If d = b Then d = 0 
 
 End Sub