作者fumizuki (小獅)
看板Visual_Basic
標題Re: [.NET] 陣列為何是空的
時間Wed Jun 1 12:28:47 2005
※ 引述《googookevin (我的笑點真的很低~)》之銘言：
: Dim no As Integer = 0
: Dim num As Integer
: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles MyBase.Load
: Label5.Visible = False
: num = Val(InputBox("請輸入學生數目", ""))
: Label1.Text = "請輸入" & num & "筆學生姓名和成績!"
: Label2.Text = "第" & no + 1 & "筆"
: End Sub
: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles Button1.Click
: Dim s_score(num - 1) As Single
: Dim s_name(num - 1) As String
: Dim i As Integer
: Dim tt As String
: Dim ss As String
: s_name(no) = TextBox1.Text
: s_score(no) = TextBox2.Text
: no += 1
: Label2.Text = "第" & no + 1 & "筆"
( ) 應該要加上括弧吧?
: Label5.Text = "編號 姓名 分數" + vbNewLine
: TextBox1.Text = ""
: TextBox2.Text = ""
: If no = num Then
: Label5.Visible = True
: For i = 0 To num - 1 Step 1
: Label5.Text &= i & " " & s_name(i) & " " & "
: " & s_score(i) & vbNewLine
: Next i
: End If
: End Sub
: 這程式是希望最後能列出所有資料~但為何最後都只能顯示出最後一筆輸入的資料
: 呢?其他前面輸入的資料都會成為0～好奇怪喔！
: 是不是存取陣列出了問題阿?
button1是新增資料？
當輸入完成後會自動顯示所有資料在Lebel5？
那應該是因為你陣列是區域變數的關係吧
把宣告的部份拉出來移到最上面...
不過我不會 VB.NET 不知道應該放在哪個區塊@@"
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162