→ GoalBased:你的問題描述太不清楚了= = 06/04 08:42
→ dx0789111:我的button7程式碼 if combobox2.selectedindex=0 then 06/04 09:45
→ dx0789111:A(1)=true 這樣子第一題a(1)就變true if combobox2. 06/04 09:46
→ dx0789111:Selectedindex=1 then a(1)=false 這樣子第二題就變成 06/04 09:47
→ dx0789111:False 但是我在button3裡面打 for i=1 to 1000 a(i)= 06/04 09:48
→ dx0789111:False then y = y + 1 卻都讀不到a陣列的值 請問要在 06/04 09:49
→ dx0789111:Button3中打什麼才能讓button7裡跑出來的陣列a讀的到呢 06/04 09:54
→ dx0789111:抱歉 我第三個回的應該是第一題a(1) 不是第二題 06/04 10:00
→ cf1064:看來是要把a()定義在全域變數中 06/04 11:37
→ cf1064:把a() as boolean放在class裡，sub外 06/04 11:41
→ dx0789111:我把a放在最外面欸 就是全部程式碼的第一行下面a(0to100 06/04 13:14
→ dx0789111:0）as boolean 應該是全域才對 06/04 13:15
→ putumaxally:貼一下程式碼吧，全域變數應該是沒有問題才對 06/04 14:36
Public Class Form1
Dim A(0 To 1000) As Boolean
Public Property DataSource As Object
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles
Button7.Click
Dim k, s As Integer
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
'AABCCBCAAB喔>_<
'0012212001
k = ComboBox1.SelectedIndex
If ComboBox2.SelectedIndex = 0 Then A(10 * k + 1) = True 'true
If ComboBox2.SelectedIndex = 1 Then A(10 * k + 1) = False
If ComboBox2.SelectedIndex = 2 Then A(10 * k + 1) = False
If ComboBox3.SelectedIndex = 0 Then A(10 * k + 2) = True 'true
If ComboBox3.SelectedIndex = 1 Then A(10 * k + 2) = False
If ComboBox3.SelectedIndex = 2 Then A(10 * k + 2) = False
If ComboBox4.SelectedIndex = 1 Then A(10 * k + 3) = True 'true
If ComboBox4.SelectedIndex = 0 Then A(10 * k + 3) = False
If ComboBox4.SelectedIndex = 2 Then A(10 * k + 3) = False
If ComboBox5.SelectedIndex = 2 Then A(10 * k + 4) = True 'true
If ComboBox5.SelectedIndex = 0 Then A(10 * k + 4) = False
If ComboBox5.SelectedIndex = 1 Then A(10 * k + 4) = False
If ComboBox6.SelectedIndex = 2 Then A(10 * k + 5) = True 'true
If ComboBox6.SelectedIndex = 0 Then A(10 * k + 5) = False
If ComboBox6.SelectedIndex = 1 Then A(10 * k + 5) = False
If ComboBox7.SelectedIndex = 1 Then A(10 * k + 6) = True 'true
If ComboBox7.SelectedIndex = 0 Then A(10 * k + 6) = False
If ComboBox7.SelectedIndex = 2 Then A(10 * k + 6) = False
If ComboBox8.SelectedIndex = 2 Then A(10 * k + 7) = True 'true
If ComboBox8.SelectedIndex = 0 Then A(10 * k + 7) = False
If ComboBox8.SelectedIndex = 1 Then A(10 * k + 7) = False
If ComboBox9.SelectedIndex = 0 Then A(10 * k + 8) = True 'true
If ComboBox9.SelectedIndex = 1 Then A(10 * k + 8) = False
If ComboBox9.SelectedIndex = 2 Then A(10 * k + 8) = False
If ComboBox10.SelectedIndex = 0 Then A(10 * k + 9) = True 'true
If ComboBox10.SelectedIndex = 1 Then A(10 * k + 9) = False
If ComboBox10.SelectedIndex = 2 Then A(10 * k + 9) = False
If ComboBox11.SelectedIndex = 1 Then A(10 * k + 10) = True 'true
If ComboBox11.SelectedIndex = 0 Then A(10 * k + 10) = False
If ComboBox11.SelectedIndex = 2 Then A(10 * k + 10) = False
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
For i = 1 To 1000
If A(i) = True Then s = s + 1
Next
Label14.Text = "目前得分" & s & "/1000"
If s = 1000 Then
MsgBox("你好棒喔>_<")
Label13.Text = "達成目標了~好厲害喔~"
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
Dim x As Integer
'xxxxxx有無錯誤單字檢查xxxxxx
For i = 1 To 1000
If A(i) = 0 Then x = x + 1
If A(i) = True Then x = x + 1
Next i
If x = 1000 Then
MsgBox("你目前沒有錯誤單字喔")
Exit Sub
End If
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If A(1) = False Then Label1.Text = Label1.Text & vbCrLf & "1.a (an):一
個"
If A(2) = False Then Label1.Text = Label1.Text & vbCrLf & "2.a few:一
些"
Label1.Visible = True
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button8.Visible = True
End Sub
End Class
※ 編輯: dx0789111 (114.42.213.55), 06/04/2014 16:07:47
→ dx0789111:喔 我懂了 原來a()的初始值是false 我以為讀不到 抱歉 06/04 19:08
推 naruto861214: 太感謝cf1064大大了!!!!!!!! 06/08 23:19