暗淡？圓周率？作為？單身，？p？作為？布爾，？kk？作為？整數，？aa？作為？線
暗淡？s？作為？單身，？h？作為？單身，？m？作為？單身，？抱石？作為？線
暗淡？我？作為？整數，？st？作為？布爾，？j？作為？整數，？ss？作為？線
暗淡？壹周？作為？線
私人？Sub？Command1_Click(Index？作為？整數)
暗淡？布爾？作為？布爾代數學體系的
布爾？=?錯誤的
選擇？案子？索引
案子？0
p？=?不是嗎？(p)
暗淡？ppp？作為？整數
為了什麽？ppp？=?3?去哪？七
Command1(ppp)。可見？=?p
然後
案子？1
結束
案子？2
Label1。可見？=?真實的
標簽2。可見？=?真實的
標簽3。可見？=?真實的
Text1。可見？=?真實的
文本2。可見？=?真實的
短信3。可見？=?真實的
命令3。可見？=?真實的
命令4。可見？=?真實的
Text1。SetFocus
Text1。文字？=?""
案子？三
如果？我？=?0?然後
如果？j？=?0?然後呢？j？=?千開
j？=?j？-?1
Dir1。路徑？=?懸浮物
Dir1。路徑？=?Dir1。列表(j)
我？=?文件1。列表計數
結束？如果
我？=?我？-?1
布爾？=?真實的
案子？四
st？=?不是嗎？(st)
案子？五
如果？我？=?文件1。ListCount？-?1?然後
如果？j？=?kk？-?1?然後呢？j？=?-1
j？=?j？+?1
Dir1。路徑？=?懸浮物
Dir1。路徑？=?Dir1。列表(j)
我？=?-1
結束？如果
我？=?我？+?1
布爾？=?真實的
案子？六
如果？j？=?0?然後呢？j？=?千開
j？=?j？-?1
Dir1。路徑？=?懸浮物
Dir1。路徑？=?Dir1。列表(j)
我？=?0
布爾？=?真實的
案子？七
如果？j？=?kk？-?1?然後呢？j？=?-1
j？=?j？+?1
Dir1。路徑？=?懸浮物
Dir1。路徑？=?Dir1。列表(j)
我？=?0
布爾？=?真實的
結束？挑選
如果？布爾？然後
打電話？顯示(壹)
布爾？=?錯誤的
結束？如果
s？=?秒(時間)
h？=?小時(時間)
m？=?分鐘(時間)
DrawWidth？=?1
表單1。線？(1320,?1320)-(1100?*?罪(s？*?2?*?圓周率？/?60)?+?1320,?(-1)?*?1100?*?因為(s？*?2?*?圓周率？/?60)?+?1320),?RGB(256，？0,?0)
嗯？=?m？+?s？/?60
DrawWidth？=?2
表單1。線？(1320,?1320)-(950?*?罪(mm？*?2?*?圓周率？/?60)?+?1320,?(-1)?*?950?*?因為(嗯？*?2?*?圓周率？/?60)?+?1320),?RGB(0，？256,?0)
hh？=?h？+?m？/?60
DrawWidth？=?三
表單1。線？(1320,?1320)-(720?*?罪(hh？*?2?*?圓周率？/?12)?+?1320,?(-1)?*?720?*?Cos(hh？*?2?*?圓周率？/?12)?+?1320),?RGB(0，？0,?256)
CurrentX？=?1000
CurrentY？=?1760
打印？時間
CurrentX？=?1100
CurrentY？=?1960
打印？周
CurrentX？=?1000
CurrentY？=?2160
打印？日期
結束？潛水艇
私人？Sub？Command2_Click()
WindowsMediaPlayer1。關閉
命令2。可見？=?錯誤的
結束？潛水艇
私人？Sub？Command3_Click()
抱石？=?Text1。文字？& amp？文本2。文字？& amp？短信3。文本
Label1。可見？=?錯誤的
標簽2。可見？=?錯誤的
標簽3。可見？=?錯誤的
Text1。可見？=?錯誤的
文本2。可見？=?錯誤的
短信3。可見？=?錯誤的
命令4。可見？=?錯誤的
命令3。可見？=?錯誤的
結束？潛水艇
私人？Sub？Command4_Click()
命令4。可見？=?錯誤的
命令3。價值？=?真實的
抱石？=?"?"
結束？潛水艇
私人？Sub？Dir1_Change()
文件1。路徑？=?Dir1。小路
結束？潛水艇
私人？Sub？Form_DblClick()
暗淡？k？作為？整數
如果？p？=?假的？然後
k？=?2
其他
k？=?七
結束？如果
為了什麽？指數？=?0?去哪？k
命令1(索引)。可見？=?不是嗎？(命令1(索引)。可見)
然後
結束？潛水艇
私人？Sub？Form_Load()
表單1。向左？=?屏幕。寬度？-?2650
表單1。Top？=?0
圓周率？=?3.1415926
st？=?錯誤的
p？=?真實的
巴希？=?"?"
我？=?0
j？=?0
ss？=?(“C:\Documents？然後呢。設置\用戶\我的？文檔\我的？圖片\ ")
Dir1。路徑？=?懸浮物
kk？=?Dir1。列表計數
文件1。格局？=?"*.*"
文件1。路徑？=?Dir1。小路
Dir1。路徑？=?Dir1。列表(j)
結束？潛水艇
私人？Sub？Text1_KeyPress(KeyAscii？作為？整數)
如果？KeyAscii？=?13?然後
文本2。SetFocus
文本2。文字？=?""
結束？如果
結束？潛水艇
私人？Sub？Text2_KeyPress(KeyAscii？作為？整數)
如果？KeyAscii？=?13?然後
短信3。SetFocus
短信3。文字？=?""
結束？如果
結束？潛水艇
私人？Sub？Text3_KeyPress(KeyAscii？作為？整數)
如果？KeyAscii？=?13?然後
命令3。SetFocus
結束？如果
結束？潛水艇
私人？Sub？定時器1 _定時器()
選擇？案子？工作日(日期)
案子？1
壹周？=?《星期日》
案子？2
壹周？=?“星期壹”
案子？三
壹周？=?"星期二"
案子？四
壹周？=?“星期三”
案子？五
壹周？=?"星期四"
案子？六
壹周？=?"星期五"
案子？七
壹周？=?“星期六”
結束？挑選
如果？h？& amp？m？& amp？s？=?抱石？然後
命令2。可見？=?真實的
WindowsMediaPlayer1。可見？=?錯誤的
WindowsMediaPlayer1。網址？=?(“C:\Documents？然後呢。設置\用戶\我的？文檔\我的？音樂\11.mp3”)
結束？如果
如果？st？=?真的嗎？然後
如果？p？=?假的？然後
表單1。圖片？=?LoadPicture("C:\Documents？然後呢。設置\用戶\我的？文檔\我的？圖片\顯示\11.jpg ")
其他
表單1。繪畫？LoadPicture(aa)，？0,?0,?表單1。身高，？表單1。寬度
結束？如果
其他
如果？p？=?假的？然後
表單1。圖片？=?LoadPicture("C:\Documents？然後呢。設置\用戶\我的？文檔\我的？圖片\顯示\11.jpg ")
其他
如果？我？=?文件1。ListCount？-?1?然後
如果？j？=?kk？-?1?然後呢？j？=?-1
j？=?j？+?1
Dir1。路徑？=?懸浮物
Dir1。路徑？=?Dir1。列表(j)
我？=?-1
結束？如果
我？=?我？+?1
filname1？=?文件1。列表(壹)
filname？=?文件1。路徑？& amp？"\"?& amp？文件名1
aa？=?filname
表單1。繪畫？LoadPicture(filname)，？0,?0,?表單1。身高，？表單1。寬度
結束？如果
結束？如果
CurrentX？=?1000
CurrentY？=?1760
打印？時間
CurrentX？=?1100
CurrentY？=?1960
打印？周
CurrentX？=?1000
CurrentY？=?2160
打印？日期
s？=?秒(時間)
h？=?小時(時間)
m？=?分鐘(時間)
DrawWidth？=?1
表單1。線？(1320,?1320)-(1100?*?罪(s？*?2?*?圓周率？/?60)?+?1320,?(-1)?*?1100?*?因為(s？*?2?*?圓周率？/?60)?+?1320),?RGB(256，？0,?0)
嗯？=?m？+?s？/?60
DrawWidth？=?2
表單1。線？(1320,?1320)-(950?*?罪(mm？*?2?*?圓周率？/?60)?+?1320,?(-1)?*?950?*?因為(嗯？*?2?*?圓周率？/?60)?+?1320),?RGB(0，？256,?0)
hh？=?h？+?m？/?60
DrawWidth？=?三
表單1。線？(1320,?1320)-(720?*?罪(hh？*?2?*?圓周率？/?12)?+?1320,?(-1)?*?720?*?Cos(hh？*?2?*?圓周率？/?12)?+?1320),?RGB(0，？0,?256)
結束？潛水艇
私人？Sub？定時器2 _定時器()
暗淡？x？作為？單身，？y？作為？單身，？nn？作為？整數，？z？作為？整數
z？=?12
為了什麽？nn？=?0?去哪？354?壹步？六
x？=?1100?*?Sin(nn？*?圓周率？/?180)?+?1320
y？=?(-1)?*?1100?*?Cos(nn？*?圓周率？/?180)?+?1320
如果？nn？Mod？5?=?0?然後
DrawWidth？=?八
CurrentX？=?X
CurrentY？=?Y
如果？z？=?13?然後呢？z？=?1
打印？z
z？=?z？+?1
其他
DrawWidth？=?四
結束？如果
使不規則化
如果？p？=?假的？然後
PSet？(X，？y)，？RGB(256，？0,?0)
其他
PSet？(X，？y)，？RGB(Int(Rnd？*?256),?Int(Rnd？*?256),?Int(Rnd？*?256))
結束？如果
DrawWidth？=?八
PSet？(1320,?1320),?RGB(256，？256,?256)
然後
結束？潛水艇
公共？Sub？顯示(dd？作為？整數)
filname1？=?文件1。列表(dd)
filname？=?文件1。路徑？& amp？"\"?& amp？文件名1
aa？=?filname
表單1。繪畫？LoadPicture(filname)，？0,?0,?表單1。身高，？表單1。寬度
結束？潛水艇