VB 模擬試題 題目!!

請問 誰能寫這5題程式呢

感謝

網址在http://www.infomonth.com/upload/96資訊月VB模擬試題.pdf

我要參加比賽了

希望趕快X<

7 Answers

Rating
  • 1 decade ago
    Favorite Answer

    1.

    Private Sub Form_Load()

    Timer1.Enabled = False

    Form1.Show

    Picture1.ForeColor = vbRed

    Picture2.ForeColor = vbBlue

    Picture1.Top = Picture2.Top

    Picture1.Left = Picture2.Left

    Picture2.Print "XXXXXXXXXXXXX"

    Picture1.Width = 0

    Picture1.ZOrder 0

    End Sub

    Private Sub Command1_Click()

    Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Timer()

    If Picture1.Width < Picture2.Width Then

    Picture1.Width = Picture1.Width + 50

    Picture1.Cls

    Picture1.Print "XXXXXXXXXXXXX"

    End If

    End Sub

    Source(s): 自己
  • 1 decade ago

    以後自己要考試請自己寫一寫在來讓其他人幫你改

    不要都沒有寫就只想要程式碼!!!

    2.

    Private Sub Command1_Click(Index As Integer)

    Select Case Index

    Case 0

    If Option1 = True Then

    Picture1.Line (Val(Text1.Text), Val(Text2.Text))-(Val(Text3.Text), Val(Text4.Text)), , B

    Else

    Picture1.Line (Val(Text1.Text), Val(Text2.Text))-(Val(Text3.Text), Val(Text4.Text)), , BF

    End If

    Case 1

    Picture1.Cls

    Case 2

    End

    End Select

    End Sub

    Source(s): 自己
  • Anonymous
    1 decade ago

    http://tw.club.yahoo.com/vbvbvb

    ●vb程式 小範例及小遊戲寫作下載●

    你想到的考試題目都有,完整原始碼

    很久的家族了,沒有再更新了

  • 1 decade ago

    比賽跟這幾題不一樣吧!

    我也有比不過檔案存錯了啦!

    其實這簡單的啦!

    比賽不難只是要看你會不會運用而已..

  • How do you think about the answers? You can sign in to vote the answer.
  • 1 decade ago

    好熟悉的題目啊!

    這是資訊月電腦技能競賽吧!?

    不過題目還是沒變嗎?

    記得以前就是這些題目了!

  • 幽靈
    Lv 5
    1 decade ago

    這是比賽題目?? @@

    怎麼好像以前TQC的題目..(現在是怎樣不曉得)

    而且都還蠻簡單的....

  • 世賢
    Lv 7
    1 decade ago

    既然要參加比賽的人怎不自己試著去寫程式,一定要別人幫你,你才有辦法嗎?

Still have questions? Get your answers by asking now.