作者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