www.pudn.com > j1.rar > Form2.frm
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 10170
ClientLeft = 60
ClientTop = 345
ClientWidth = 10785
FillColor = &H80000018&
LinkTopic = "Form2"
ScaleHeight = 10170
ScaleWidth = 10785
StartUpPosition = 3 'Windows Default
Begin TabDlg.SSTab SSTab1
Height = 9255
Left = 600
TabIndex = 14
Top = 960
Width = 9975
_ExtentX = 17595
_ExtentY = 16325
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
ForeColor = -2147483633
TabCaption(0) = "实现"
TabPicture(0) = "Form2.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label15"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label14"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label13"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label12"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label11"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label10"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label9"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label8"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label7"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label6"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label5"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label3"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label2"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Label4"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Shape1"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Shape2"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Line1"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Label16"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Check1(9)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Check1(8)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Check1(7)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Check1(6)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "Check1(5)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Check1(4)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Check1(3)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Check1(2)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Check1(1)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "Check1(0)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "Text1(99)"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Text1(98)"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "Text1(97)"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "Text1(96)"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "Text1(95)"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).Control(33)= "Text1(94)"
Tab(0).Control(33).Enabled= 0 'False
Tab(0).Control(34)= "Text1(93)"
Tab(0).Control(34).Enabled= 0 'False
Tab(0).Control(35)= "Text1(92)"
Tab(0).Control(35).Enabled= 0 'False
Tab(0).Control(36)= "Text1(91)"
Tab(0).Control(36).Enabled= 0 'False
Tab(0).Control(37)= "Text1(90)"
Tab(0).Control(37).Enabled= 0 'False
Tab(0).Control(38)= "Text1(89)"
Tab(0).Control(38).Enabled= 0 'False
Tab(0).Control(39)= "Text1(88)"
Tab(0).Control(39).Enabled= 0 'False
Tab(0).Control(40)= "Text1(87)"
Tab(0).Control(40).Enabled= 0 'False
Tab(0).Control(41)= "Text1(86)"
Tab(0).Control(41).Enabled= 0 'False
Tab(0).Control(42)= "Text1(85)"
Tab(0).Control(42).Enabled= 0 'False
Tab(0).Control(43)= "Text1(84)"
Tab(0).Control(43).Enabled= 0 'False
Tab(0).Control(44)= "Text1(83)"
Tab(0).Control(44).Enabled= 0 'False
Tab(0).Control(45)= "Text1(82)"
Tab(0).Control(45).Enabled= 0 'False
Tab(0).Control(46)= "Text1(81)"
Tab(0).Control(46).Enabled= 0 'False
Tab(0).Control(47)= "Text1(80)"
Tab(0).Control(47).Enabled= 0 'False
Tab(0).Control(48)= "Text1(79)"
Tab(0).Control(48).Enabled= 0 'False
Tab(0).Control(49)= "Text1(78)"
Tab(0).Control(49).Enabled= 0 'False
Tab(0).Control(50)= "Text1(77)"
Tab(0).Control(50).Enabled= 0 'False
Tab(0).Control(51)= "Text1(76)"
Tab(0).Control(51).Enabled= 0 'False
Tab(0).Control(52)= "Text1(75)"
Tab(0).Control(52).Enabled= 0 'False
Tab(0).Control(53)= "Text1(74)"
Tab(0).Control(53).Enabled= 0 'False
Tab(0).Control(54)= "Text1(73)"
Tab(0).Control(54).Enabled= 0 'False
Tab(0).Control(55)= "Text1(72)"
Tab(0).Control(55).Enabled= 0 'False
Tab(0).Control(56)= "Text1(71)"
Tab(0).Control(56).Enabled= 0 'False
Tab(0).Control(57)= "Text1(70)"
Tab(0).Control(57).Enabled= 0 'False
Tab(0).Control(58)= "Text1(69)"
Tab(0).Control(58).Enabled= 0 'False
Tab(0).Control(59)= "Text1(68)"
Tab(0).Control(59).Enabled= 0 'False
Tab(0).Control(60)= "Text1(67)"
Tab(0).Control(60).Enabled= 0 'False
Tab(0).Control(61)= "Text1(66)"
Tab(0).Control(61).Enabled= 0 'False
Tab(0).Control(62)= "Text1(65)"
Tab(0).Control(62).Enabled= 0 'False
Tab(0).Control(63)= "Text1(64)"
Tab(0).Control(63).Enabled= 0 'False
Tab(0).Control(64)= "Text1(63)"
Tab(0).Control(64).Enabled= 0 'False
Tab(0).Control(65)= "Text1(62)"
Tab(0).Control(65).Enabled= 0 'False
Tab(0).Control(66)= "Text1(61)"
Tab(0).Control(66).Enabled= 0 'False
Tab(0).Control(67)= "Text1(60)"
Tab(0).Control(67).Enabled= 0 'False
Tab(0).Control(68)= "Text1(59)"
Tab(0).Control(68).Enabled= 0 'False
Tab(0).Control(69)= "Text1(58)"
Tab(0).Control(69).Enabled= 0 'False
Tab(0).Control(70)= "Text1(57)"
Tab(0).Control(70).Enabled= 0 'False
Tab(0).Control(71)= "Text1(56)"
Tab(0).Control(71).Enabled= 0 'False
Tab(0).Control(72)= "Text1(55)"
Tab(0).Control(72).Enabled= 0 'False
Tab(0).Control(73)= "Text1(54)"
Tab(0).Control(73).Enabled= 0 'False
Tab(0).Control(74)= "Text1(53)"
Tab(0).Control(74).Enabled= 0 'False
Tab(0).Control(75)= "Text1(52)"
Tab(0).Control(75).Enabled= 0 'False
Tab(0).Control(76)= "Text1(51)"
Tab(0).Control(76).Enabled= 0 'False
Tab(0).Control(77)= "Text1(50)"
Tab(0).Control(77).Enabled= 0 'False
Tab(0).Control(78)= "Text1(49)"
Tab(0).Control(78).Enabled= 0 'False
Tab(0).Control(79)= "Text1(48)"
Tab(0).Control(79).Enabled= 0 'False
Tab(0).Control(80)= "Text1(47)"
Tab(0).Control(80).Enabled= 0 'False
Tab(0).Control(81)= "Text1(46)"
Tab(0).Control(81).Enabled= 0 'False
Tab(0).Control(82)= "Text1(45)"
Tab(0).Control(82).Enabled= 0 'False
Tab(0).Control(83)= "Text1(44)"
Tab(0).Control(83).Enabled= 0 'False
Tab(0).Control(84)= "Text1(43)"
Tab(0).Control(84).Enabled= 0 'False
Tab(0).Control(85)= "Text1(42)"
Tab(0).Control(85).Enabled= 0 'False
Tab(0).Control(86)= "Text1(41)"
Tab(0).Control(86).Enabled= 0 'False
Tab(0).Control(87)= "Text1(40)"
Tab(0).Control(87).Enabled= 0 'False
Tab(0).Control(88)= "Text1(39)"
Tab(0).Control(88).Enabled= 0 'False
Tab(0).Control(89)= "Text1(38)"
Tab(0).Control(89).Enabled= 0 'False
Tab(0).Control(90)= "Text1(37)"
Tab(0).Control(90).Enabled= 0 'False
Tab(0).Control(91)= "Text1(36)"
Tab(0).Control(91).Enabled= 0 'False
Tab(0).Control(92)= "Text1(35)"
Tab(0).Control(92).Enabled= 0 'False
Tab(0).Control(93)= "Text1(34)"
Tab(0).Control(93).Enabled= 0 'False
Tab(0).Control(94)= "Text1(33)"
Tab(0).Control(94).Enabled= 0 'False
Tab(0).Control(95)= "Text1(32)"
Tab(0).Control(95).Enabled= 0 'False
Tab(0).Control(96)= "Text1(31)"
Tab(0).Control(96).Enabled= 0 'False
Tab(0).Control(97)= "Text1(30)"
Tab(0).Control(97).Enabled= 0 'False
Tab(0).Control(98)= "Text1(29)"
Tab(0).Control(98).Enabled= 0 'False
Tab(0).Control(99)= "Text1(28)"
Tab(0).Control(99).Enabled= 0 'False
Tab(0).Control(100)= "Text1(27)"
Tab(0).Control(100).Enabled= 0 'False
Tab(0).Control(101)= "Text1(26)"
Tab(0).Control(101).Enabled= 0 'False
Tab(0).Control(102)= "Text1(25)"
Tab(0).Control(102).Enabled= 0 'False
Tab(0).Control(103)= "Text1(24)"
Tab(0).Control(103).Enabled= 0 'False
Tab(0).Control(104)= "Text1(23)"
Tab(0).Control(104).Enabled= 0 'False
Tab(0).Control(105)= "Text1(22)"
Tab(0).Control(105).Enabled= 0 'False
Tab(0).Control(106)= "Text1(21)"
Tab(0).Control(106).Enabled= 0 'False
Tab(0).Control(107)= "Text1(20)"
Tab(0).Control(107).Enabled= 0 'False
Tab(0).Control(108)= "Text1(19)"
Tab(0).Control(108).Enabled= 0 'False
Tab(0).Control(109)= "Text1(18)"
Tab(0).Control(109).Enabled= 0 'False
Tab(0).Control(110)= "Text1(17)"
Tab(0).Control(110).Enabled= 0 'False
Tab(0).Control(111)= "Text1(16)"
Tab(0).Control(111).Enabled= 0 'False
Tab(0).Control(112)= "Text1(15)"
Tab(0).Control(112).Enabled= 0 'False
Tab(0).Control(113)= "Text1(14)"
Tab(0).Control(113).Enabled= 0 'False
Tab(0).Control(114)= "Text1(13)"
Tab(0).Control(114).Enabled= 0 'False
Tab(0).Control(115)= "Text1(12)"
Tab(0).Control(115).Enabled= 0 'False
Tab(0).Control(116)= "Text1(11)"
Tab(0).Control(116).Enabled= 0 'False
Tab(0).Control(117)= "Text1(10)"
Tab(0).Control(117).Enabled= 0 'False
Tab(0).Control(118)= "Text1(9)"
Tab(0).Control(118).Enabled= 0 'False
Tab(0).Control(119)= "Text1(8)"
Tab(0).Control(119).Enabled= 0 'False
Tab(0).Control(120)= "Text1(7)"
Tab(0).Control(120).Enabled= 0 'False
Tab(0).Control(121)= "Text1(6)"
Tab(0).Control(121).Enabled= 0 'False
Tab(0).Control(122)= "Text1(5)"
Tab(0).Control(122).Enabled= 0 'False
Tab(0).Control(123)= "Text1(4)"
Tab(0).Control(123).Enabled= 0 'False
Tab(0).Control(124)= "Text1(3)"
Tab(0).Control(124).Enabled= 0 'False
Tab(0).Control(125)= "Text1(2)"
Tab(0).Control(125).Enabled= 0 'False
Tab(0).Control(126)= "TxtPage(0)"
Tab(0).Control(126).Enabled= 0 'False
Tab(0).Control(127)= "Text1(1)"
Tab(0).Control(127).Enabled= 0 'False
Tab(0).Control(128)= "Text1(0)"
Tab(0).Control(128).Enabled= 0 'False
Tab(0).Control(129)= "Combo1"
Tab(0).Control(129).Enabled= 0 'False
Tab(0).Control(130)= "Txtych"
Tab(0).Control(130).Enabled= 0 'False
Tab(0).Control(131)= "TxtBlock"
Tab(0).Control(131).Enabled= 0 'False
Tab(0).Control(132)= "TxtPage(1)"
Tab(0).Control(132).Enabled= 0 'False
Tab(0).Control(133)= "TxtPage(2)"
Tab(0).Control(133).Enabled= 0 'False
Tab(0).Control(134)= "TxtPage(3)"
Tab(0).Control(134).Enabled= 0 'False
Tab(0).Control(135)= "TxtPage(4)"
Tab(0).Control(135).Enabled= 0 'False
Tab(0).Control(136)= "TxtPage(5)"
Tab(0).Control(136).Enabled= 0 'False
Tab(0).Control(137)= "TxtPage(6)"
Tab(0).Control(137).Enabled= 0 'False
Tab(0).Control(138)= "TxtPage(7)"
Tab(0).Control(138).Enabled= 0 'False
Tab(0).Control(139)= "TxtPage(8)"
Tab(0).Control(139).Enabled= 0 'False
Tab(0).Control(140)= "TxtPage(9)"
Tab(0).Control(140).Enabled= 0 'False
Tab(0).Control(141)= "cmdShow"
Tab(0).Control(141).Enabled= 0 'False
Tab(0).Control(142)= "TxtResult"
Tab(0).Control(142).Enabled= 0 'False
Tab(0).Control(143)= "cmdUpdate"
Tab(0).Control(143).Enabled= 0 'False
Tab(0).Control(144)= "Command1"
Tab(0).Control(144).Enabled= 0 'False
Tab(0).ControlCount= 145
TabCaption(1) = "帮助"
TabPicture(1) = "Form2.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label22"
Tab(1).Control(1)= "Label21"
Tab(1).Control(2)= "Label20"
Tab(1).Control(3)= "Label19"
Tab(1).Control(4)= "Label18"
Tab(1).Control(5)= "Line2"
Tab(1).Control(6)= "Label17"
Tab(1).ControlCount= 7
Begin VB.CommandButton Command1
Caption = "退出"
Height = 375
Left = 8640
TabIndex = 143
Top = 8400
Width = 735
End
Begin VB.CommandButton cmdUpdate
Caption = "刷新"
Height = 375
Left = 8520
TabIndex = 142
Top = 4920
Width = 855
End
Begin VB.TextBox TxtResult
Height = 2535
Left = 8280
MultiLine = -1 'True
TabIndex = 140
Top = 1920
Width = 1455
End
Begin VB.CommandButton cmdShow
Caption = " 演示"
Default = -1 'True
Height = 375
Left = 8400
TabIndex = 139
Top = 840
Width = 855
End
Begin VB.TextBox TxtPage
Height = 400
Index = 9
Left = 7560
TabIndex = 13
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 8
Left = 6870
TabIndex = 12
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 7
Left = 6180
TabIndex = 11
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 6
Left = 5490
TabIndex = 10
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 5
Left = 4800
TabIndex = 9
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 4
Left = 4110
TabIndex = 8
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 3
Left = 3420
TabIndex = 7
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 2
Left = 2730
TabIndex = 6
Top = 1800
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 1
Left = 2040
TabIndex = 5
Top = 1800
Width = 400
End
Begin VB.TextBox TxtBlock
Height = 375
Left = 2250
TabIndex = 1
Top = 840
Width = 735
End
Begin VB.TextBox Txtych
Height = 375
Left = 4080
TabIndex = 2
Top = 840
Width = 735
End
Begin VB.ComboBox Combo1
Height = 315
ItemData = "Form2.frx":0038
Left = 5760
List = "Form2.frx":0042
TabIndex = 3
Top = 840
Width = 1455
End
Begin VB.TextBox Text1
Height = 400
Index = 0
Left = 1320
TabIndex = 124
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 1
Left = 1320
TabIndex = 123
Top = 3075
Width = 400
End
Begin VB.TextBox TxtPage
Height = 400
Index = 0
Left = 1320
TabIndex = 4
Top = 1800
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 2
Left = 1320
TabIndex = 122
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 3
Left = 1320
TabIndex = 121
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 4
Left = 1320
TabIndex = 120
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 5
Left = 1320
TabIndex = 119
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 6
Left = 1320
TabIndex = 118
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 7
Left = 1320
TabIndex = 117
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 8
Left = 1320
TabIndex = 116
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 9
Left = 1320
TabIndex = 115
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 10
Left = 2040
TabIndex = 114
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 11
Left = 2040
TabIndex = 113
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 12
Left = 2040
TabIndex = 112
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 13
Left = 2040
TabIndex = 111
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 14
Left = 2040
TabIndex = 110
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 15
Left = 2040
TabIndex = 109
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 16
Left = 2040
TabIndex = 108
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 17
Left = 2040
TabIndex = 107
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 18
Left = 2040
TabIndex = 106
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 19
Left = 2040
TabIndex = 105
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 20
Left = 2760
TabIndex = 104
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 21
Left = 2760
TabIndex = 103
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 22
Left = 2760
TabIndex = 102
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 23
Left = 2760
TabIndex = 101
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 24
Left = 2760
TabIndex = 100
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 25
Left = 2760
TabIndex = 99
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 26
Left = 2760
TabIndex = 98
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 27
Left = 2760
TabIndex = 97
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 28
Left = 2760
TabIndex = 96
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 29
Left = 2760
TabIndex = 95
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 30
Left = 3480
TabIndex = 94
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 31
Left = 3480
TabIndex = 93
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 32
Left = 3480
TabIndex = 92
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 33
Left = 3480
TabIndex = 91
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 34
Left = 3480
TabIndex = 90
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 35
Left = 3480
TabIndex = 89
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 36
Left = 3480
TabIndex = 88
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 37
Left = 3480
TabIndex = 87
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 38
Left = 3480
TabIndex = 86
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 39
Left = 3480
TabIndex = 85
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 40
Left = 4200
TabIndex = 84
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 41
Left = 4200
TabIndex = 83
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 42
Left = 4200
TabIndex = 82
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 43
Left = 4200
TabIndex = 81
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 44
Left = 4200
TabIndex = 80
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 45
Left = 4200
TabIndex = 79
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 46
Left = 4200
TabIndex = 78
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 47
Left = 4200
TabIndex = 77
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 48
Left = 4200
TabIndex = 76
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 49
Left = 4200
TabIndex = 75
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 50
Left = 4920
TabIndex = 74
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 51
Left = 4920
TabIndex = 73
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 52
Left = 4920
TabIndex = 72
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 53
Left = 4920
TabIndex = 71
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 54
Left = 4920
TabIndex = 70
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 55
Left = 4920
TabIndex = 69
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 56
Left = 4920
TabIndex = 68
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 57
Left = 4920
TabIndex = 67
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 58
Left = 4920
TabIndex = 66
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 59
Left = 4920
TabIndex = 65
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 60
Left = 5520
TabIndex = 64
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 61
Left = 5520
TabIndex = 63
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 62
Left = 5520
TabIndex = 62
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 63
Left = 5520
TabIndex = 61
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 64
Left = 5520
TabIndex = 60
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 65
Left = 5520
TabIndex = 59
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 66
Left = 5520
TabIndex = 58
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 67
Left = 5520
TabIndex = 57
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 68
Left = 5520
TabIndex = 56
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 69
Left = 5520
TabIndex = 55
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 70
Left = 6240
TabIndex = 54
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 71
Left = 6240
TabIndex = 53
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 72
Left = 6240
TabIndex = 52
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 73
Left = 6240
TabIndex = 51
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 74
Left = 6240
TabIndex = 50
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 75
Left = 6240
TabIndex = 49
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 76
Left = 6240
TabIndex = 48
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 77
Left = 6240
TabIndex = 47
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 78
Left = 6240
TabIndex = 46
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 79
Left = 6240
TabIndex = 45
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 80
Left = 6960
TabIndex = 44
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 81
Left = 6960
TabIndex = 43
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 82
Left = 6960
TabIndex = 42
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 83
Left = 6960
TabIndex = 41
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 84
Left = 6960
TabIndex = 40
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 85
Left = 6960
TabIndex = 39
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 86
Left = 6960
TabIndex = 38
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 87
Left = 6960
TabIndex = 37
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 88
Left = 6960
TabIndex = 36
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 89
Left = 6960
TabIndex = 35
Top = 7560
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 90
Left = 7560
TabIndex = 34
Top = 2520
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 91
Left = 7560
TabIndex = 33
Top = 3075
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 92
Left = 7560
TabIndex = 32
Top = 3645
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 93
Left = 7560
TabIndex = 31
Top = 4200
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 94
Left = 7560
TabIndex = 30
Top = 4755
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 95
Left = 7560
TabIndex = 29
Top = 5325
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 96
Left = 7560
TabIndex = 28
Top = 5880
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 97
Left = 7560
TabIndex = 27
Top = 6435
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 98
Left = 7560
TabIndex = 26
Top = 7005
Width = 400
End
Begin VB.TextBox Text1
Height = 400
Index = 99
Left = 7560
TabIndex = 25
Top = 7560
Width = 400
End
Begin VB.CheckBox Check1
Height = 300
Index = 0
Left = 1440
TabIndex = 24
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 1
Left = 2160
TabIndex = 23
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 2
Left = 2880
TabIndex = 22
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 3
Left = 3600
TabIndex = 21
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 4
Left = 4320
TabIndex = 20
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 5
Left = 5040
TabIndex = 19
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 6
Left = 5640
TabIndex = 18
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 7
Left = 6360
TabIndex = 17
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 8
Left = 7080
TabIndex = 16
Top = 8160
Width = 300
End
Begin VB.CheckBox Check1
Height = 300
Index = 9
Left = 7680
TabIndex = 15
Top = 8160
Width = 300
End
Begin VB.Label Label22
Caption = $"Form2.frx":0056
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = -73800
TabIndex = 149
Top = 3840
Width = 7455
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "3 显示置换算法的置换过程"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -73080
TabIndex = 148
Top = 3240
Width = 3900
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "2 作业的页面走向和分得的物理块数预先指定。"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -73080
TabIndex = 147
Top = 2760
Width = 6300
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "1 页面分配采用固定分配局部置换。"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -73080
TabIndex = 146
Top = 2280
Width = 4800
End
Begin VB.Label Label18
Caption = "简介：本程序用于模拟实现页面置换算法，其设计前提有三个"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -73800
TabIndex = 145
Top = 1800
Width = 7815
End
Begin VB.Line Line2
X1 = -73800
X2 = -66960
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "使用说明"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -71160
TabIndex = 144
Top = 720
Width = 1320
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "运行结果"
Height = 195
Left = 8640
TabIndex = 141
Top = 1680
Width = 720
End
Begin VB.Line Line1
X1 = 1200
X2 = 8160
Y1 = 2280
Y2 = 2280
End
Begin VB.Shape Shape2
BackColor = &H80000018&
Height = 7215
Left = 1200
Top = 1440
Width = 6975
End
Begin VB.Shape Shape1
BackColor = &H80000018&
Height = 615
Left = 1200
Top = 720
Width = 6855
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = " 块数"
Height = 195
Left = 1440
TabIndex = 138
Top = 960
Width = 405
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "页面流长度"
Height = 195
Left = 3060
TabIndex = 137
Top = 960
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "算法"
Height = 195
Left = 5040
TabIndex = 136
Top = 960
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "输入页面流"
Height = 195
Left = 120
TabIndex = 135
Top = 1800
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "1"
Height = 195
Left = 1440
TabIndex = 134
Top = 1560
Width = 90
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "2"
Height = 195
Left = 2160
TabIndex = 133
Top = 1560
Width = 90
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "3"
Height = 195
Left = 2880
TabIndex = 132
Top = 1560
Width = 90
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "4"
Height = 195
Left = 3600
TabIndex = 131
Top = 1560
Width = 90
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "5"
Height = 195
Left = 4200
TabIndex = 130
Top = 1560
Width = 90
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "6"
Height = 195
Left = 4920
TabIndex = 129
Top = 1560
Width = 90
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "7"
Height = 195
Left = 5550
TabIndex = 128
Top = 1560
Width = 90
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "8"
Height = 195
Left = 6255
TabIndex = 127
Top = 1560
Width = 90
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "9"
Height = 195
Left = 6975
TabIndex = 126
Top = 1560
Width = 90
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "10"
Height = 195
Left = 7680
TabIndex = 125
Top = 1560
Width = 180
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "页面置换算法模拟实现"
BeginProperty Font
Name = "楷体_GB2312"
Size = 20.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3120
TabIndex = 0
Top = 240
Width = 4350
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdShow_Click()
Dim jsh As Integer
Dim flag As Boolean
b = Val(TxtBlock.Text)
Text1(0).Text = TxtPage(0).Text
'内存页面不满时操作
a = 1
While (a <= b + jsh - 1) '如果命中一次向后多运行一个页面
For j = 0 To a - 1 '看是否命中
If TxtPage(a).Text = Text1((a - 1) * 10 + j).Text Then '命中时
Check1(a).Value = 1
jsh = jsh + 1
flag = True
For k = 0 To 9
Text1(a * 10 + k).Text = Text1((a - 1) * 10 + k).Text
Next k
End If
Next j
If Not flag Then ' 不命中时
For g = 0 To 9
Text1(a * 10 + g).Text = Text1((a - 1) * 10 + g).Text
Next g
Text1(a * 10 + a - jsh).Text = TxtPage(a).Text
End If
flag = False
a = a + 1
Wend
c = Val(Txtych.Text)
'内存页面用完时的操作
For a = b + jsh To c - 1
For i = 0 To b - 1 '看是否命中
If TxtPage(a).Text = Text1((a - 1) * 10 + i).Text Then '命中时
Check1(a).Value = 1
jsh = jsh + 1
flag = True
For k = 0 To b - 1
Text1(a * 10 + k) = Text1((a - 1) * 10 + k)
Next k
Exit For
End If
Next i
If Not flag Then '不命中时
If Trim(Combo1.Text) = "Optimal" Then Call Optimal Else Call FIFO
End If
flag = False
Next a
'显示结果
TxtResult.Text = TxtResult.Text & ";" & Combo1.Text & "的缺页率: " & c - jsh & "/" & c & " 命中率:" & jsh & "/" & c
cmdShow.Enabled = False
End Sub
Private Sub cmdUpdate_Click()
For i = 0 To 99
Text1(i).Text = ""
Text1(i).BackColor = &H80000005
Next i
For i = 0 To 9
Check1(i).Value = 0
Next i
TxtResult.Text = ""
cmdShow.Enabled = True
End Sub
Private Sub Command1_Click()
Unload Me
End Sub