testcast.vb

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

Public Class TestCast Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cast()
    End Sub

    	'类型转换
Private Sub Cast()
       	'声明数值型变量
    		Dim nSalary As Decimal
        	'为变量赋值
 		nSalary = 1000.25
        	'在页面上输出变量
    		Response.Write("数值型：" & nSalary)
        	'将变量类型转换后在输出
        	Response.Write("<br><br>转换为整型：" & CInt(nSalary))
    End Sub

End Class