七龍珠

くすぶるにHeart火をつけろ

誰だ？とびっきりのライバルは
どこだ？まじりっけなしのなしの勇者たち
正々堂々 Say Say do
そうだ　ハイテンションでぶつかれ
熱いアドレナリンがsparkする
正々堂々 I say do it

Go for it
Go for it

ここは宇宙という名のスタジアム
星の真っ只中で俺たち
未来永劫　Here we go
はっぱかけたなら可能性
突破していくんだぜ限界
未来永劫　Here we go

I’m gonna fight
欲しい宝は
I’m gonna fight
この腕で勝ち取る
I’m gonna make it
壁を乗り越えて　リスクを引き受けて
羽ばたくのさ

眠れる勇者よ　目覚めろ
くすぶるHeartに火をつけろ
暴れる　夢が爆裂したなら
もう　止まらない

海に引っ込んでる無鉄砲
今だ　待ったなしのチャンスだぜ
天真爛漫　Say yes you men
もしも飛びたいと願うなら
高くジャンプしてから羽つくれ
天真爛漫 You are break men

You get fight
欲しい未来を
You get fight
つくるのは自分だぜ
You get make it
やると決めたとき　奇跡の風が吹く
友よ行こう

勇気が心で燃えたら
翼がなくても飛べるんだ
しびれる 夢がここから始まる
もう　止まらない

誰だ？とびっきりのライバルは
どこだ？まじりっけなしの勇者達
きっと思いっきり飛べるぜ

I’m gonna fight
I’m gonna fight
I’m gonna make it

眠れる　勇者よ目覚めろ
くすぶるHeartに火をつけろ
暴れる 夢が爆裂したなら
もう　止まらない

勇気が心で燃えたら
翼がなくても飛べるんだ
しびれる 夢がここから始まる
もう　止まらない

你今天樂透了嗎?

這是自己用Visual basic 6寫的
可以自動選號
看你今天的手氣好不好XD

如果要參考亂數或排序的可以看一下

下載

VB6使用VBA的語法

如果要在VB6中利用EXCEL中錄制的巨集
那麼要先在專案->設定引用項目中加入Microsoft Excel 11.0 Object Library這個項目
就可以了
PS. 不過不一定是11.0 ?

Death Note 死亡筆記本

1. the WORLD

作詞：RUKA
作曲：RUKA
編曲・歌：ナイトメア

広がる闇の中　交わし合った　革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかないから

果実が告げた未来
理性を忘れた街
黒く歪んだ現在を
夢、理想に変える

どうして ?僕はこわれた救世主?
誰もが望んだ「 終幕」を…

広がる闇の中　交わし合った　革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかない

いつか僕が見せてあげる
光り輝く空を

どうして? 僕はこわれた救世主?
誰もが 夢みた「楽園」を …
広がる闇の中　交わし合った　革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかない

いつか僕が見せてあげる
光り輝く世界を

2. アルミナ

作詞：咲人
作曲：咲人
編曲・歌：ナイトメア

流れる時間の中瞬く刹那的煌きを
この世の記憶に刻むため　歩き続ける Believer

誰にも見れないユメを見て　要らないものは全て捨てた
ゆずれない想い　この胸に宿して

まだ現実と理想の狭間にいて　犠牲の枷に足をとられても
溢れる衝動押さえきれない　強く求める心があるから

「偽り」「恐れ」「虚飾」「憂い」様々なネガティブに
とらわれるほど 弱くはない　孤独も知らぬ trickster

夜空を突き刺すビルの群れ　星など見えない宙見上げ
「迷 いはないか」と　自分に問いかける

この 街中溢れるモノにまみれ
うつつを抜かすようなことは無い
未来へと繋がる道の果てで　この手に掴むものを見たいから

瞼を閉じ意識の海に浮かんで　思い描く
理想を手にするその日を

限りある「正」をこの世に受け　枯れゆくだけは愚かに等しい
他の誰もが持ち得ないもの　「自分自身」という名の結晶へ

キレイゴトを突き通すこと　いつか真実へ変わる
頑に信じ続けたい　It's just my faith. The absolute truth.

流れる時間の中瞬く刹那的煌きを
この世の記憶に刻むため　歩き続ける Believer

空間要收費了

原本使用的 MyDataBus 開始收費了
所以所有檔案都掛了
又要找新的空間......