VB.NET里奇怪的数组赋值现象

2016-01-29 13:23 40 1 收藏

VB.NET里奇怪的数组赋值现象,VB.NET里奇怪的数组赋值现象

【 tulaoshi.com - ASP.NET 】

今天在写程序过程中发现了.NET里的一个奇怪现象,就是给数组给数组赋值时竟然是"指向数组的地址",即数组给数组赋值时不是生成一个新的值后传给数组保存,而是传给该数组的地址给数组.打个比方:有数组A和数组B.现在把数组B赋给数组A.而则时数组A不是保存数组B的值而是保存数组B的内存地址,这就产生一个问题:如果数组B的值改变则数组A的值也跟着改变!!!....而在ASP就不是这样情况,VB也可能不是这样,我的机没有VB.所以测试不了...

这样说可能还不是很清楚(我的表达能力就是很差),给一段示例代码就知:
VB.NET的代码:
Sub TestCode()
Dim Test(4) As Array, RandomText(1) As String
Dim Ran As New Random, i, j As Integer
For i = 0 To 4
For j = 0 To 1
RandomText(j) = Ran.Next(100)
Next
Test(i) = RandomText
Next
For i = 0 To 4
MsgBox(Test(i)(0) & "|" & Test(i)(1))
Next
End Sub
运行上面代码你可发现,五次显示的结果都是一样的...如果你以为RANDOM时产生相同的值,那么你可以使用一步步调试.在"自动窗口"中你会发现每当循环时,Test(i-1)里面的值总是跟着Test(i)的值改变....这也说明了我在上面所说的问题,即数组赋值给数组时是"传址"而不是"传值"保存....但如果不是数组则不会有这样的情况出现!解决方法是把RandomText(1) As String的定义放到第一个循环的里面即可,即每循环一次生成一个新的数组

让我们看看在ASP里会不会也是相同的情况吧
ASP代码:
<%@LANGUAGE="VBSCRIPT"%>
<%
Randomize

Dim Test(4), RandomText(1)
Dim Ran, i, j
For i = 0 To 4
For j = 0 To 1
RandomText(j) = Int(Rnd(Time)*100+1)
Next
Test(i) = RandomText
Next
For i = 0 To 4
Response.Write Test(i)(0) & "|" & Test(i)(1) & "
"
Next
%>
运行后你会发现5行的数据都是不同的!!!即在ASP里数组赋值给数组是"传值"而不是"传址"保存!!!!


.NET怎么变了??很多东西都变了...变得习惯了还是不习惯了?

来源:http://www.tulaoshi.com/n/20160129/1490001.html

延伸阅读
标签: vb
前言 大约到2001年的第4季度,Visual Basic的下一个版本Visual Basic.NET将会正式发行。新版的Visual Basic.NET拥有许多VB开发者以前只能梦想的新功能和新特色。同时,成长和发展也意味着付出一定的代价,新的Visual Basic.NET中有许多东西需要重新学习,一些细微的变化很可能带来出乎意料的麻烦。 Microsoft .NET平台所包含的内容非...
标签: vb
三、完善的面向对象支持 VB.NET提供了完善的面向对象编程支持,是一种真正的OO语言。 完善的面向对象支持应该包括封装(Encapsulation),继承(Inheritance)和多态性(Polymorphism)。当前的VB6已经部分地实现了这些支持,但仍因某些地方未能符合标准而受到责难。 封装是指对象只显露公用的方法和属性。VB6已经提供了健壮的...
都说在.NET里,.NET framework和CLR是应用运行的基础。那么VB.NET和C#是不是就完全一样,只是语法不同吗?请看我整理的资料。 一、C# --- 像VB一样简单,像C++一样强大的新语言 C#是第一流的面向组件的语言 由 Turbo Pascal, Delphi, and Visual J++的首席设计师Anders Hejlsberg 倾心3年设计 所有的语言元素都是真正的对象 开发强壮和...
这是一个使用VB.net开发拖动无边框的窗体,以下为源代码,朋友们可以参考一下。 '****************************************** Private oOriginalRegion As Region = Nothing ' 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point '**********************************...
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = MsgBoxResult.OK Then Dim d As Double For d = 1 To 0 + 0.2 Step -0.2 System.Threading.Thread.Sleep(50) Applic...

经验教程

970

收藏

82
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部