我很喜歡于晴-《妾心璇璣》中的一句話：「人們總是因想太多，而遺忘了天亮後又是一個未知數。」
每次看這句話，都覺得充滿了無窮的希望。
--
目前分類：未分類文章 (16)
- Jan 08 Sun 2012 00:42
未知數
- Nov 14 Tue 2006 09:56
麻煩
我討厭麻煩
- Nov 06 Mon 2006 21:30
yaya2
Module Module1
Sub Main()
Dim a, b As String
Console.WriteLine("輸入三位元字串") : a = Console.ReadLine()
Console.WriteLine("輸入任一字串") : b = Console.ReadLine()
Console.WriteLine(b Like "*a.Chars(0)*")
If b Like a.Chars(0) = True And b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("3個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(1) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(1) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(2) = True Then
Console.WriteLine("1個相關")
Else
Console.WriteLine("0個相關")
End If
Console.ReadLine()
End Sub
End Module
Sub Main()
Dim a, b As String
Console.WriteLine("輸入三位元字串") : a = Console.ReadLine()
Console.WriteLine("輸入任一字串") : b = Console.ReadLine()
Console.WriteLine(b Like "*a.Chars(0)*")
If b Like a.Chars(0) = True And b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("3個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(1) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(1) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(2) = True Then
Console.WriteLine("1個相關")
Else
Console.WriteLine("0個相關")
End If
Console.ReadLine()
End Sub
End Module
- Nov 06 Mon 2006 21:29
- yaya2
Module Module1
Sub Main()
Dim a, b As String
Console.WriteLine("請輸入三位元字串") : a = Console.ReadLine()
- Sep 27 Wed 2006 12:02
yaya
Module Module1
Sub Main()
'Console.WriteLine("這是我的第一支VB程式")
'Console.WriteLine("I'm 20 years old. 就學中")
Sub Main()
'Console.WriteLine("這是我的第一支VB程式")
'Console.WriteLine("I'm 20 years old. 就學中")
- Sep 23 Sat 2006 22:32
罩門
好可怕，
因為某些事情，
讓我發現了我一直沒長大的部份.....
那就是我的罩門
因為某些事情，
讓我發現了我一直沒長大的部份.....
那就是我的罩門
- Sep 17 Sun 2006 21:21
女性專用車廂
- Jul 21 Fri 2006 23:45
紫色家初遊
跟晏華說好了，如果他要去紫色家住，
就要記得找我。
所以，在補財管的時候，
我看到了晏華傳來的簡訊，
想著晚上到中山國中站集合。
- Jul 15 Sat 2006 20:17
所謂營隊(之前)
- May 20 Sat 2006 01:23
佔有慾
其實，大二宿舍的房間幾乎都是我一個人在住。本來還有一個同年級的室友會住，但是後來他交男朋友後，就大概是一半的天數住那邊，所以，最後入夜之後的房間幾乎是我一個人的。
剛開始會覺得不開心，會有一種很怕寂寞的感覺。
很奇怪，從前住宿，即使房間室友外宿，寂寞感也沒這麼重，但是現在就覺得有的時候很容易有一種不平衡。那個時候還是有寂寞感，但是，沒有像大學中感受的這麼強烈。
不過，寂寞感會隨著日子的增加而增強，但是，也會慢慢和這種感覺做好朋友orz
安卓兩三事 (2)