19.有吃早餐的習慣嗎?是~23否~20
20.曾經養過寵物嗎?是~24否~21
21.喜歡看恐怖片?是~25否~22
22.不喜歡喝咖啡?是~25否~26
23.喜歡擦香水?是~A否~B
24.現在正在減肥?是~C否~D
25.你是一個不怕麻煩的人?是~E否~F
26.常被別人邀請去參加活動?是~G否~H
物件為2個Button,1個label
A~很會照顧別人的領導派
B~不之煩惱為何的樂天派
C~擇善固執的堅持派
D~積極努力的認真派
E~開朗沒心機的奇檬子派
F~洞察人心的神祕派
G~無憂無慮的天真派
H~和善親切的自然派
我現在的情形是"按一下Button1會跳一次",但是再按一次就不會再跳到第二筆資料
如19題"按一下是"會到第23題,但到23題時,再按一次"是",他就不會動了
我現在的程式碼
Public Class Form1
Dim a() As String = {"有吃早餐的習慣嗎?", "曾經養過寵物嗎?", "喜歡看恐怖片?", "不喜歡喝咖啡?", "喜歡擦香水?", "現在正在減肥?", "你是一個不怕麻煩的人?","常被別人邀請去參加活動?"}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 3
Label1.Text = a(i)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For z = 0 To 1
Label1.Text = a(z)
Next
End Sub
End Class
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html
留言列表
留言列表