📄 字库.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000018&
Caption = "Form1"
ClientHeight = 6330
ClientLeft = 60
ClientTop = 450
ClientWidth = 8760
FillColor = &H00FFFFC0&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
LinkTopic = "Form1"
ScaleHeight = 6330
ScaleWidth = 8760
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame4
BackColor = &H80000018&
Caption = "宋体汉字"
ForeColor = &H80000001&
Height = 495
Left = 840
TabIndex = 14
Top = 3720
Width = 1575
End
Begin VB.TextBox Text2
Height = 420
Left = 3600
TabIndex = 13
Top = 3000
Width = 3735
End
Begin VB.TextBox Text3
Height = 495
Left = 5520
TabIndex = 12
Top = 1320
Width = 3015
End
Begin VB.CheckBox Check2
BackColor = &H80000018&
Caption = "Check2"
Height = 300
Left = 4320
TabIndex = 9
Top = 1440
Width = 165
End
Begin VB.CheckBox Check1
BackColor = &H80000018&
Caption = "Check1"
Height = 300
Left = 2040
TabIndex = 8
Top = 1440
Width = 255
End
Begin VB.CommandButton Command3
Caption = "退出 "
Height = 495
Left = 6000
TabIndex = 7
Top = 4680
Width = 1455
End
Begin VB.CommandButton Command2
BackColor = &H80000018&
Caption = "清除"
Height = 495
Left = 3480
MaskColor = &H00C0FFFF&
TabIndex = 6
Top = 4680
Width = 1455
End
Begin VB.CommandButton Command1
BackColor = &H80000018&
Caption = "转换"
Height = 495
Left = 840
MaskColor = &H00FFFFC0&
TabIndex = 5
Top = 4680
Width = 1455
End
Begin VB.Frame Frame3
BackColor = &H80000018&
Caption = "方正汉字"
ForeColor = &H80000001&
Height = 495
Left = 840
TabIndex = 3
Top = 2880
Width = 1695
End
Begin VB.TextBox Text1
Height = 420
Left = 3600
TabIndex = 2
Top = 2280
Width = 1695
End
Begin VB.Frame Frame2
BackColor = &H80000018&
Caption = "二进制数"
ForeColor = &H80000001&
Height = 495
Left = 840
TabIndex = 1
Top = 2160
Width = 1695
End
Begin VB.Frame Frame1
BackColor = &H80000018&
Caption = "二进制数与汉字的转换"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 735
Left = 720
TabIndex = 0
Top = 360
Width = 5175
End
Begin VB.Label Label3
BackColor = &H80000018&
Caption = "方正"
Height = 375
Left = 840
TabIndex = 11
Top = 1440
Width = 735
End
Begin VB.Label Label2
BackColor = &H80000018&
Caption = "宋体"
Height = 375
Left = 3120
TabIndex = 10
Top = 1440
Width = 855
End
Begin VB.Label Label1
BackColor = &H80000018&
Caption = " 天津工业大学计算机学院 计-016班 白月宝"
ForeColor = &H80000001&
Height = 375
Left = 0
TabIndex = 4
Top = 5880
Width = 8775
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim score As Integer
Dim tian(0 To 255) As Integer
Dim jin(0 To 255) As Integer
Dim gong(0 To 255) As Integer
Dim ye(0 To 255) As Integer
Dim da(0 To 255) As Integer
Dim xue(0 To 255) As Integer
Dim bai(0 To 255) As Integer
Dim yue(0 To 255) As Integer
Dim bao(0 To 255) As Integer
tian(0) = 0
tian(1) = 0
tian(2) = 0
tian(3) = 0
tian(4) = 0
tian(5) = 0
tian(6) = 0
tian(7) = 0
tian(8) = 0
tian(9) = 0
tian(10) = 0
tian(11) = 0
tian(12) = 0
tian(13) = 0
tian(14) = 0
tian(15) = 0
tian(16) = 0
tian(17) = 0
tian(18) = 0
tian(19) = 0
tian(20) = 0
tian(21) = 0
tian(22) = 0
tian(23) = 0
tian(24) = 0
tian(25) = 0
tian(26) = 0
tian(27) = 0
tian(28) = 0
tian(29) = 0
tian(30) = 0
tian(31) = 0
tian(32) = 0
tian(33) = 0
tian(34) = 1
tian(35) = 1
tian(36) = 1
tian(37) = 1
tian(38) = 1
tian(39) = 1
tian(40) = 1
tian(41) = 1
tian(42) = 1
tian(43) = 1
tian(44) = 1
tian(45) = 1
tian(46) = 0
tian(47) = 0
tian(48) = 0
tian(49) = 0
tian(50) = 0
tian(51) = 0
tian(52) = 0
tian(53) = 0
tian(54) = 0
tian(55) = 1
tian(56) = 1
tian(57) = 0
tian(58) = 0
tian(59) = 0
tian(60) = 0
tian(61) = 0
tian(62) = 0
tian(63) = 0
tian(64) = 0
tian(65) = 0
tian(66) = 0
tian(68) = 0
tian(69) = 0
tian(70) = 0
tian(71) = 1
tian(72) = 1
tian(73) = 0
tian(74) = 0
tian(75) = 0
tian(76) = 0
tian(77) = 0
tian(78) = 0
tian(79) = 0
tian(80) = 0
tian(81) = 0
tian(82) = 0
tian(83) = 0
tian(84) = 0
tian(85) = 0
tian(86) = 1
tian(87) = 1
tian(88) = 0
tian(89) = 0
tian(90) = 0
tian(91) = 0
tian(92) = 0
tian(93) = 0
tian(94) = 0
tian(95) = 0
tian(96) = 1
tian(97) = 1
tian(98) = 1
tian(99) = 1
tian(100) = 1
tian(101) = 1
tian(102) = 1
tian(103) = 1
tian(104) = 1
tian(105) = 1
tian(106) = 1
tian(107) = 1
tian(108) = 1
tian(109) = 1
tian(110) = 1
tian(111) = 1
tian(112) = 0
tian(113) = 0
tian(114) = 0
tian(115) = 0
tian(116) = 0
tian(117) = 0
tian(118) = 0
tian(119) = 1
tian(120) = 1
tian(121) = 0
tian(122) = 0
tian(123) = 0
tian(124) = 0
tian(125) = 0
tian(126) = 0
tian(127) = 0
tian(128) = 0
tian(129) = 0
tian(130) = 0
tian(131) = 0
tian(132) = 0
tian(133) = 0
tian(134) = 1
tian(135) = 1
tian(136) = 1
tian(137) = 1
tian(138) = 0
tian(139) = 0
tian(140) = 0
tian(141) = 0
tian(142) = 0
tian(143) = 0
tian(144) = 0
tian(145) = 0
tian(146) = 0
tian(147) = 0
tian(148) = 0
tian(149) = 0
tian(150) = 1
tian(151) = 1
tian(152) = 0
tian(153) = 1
tian(154) = 1
tian(155) = 0
tian(156) = 0
tian(157) = 0
tian(158) = 0
tian(159) = 0
tian(160) = 0
tian(161) = 0
tian(162) = 0
tian(163) = 0
tian(164) = 0
tian(165) = 1
tian(166) = 1
tian(167) = 0
tian(168) = 0
tian(169) = 0
tian(170) = 1
tian(171) = 1
tian(172) = 0
tian(173) = 0
tian(174) = 0
tian(175) = 0
tian(176) = 0
tian(177) = 0
tian(178) = 0
tian(179) = 0
tian(180) = 1
tian(181) = 1
tian(182) = 0
tian(183) = 0
tian(184) = 0
tian(185) = 0
tian(186) = 0
tian(187) = 1
tian(188) = 1
tian(189) = 0
tian(190) = 0
tian(191) = 0
tian(192) = 0
tian(193) = 0
tian(194) = 0
tian(195) = 1
tian(196) = 1
tian(197) = 0
tian(198) = 0
tian(199) = 0
tian(200) = 0
tian(201) = 0
tian(202) = 0
tian(203) = 0
tian(204) = 1
tian(205) = 1
tian(206) = 0
tian(207) = 0
tian(208) = 0
tian(209) = 0
tian(210) = 1
tian(211) = 1
tian(212) = 0
tian(213) = 0
tian(214) = 0
tian(215) = 0
tian(216) = 0
tian(217) = 0
tian(218) = 0
tian(219) = 0
tian(220) = 0
tian(221) = 1
tian(222) = 1
tian(223) = 0
tian(224) = 0
tian(225) = 1
tian(226) = 1
tian(227) = 0
tian(228) = 0
tian(229) = 0
tian(230) = 0
tian(231) = 0
tian(232) = 0
tian(233) = 0
tian(234) = 0
tian(235) = 0
tian(236) = 0
tian(237) = 0
tian(238) = 1
tian(239) = 1
tian(240) = 1
tian(241) = 1
tian(242) = 0
tian(243) = 0
tian(244) = 0
tian(245) = 0
tian(246) = 0
tian(247) = 0
tian(248) = 0
tian(249) = 0
tian(250) = 0
tian(251) = 0
tian(252) = 0
tian(253) = 0
tian(254) = 0
tian(255) = 0
If Check1.Value = 1 Then
Text3.Text = ""
Text3.Text = "OK"
score = Val(Text1.Text)
Text1.Text = ""
If score = 1 Then
Text2.Text = Text2.Text + "天"
ElseIf score = 10 Then
Text2.Text = Text2.Text + "津"
ElseIf score = 11 Then
Text2.Text = Text2.Text + "工"
ElseIf score = 100 Then
Text2.Text = Text2.Text + "业"
ElseIf score = 101 Then
Text2.Text = Text2.Text + "大"
ElseIf score = 110 Then
Text2.Text = Text2.Text + "学"
ElseIf score = 111 Then
Text2.Text = Text2.Text + "白"
ElseIf score = 1000 Then
Text2.Text = Text2.Text + "月"
ElseIf score = 1001 Then
Text2.Text = Text2.Text + "宝"
Else: Text2.Text = "你输入了错误的信息"
End If
ElseIf Check2.Value = 1 Then
Dim X, Y As Integer
X = 3600 + n * 320
Y = 3720
score = Val(Text1.Text)
Text1.Text = ""
Text3.Text = ""
Text3.Text = "OK"
If score = 1 Then
For j = 0 To 19
For i = 0 To 15
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 16 To 31
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 32 To 47
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600
Next j
For j = 0 To 19
For i = 48 To 63
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 64 To 79
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 80 To 95
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 39
For i = 96 To 111
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 112 To 127
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600
Next j
For j = 0 To 19
For i = 128 To 143
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 144 To 159
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 160 To 175
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 176 To 191
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 192 To 207
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 208 To 223
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 39
For i = 224 To 239
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
For j = 0 To 19
For i = 240 To 255
If tian(i) = 1 Then
Line (X, Y)-(X + 20, Y), 12
X = X + 20
Else
X = X + 20
End If
Next i
Y = Y + 1
X = 3600 + n * 320
Next j
End If
Else: Text3.Text = "请选择其中一个"
End If
n = n + 1
End Sub
Private Sub Command2_Click()
Cls
Text2.Text = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim n As Integer
n = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -