亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? form1.frm

?? 一款VB軟件僅供學習之用,是轉載別人的.
?? FRM
?? 第 1 頁 / 共 5 頁
字號: 

Private Sub Command10_Click()
For i = 0 To 7
If Text7(i).Text = 1 Then
Check5(i).Value = 1
ElseIf Text7(i).Text = 0 Then
Check5(i).Value = 0
End If
Next i

End Sub

Private Sub Command11_Click()
For i = 0 To 7
If Check6(i).Value = 1 Then
Text8(i).Text = 1
Else
Text8(i).Text = 0
End If
Next i
Text1(5).Text = Text8(0).Text + Text8(1).Text + Text8(2).Text + Text8(3).Text + Text8(4).Text + Text8(5).Text + Text8(6).Text + Text8(7).Text
h = Text8(0).Text + Text8(1).Text + Text8(2).Text + Text8(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text8(4).Text + Text8(5).Text + Text8(6).Text + Text8(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(5).Text = h + m

End Sub

Private Sub Command12_Click()
For i = 0 To 7
If Text8(i).Text = 1 Then
Check6(i).Value = 1
ElseIf Text8(i).Text = 0 Then
Check6(i).Value = 0
End If
Next i

End Sub

Private Sub Command13_Click()
For i = 0 To 7
If Check7(i).Value = 1 Then
Text9(i).Text = 1
Else
Text9(i).Text = 0
End If
Next i
Text1(6).Text = Text9(0).Text + Text9(1).Text + Text9(2).Text + Text9(3).Text + Text9(4).Text + Text9(5).Text + Text9(6).Text + Text9(7).Text
h = Text9(0).Text + Text9(1).Text + Text9(2).Text + Text9(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text9(4).Text + Text9(5).Text + Text9(6).Text + Text9(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(6).Text = h + m
 

End Sub

Private Sub Command14_Click()

For i = 0 To 7
If Text9(i).Text = 1 Then
Check7(i).Value = 1
ElseIf Text9(i).Text = 0 Then
Check7(i).Value = 0
End If
Next i
End Sub

Private Sub Command15_Click()
For i = 0 To 7
If Check8(i).Value = 1 Then
Text10(i).Text = 1
Else
Text10(i).Text = 0
End If
Next i
Text1(7).Text = Text10(0).Text + Text10(1).Text + Text10(2).Text + Text10(3).Text + Text10(4).Text + Text10(5).Text + Text10(6).Text + Text10(7).Text
h = Text10(0).Text + Text10(1).Text + Text10(2).Text + Text10(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text10(4).Text + Text10(5).Text + Text10(6).Text + Text10(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(7).Text = h + m

End Sub

Private Sub Command16_Click()
For i = 0 To 7
If Text10(i).Text = 1 Then
Check8(i).Value = 1
ElseIf Text10(i).Text = 0 Then
Check8(i).Value = 0
End If
Next i

End Sub

Private Sub Command17_Click()
For i = 0 To 7
Text1(i) = ""
Text2(i) = ""
Text3(i) = ""
Text4(i) = ""
Text5(i) = ""
Text6(i) = ""
Text7(i) = ""
Text8(i) = ""
Text9(i) = ""
Text10(i) = ""
Check1(i).Value = 0
Check2(i).Value = 0
Check3(i).Value = 0
Check4(i).Value = 0
Check5(i).Value = 0
Check6(i).Value = 0
Check7(i).Value = 0
Check8(i).Value = 0
Next i

End Sub

Private Sub Command18_Click()
Text11.Text = "0" + Text2(0).Text + "H," + "0" + Text2(1).Text + "H," + "0" + Text2(2).Text + "H," + "0" + Text2(3).Text + "H," + "0" + Text2(4).Text + "H," + "0" + Text2(5).Text + "H," + "0" + Text2(6).Text + "H," + "0" + Text2(7).Text + "H"
End Sub

Private Sub Command19_Click()
End
End Sub

Private Sub Command2_Click()
For i = 0 To 7
If Text3(i).Text = 1 Then
Check1(i).Value = 1
ElseIf Text3(i).Text = 0 Then
Check1(i).Value = 0
End If
Next i
End Sub




Private Sub Command3_Click()
For i = 0 To 7
If Check2(i).Value = 1 Then
Text4(i).Text = 1
Else
Text4(i).Text = 0
End If
Next i
Text1(1).Text = Text4(0).Text + Text4(1).Text + Text4(2).Text + Text4(3).Text + Text4(4).Text + Text4(5).Text + Text4(6).Text + Text4(7).Text
h = Text4(0).Text + Text4(1).Text + Text4(2).Text + Text4(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text4(4).Text + Text4(5).Text + Text4(6).Text + Text4(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(1).Text = h + m
End Sub

Private Sub Command4_Click()
For i = 0 To 7
If Text4(i).Text = 1 Then
Check2(i).Value = 1
ElseIf Text4(i).Text = 0 Then

Check2(i).Value = 0
End If
Next i
End Sub


Private Sub Command5_Click()

For i = 0 To 7
If Check3(i).Value = 1 Then
Text5(i).Text = 1
Else
Text5(i).Text = 0
End If
Next i
Text1(2).Text = Text5(0).Text + Text5(1).Text + Text5(2).Text + Text5(3).Text + Text5(4).Text + Text5(5).Text + Text5(6).Text + Text5(7).Text
h = Text5(0).Text + Text5(1).Text + Text5(2).Text + Text5(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text5(4).Text + Text5(5).Text + Text5(6).Text + Text5(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(2).Text = h + m

End Sub

Private Sub Command6_Click()
For i = 0 To 7
If Text5(i).Text = 1 Then
Check3(i).Value = 1
ElseIf Text5(i).Text = 0 Then
Check3(i).Value = 0
End If
Next i
End Sub

Private Sub Command7_Click()
For i = 0 To 7
If Check4(i).Value = 1 Then
Text6(i).Text = 1
Else
Text6(i).Text = 0
End If
Next i
Text1(3).Text = Text6(0).Text + Text6(1).Text + Text6(2).Text + Text6(3).Text + Text6(4).Text + Text6(5).Text + Text6(6).Text + Text6(7).Text
h = Text6(0).Text + Text6(1).Text + Text6(2).Text + Text6(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text6(4).Text + Text6(5).Text + Text6(6).Text + Text6(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case "0110": m = "6"
Case "0111": m = "7"
Case "1000": m = "8"
Case "1001": m = "9"
Case "1010": m = "A"
Case "1011": m = "B"
Case "1100": m = "C"
Case "1101": m = "D"
Case "1110": m = "E"
Case "1111": m = "F"
End Select
Text2(3).Text = h + m

End Sub

Private Sub Command8_Click()

For i = 0 To 7
If Text6(i).Text = 1 Then
Check4(i).Value = 1
ElseIf Text6(i).Text = 0 Then
Check4(i).Value = 0
End If
Next i

End Sub

Private Sub Command9_Click()
For i = 0 To 7
If Check5(i).Value = 1 Then
Text7(i).Text = 1
Else
Text7(i).Text = 0
End If
Next i
Text1(4).Text = Text7(0).Text + Text7(1).Text + Text7(2).Text + Text7(3).Text + Text7(4).Text + Text7(5).Text + Text7(6).Text + Text7(7).Text
h = Text7(0).Text + Text7(1).Text + Text7(2).Text + Text7(3).Text
Select Case h
Case "0000": h = "0"
Case "0001": h = "1"
Case "0010": h = "2"
Case "0011": h = "3"
Case "0100": h = "4"
Case "0101": h = "5"
Case "0110": h = "6"
Case "0111": h = "7"
Case "1000": h = "8"
Case "1001": h = "9"
Case "1010": h = "A"
Case "1011": h = "B"
Case "1100": h = "C"
Case "1101": h = "D"
Case "1110": h = "E"
Case "1111": h = "F"
End Select

m = Text7(4).Text + Text7(5).Text + Text7(6).Text + Text7(7).Text
Select Case m
Case "0000": m = "0"
Case "0001": m = "1"
Case "0010": m = "2"
Case "0011": m = "3"
Case "0100": m = "4"
Case "0101": m = "5"
Case

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲天堂福利av| 国产99久久久国产精品免费看| 蜜臀久久99精品久久久画质超高清 | 日韩色视频在线观看| 国产欧美一区二区在线| 亚洲成人av一区二区三区| 国产69精品久久99不卡| 91精品国产综合久久精品app| 国产精品欧美久久久久无广告 | 亚洲欧洲日产国码二区| 青娱乐精品视频| 一本色道亚洲精品aⅴ| 国产色一区二区| 裸体歌舞表演一区二区| 欧日韩精品视频| 亚洲人精品午夜| 成年人国产精品| 国产亚洲一区字幕| 久久99国内精品| 在线成人高清不卡| 亚洲成精国产精品女| 色综合咪咪久久| 亚洲视频一二三区| 播五月开心婷婷综合| 国产欧美一区在线| 国产精品99久久久久久宅男| 精品久久久久一区| 久久精品国产精品青草| 欧美一区二区三区日韩视频| 亚洲成人激情av| 精品视频资源站| 亚洲高清免费一级二级三级| 欧美性猛交xxxxxx富婆| 亚洲综合色区另类av| 日本电影欧美片| 亚洲综合成人在线| 欧美日韩精品专区| 偷偷要91色婷婷| 91精品国产91久久久久久一区二区| 亚洲国产精品久久不卡毛片| 色猫猫国产区一区二在线视频| 亚洲三级视频在线观看| 色中色一区二区| 亚洲成人午夜影院| 91精品国产综合久久香蕉的特点 | 3d成人h动漫网站入口| 日韩综合在线视频| 日韩精品影音先锋| 成人一区二区三区在线观看| 中文字幕一区二区三区视频| 91在线视频18| 亚洲国产日产av| 欧美一区二区三区在线观看视频| 久久国产精品露脸对白| 久久久三级国产网站| 成人av在线播放网站| 亚洲精品国产精华液| 欧美日韩精品久久久| 精品一区二区三区的国产在线播放| 久久久久成人黄色影片| 91丨porny丨首页| 日韩中文欧美在线| 欧美国产激情一区二区三区蜜月 | 欧美伦理电影网| 精品在线观看视频| 国产精品久久久久婷婷| 欧美日精品一区视频| 国产露脸91国语对白| 亚洲另类色综合网站| 日韩欧美一级精品久久| a亚洲天堂av| 青娱乐精品视频在线| 一区二区中文视频| 日韩一区二区在线观看| 99视频超级精品| 美女久久久精品| 亚洲欧美偷拍卡通变态| 精品免费日韩av| 91久久精品国产91性色tv| 黄色日韩网站视频| 亚洲一区二区三区国产| 国产亚洲精品aa| 欧美一区二区三区在线视频| 99久久国产综合色|国产精品| 蜜臂av日日欢夜夜爽一区| 亚洲精品免费播放| 久久久国产精品麻豆| 欧美乱妇15p| 日本伦理一区二区| 国产精品996| 日韩精品免费专区| 亚洲综合久久久| 国产精品欧美精品| 久久久精品一品道一区| 制服.丝袜.亚洲.另类.中文 | 国产精品美女久久久久aⅴ| 欧美一区二区三区白人| 欧美自拍偷拍一区| 成人黄色在线看| 国产制服丝袜一区| 蜜臀精品久久久久久蜜臀| 亚洲一区二区三区四区在线观看 | 亚洲五码中文字幕| 亚洲欧洲av在线| 久久精品亚洲精品国产欧美kt∨ | 看片网站欧美日韩| 青草国产精品久久久久久| 一区二区三区免费观看| 中文字幕av在线一区二区三区| 日韩午夜电影在线观看| 欧美三电影在线| 欧美日韩在线播放三区四区| 色综合一区二区| 91香蕉视频在线| 99久久久久久| 色综合视频在线观看| 91蝌蚪国产九色| 91免费国产在线| 成a人片亚洲日本久久| av资源网一区| 日本精品一级二级| 在线观看日韩精品| 欧美日韩午夜在线| 欧美一级二级三级蜜桃| 欧美一区二区福利视频| 精品免费国产一区二区三区四区| 精品不卡在线视频| 国产网站一区二区三区| 欧美高清在线精品一区| ...中文天堂在线一区| 亚洲伦理在线精品| 亚洲成人av一区二区| 奇米影视一区二区三区小说| 久久99精品一区二区三区三区| 国产乱码一区二区三区| 成人动漫在线一区| 91国产视频在线观看| 欧美三区在线观看| 精品日韩欧美在线| 国产精品久久久久久久久搜平片| 亚洲色图丝袜美腿| 日韩成人免费电影| 国产精品亚洲一区二区三区妖精| 成人永久aaa| 在线区一区二视频| 精品日韩在线一区| 国产精品灌醉下药二区| 亚洲福利一二三区| 国产麻豆一精品一av一免费| 成人福利视频在线看| 欧美久久久一区| 欧美激情艳妇裸体舞| 亚洲国产视频直播| 国产乱淫av一区二区三区| 色先锋aa成人| 欧美成人精品1314www| 亚洲欧美日韩一区| 麻豆精品视频在线观看视频| 不卡av电影在线播放| 欧美一区二区三区在| 中文字幕一区二区三区精华液 | 日本不卡123| 91在线国产福利| 日韩欧美在线网站| 亚洲乱码国产乱码精品精可以看| 美腿丝袜一区二区三区| 色综合天天综合| 久久久噜噜噜久久人人看| 一区二区久久久久久| 国产激情一区二区三区| 欧美人妇做爰xxxⅹ性高电影| 天堂成人国产精品一区| 成人国产精品视频| 精品国产乱码久久久久久牛牛| 亚洲制服丝袜在线| 国产成人aaaa| 精品国产伦一区二区三区观看方式 | 日韩写真欧美这视频| 亚洲影院在线观看| av一区二区三区四区| 久久亚洲捆绑美女| 日本成人在线不卡视频| 欧美在线观看你懂的| 国产精品久久看| 国产黄色成人av| 欧美不卡在线视频| 日本中文字幕一区二区有限公司| 一本色道久久综合亚洲91| 中文字幕乱码亚洲精品一区| 黄色小说综合网站| 日韩精品一区二区三区三区免费| 水蜜桃久久夜色精品一区的特点| 在线中文字幕不卡| 亚洲综合清纯丝袜自拍| 欧洲精品一区二区三区在线观看| 亚洲视频在线一区二区| 99精品视频在线观看| 国产精品久久久久aaaa| 成人免费观看视频| 中文字幕一区二区在线播放|