誠徴創意vb程式 20點

如題:

徵求有創意的vb程式哦~

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

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

2 個解答

評分
  • ?
    Lv 6
    2 0 年前
    最佳解答

    很簡單吧~

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

    Private Sub Form_Activate()

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

    temp = "這是一個有創"

    temp2 = "式程BV的意"

    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

  • 2 0 年前

    單純炸彈視窗....

    Private Sub Timer1_Timer()

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

    a.Show '顯示視窗

    End Sub

    interval 要自己調

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

    參考資料: 頭腦
還有問題?馬上發問,尋求解答。