memo.bas

ｖｂ做的银行家算法

Attribute VB_Name = "Memoroy"
Public Coun, xx, yy As Integer
Public Sys(), RR() As Integer       '   剩余资源
'    以下是银行家算法变量
 Public Need() As Integer
 Public Al() As Integer          '
 Public maxx() As Integer         '最大须求量
 Public Ci, Hi As Integer        '     进程数  与作业数
 Public Psafety() As Boolean
 Public Maxxbak(), AlBak() As Integer
 
Public Ai, Mi, Mj, Aj, n, Ax, Mx, sysN, rrn As Integer

Public Needin As Boolean

Public SysList As String

Public jch, sysbak(), rrbak()