13518219792
Dim url As String=" 网址"
10多年专注建站、设计、互联网产品按需求定制开发服务，业务涵盖品牌网站制作、商城网站定制开发、微信小程序定制开发、软件系统开发、重庆APP开发等。凭借多年丰富的经验，我们会仔细了解每个客户的需求而做出多方面的分析、设计、整合，为客户设计出具风格及创意性的商业解决方案，成都创新互联公司更提供一系列网站制作和网站推广的服务，以推动各中小企业全面信息数字化，并利用创新技术帮助各行业提升企业形象和运营效率。
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与
Internet资源建立持久连接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
所谓三层体系结构，是在客户端与数据库之间加入了一个"中间层"，也叫组件层，该层负责处理业务逻辑的实现。这里所说的三层体系，不是指物理上的三层，不是简单地放置三台机器就是三层体系结构，也不仅仅有B/S应用才是三层体系结构，三层是指逻辑上的三层，即使这三个层放置到同一台机器上。
通常.net 三层架构就是基于.net 的三层架构应用模式。ASP.NET 可以使用.NET平台快速方便的部署三层架构。ASP.NET革命性的变化是在网页中也使用基于事件的处理，可以指定处理的后台代码文件，可以使用C#, VB,J#作为后台代码的语言。.NET中可以方便的实现组件的装配，后台代码通过命名控件可以方便的使用自己定义的组件。显示层放在 ASP页面中，数据库操作和逻辑层用组件来实现，这样就很方便的实现了三层架构。
是的,asp.net vb.ne c#都是.net框架下的语言.
XP和windows2000 都是微软的系统,都是基于NT核心的操作系统,区别在于XP是2000的升级版.XP版本中没有SERVER版的系统,而2000和XP二个不同时期的版本中都各有不同的衍生版本，用做不同的用途，比如2000下有SERVER版和Professional版，而SERVER又分为数据版和网络服务版等几个版本，XP的衍生版本比2000还多，你可以自己去查一下。
UNIX和LINUX也是同一个核心的系统，其是核心是用C写出来的。可以说LINUX是由UNIX的核心改写出来的，也可以说是扩展。由于他是开源系统所以源代码是公开的因此相关的版本更多，你也可以去网上查一下，UNIX用的最多的是IBM，HP，和JAVA的老家。LINUX是中小企业用的多，因为不用花钱，没有版权问题（非共享版）。
WIN和UNIX是二个不同的系统平台，虽然现在在硬件上还算是共用，可是从驱动和应用软件上都是不可以共用的，也就是说在WIN下的软件大多数是不可以用在UNIX（LINUX）上的。
UNIX只是一个系统，不要以为它是服务器专用，只是因为他用在服务器上的比用在其他方的多，所以大多数人的想法里会把UNIX放在服务器系统里，其实很多嵌入系统都在用UNIX。
3层架构，我觉得其实3层架构就是对信息系统中一以数据信息为依据进行的划分： 1． 用户服务（数据的表现，以某种条件展现符合此条件的数据） 2． 业务逻辑服务（通过某方式去实现用户需要的各种记录集） 3． 数据库（数据源）如今公司开发，3层架构的实现，在VB中，COM功不可没，企业都已经广泛的采用COM，DCOM（分布式部件对象模型）将各层服务和应用连接起来，因为COM的灵活（可复用，转移），结构清晰性（特定块实现特定功能）。COM让开发者能够以二进制的软件部件方式在这个应用模型的各个层面进行应用搭建。它允许应用开发人员通过封装代码或功能的方法使用部件，无论是一个用户界面控件还是业务部件。一个部件有一个或多个"接口"，能够暴露出一组方法或属性, 并因此能够被其他部件或应用所调用。例如，我分析的3层构架其中有一个代表公司的部件clscompany,它表示的一些属性（由GET ，LET 表示可读或写）如：Private mCode As String 表属性：公司编码 而CLASS的默认事件ternimate表示释放对象后的行为，initialize表示对象创建时的行为，类中对象可具有方法，即在类模块里添加公共过程(public sub()无返回值，public function x() as xxx有返回值)如： Public Function OpenAll() As Boolean则是打开数据库某表的所有记录的方法。自定义事件则是在类模块声明部分用public event xxx()声明事件，再用RaiseEvent激发事件，使用withEvent在应用这个类的窗体frmcompany的模块声明部分声明某个对象
下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
