誠徴創意vb程式 20點

Question

如題：

徵求有創意的vb程式哦~

不用太難，只要簡簡單單的一個程式 就可以了，

並解釋程式的用途 跟 解釋程式的意思就ok了

Answer 1

最佳解答

很簡單吧~

程式用途：印出數種顏色之文字，以測試螢幕是否支援彩色

Private Sub Form_Activate()

Dim i As Integer, temp As String, temp2 As String

temp = "這是一個有創"

temp2 = "式程ＢＶ的意"

For i = 1 To 6

Me.FontSize = i + 13 '文字大小會慢慢變大 (因為i遞增)

Me.ForeColor = QBColor(Int(Rnd * 16)) '隨機文字顏色

Print Mid(temp, i, 1); '逐字印出

Next i

For i = 6 To 1 Step -1

Me.FontSize = i + 13 '文字大小會慢慢變小 (因為i遞減)

Me.ForeColor = QBColor(Int(Rnd * 16)) '隨機文字顏色

Print Mid(temp2, i, 1); '逐字印出

Next i

End Sub

Answer 2

單純炸彈視窗....

Private Sub Timer1_Timer()

Dim a As New Form1 '開一個新的視窗

a.Show '顯示視窗

End Sub

interval 要自己調

PS...玩玩就好了..XD

參考資料： 頭腦