Session在计算机中，尤其是在网络应用中，称为“会话”。
常熟网站建设公司创新互联,常熟网站设计制作，有大型网站制作公司丰富经验。已为常熟成百上千提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的常熟做网站的公司定做！
Session直接翻译成中文比较困难，一般都译成时域。在计算机专业术语中，Session是指一个终端用户与交互系统进行通信的时间间隔，通常指从注册进入系统到注销退出系统之间所经过的时间。
下面我们举例在asp.net中来应用Session。
1.创建一个页面，叫SendSession
2.在页面内添加两个TextBox，叫TxtName，TxtEmail，添加一个Button，叫Submit
protected void Submit_Click(object sender, EventArgs e)
{//可以使用Session的Add方法
Session["Name"] = TxtName.Text;
//可以使用Session.Add("Name",TxtName.Text);
Session["Email"] = TxtEmail.Text;
//可以使用Session.Add("Email",TxtEmail.Text);
Response.Redirect("ReceiveMessage.aspx");
}
3.再创建一个页面，叫ReceiveMessage.aspx
4.在页面内添加两个Label，叫LbName，LbEmail
protected void Page_Load(object sender, EventArgs e)
{
LbName.Text = Session["Name"].ToString();
LbEmail.Text = Session["Email"].ToString();
Session["Name"].Remove();
Session["Email"].Remove();
//使用结束要清除Session中的值
}
这是使用Session传递数值，此方式耗费服务器的资源，尽量少使用
你那个百分比不对，暂时改为0～80出现几率25%：
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim a As Integer, b As Integer
Randomize()
a = Int(Rnd() * 101)
Select Case a
Case 0 To 25
b = Int(Rnd() * 80)
Case 26 To 65
b = Int(Rnd() * 20) + 80
Case 66 To 85
b = Int(Rnd() * 20) + 100
Case 86 To 95
b = Int(Rnd() * 10) + 120
Case Else
b = Int(Rnd() * 20) + 130
End Select
TextBox1.Text = b.ToString
End Sub
这个用读写TXT的话比较繁琐，建议题主使用读写INI的方式，参考：
'声明INI配置文件读写API函数
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
'定义读取配置文件函数
Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
Dim Str As String = LSet(Str, 256)
GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
End Function
'定义写入配置文件函数
Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
End Function
'定义INI文件位置
Dim path As String
path = "C:\t861239263.ini" '假设是这个文件
那么读取的时候：
TextBox1.Text = GetINI("main","v1","", path)
TextBox2.Text = GetINI("main","v2","", path)
TextBox3.Text = GetINI("main","v3","", path)
写入的时候：
WriteINI("main","v1", TextBox1.Text, path)
WriteINI("main","v2", TextBox2.Text, path)
WriteINI("main","v3", TextBox3.Text, path)
【附】INI文件的格式，范例：
[main]
v1=133233
v2=132387
v3=322333
[aaa]
abc=1
bcd=2
[bbb]
ni=wo
wo=ta
网上下载我也试过，一个大文件下载好了又装不了。还是买光盘吧，5元一张，省时省力！网上病毒太疯狂。弹窗也太流行了。
vb.net 语言编译环境已经继承在Visual Studio 里了。你下载下面的这个链接就可以。
Visual Studio 2008专业版下载
Visual Studio 2010旗舰版版下载
你下载那个都行的。版本只是新一点！
希望对您有用~
