declarearray.vb

来自「asp做的新闻系统」· VB 代码 · 共 24 行

Public Class DeclareArray Inherits System.Web.UI.Page

	’声明数组
    Dim strName(3) As String

        	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		
        	’为数组赋值
        	strName(0) = "May"
        	strName(1) = "Beyond"
        	strName(2) = "Jacky"

        	PrintName()
    	End Sub

	’输出名称
    	Private Sub PrintName()
        	Response.Write("第一个名字是：" & strName(0))
        	Response.Write("<br><br>第二个名字是：" & strName(1))
        	Response.Write("<br><br>第三个名字是：" & strName(2))
     End Sub

End Class