vb.net如何返回数组,vba遍历数组

VB.net 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

在凯里等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计、成都网站制作 网站设计制作按需搭建网站,公司网站建设,企业网站建设,品牌网站设计,营销型网站建设,外贸营销网站建设,凯里网站建设费用合理。

return new string(){"d1","d2","d3","d4"}

end function

vb.net中返回一个数组的函数的问题

给你一个简单的示例：

Option Explicit

Private Function GetRndInt() As Integer()

' 返回一个 Integer类型的数组

Dim i As Long, aTemp() As Integer

Randomize

ReDim aTemp(15)

For i = 0 To 15

aTemp(i) = Rnd() * 500

Next

GetRndInt = aTemp

End Function

Private Sub Command1_Click()

Dim aTemp() As Integer

Dim i As Long

Me.Cls

aTemp = GetRndInt

Print "随机产生的数据为："

For i = 0 To UBound(aTemp)

Print i + 1, aTemp(i)

Next

End Sub

运行效果：

VB.NET ARRAY 问题

Dim anArray(5, 3) As Integer

数组维数是从0开始计算的。

数组的 GetLength 方法返回指定维的长度。

anArray.GetLength(0) 表示取anArray第0维长度，0-5，即返回6

同理anArray.GetLength(1)取anArray第1维长度，0-3，即返回4

vb.net 返回一个数组的函数

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

vb.net输出数组

1.你说的这个有点问题,是要只输出一次,也可做,

2.但问题是如果你数组还有就看不到了!这个做法有点问题

1.解决方法:

循环前面加入一个变量 dim Temp as Double=0

For i = 0 To 9

If score(i) avg and score(i)temp Then

TextBox3.Text = TextBox3.Text score(i) " "

if score(i)=avg then

temp=score(i)

end if

End If

Next

vb.net 从数组{5,7,11,13,17,19}中取一个数，取三次（可以是相同的数），三次之和有几个值？求代码！

Sub 和()

Dim Arr, Dic As Object, i, j, k

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Array(5, 7, 11, 13, 17, 19)

For i = 0 To UBound(Arr)

For j = 0 To UBound(Arr)

For k = 0 To UBound(Arr)

Dic(Arr(i) + Arr(j) + Arr(k)) = ""

Next k

Next j

Next i

MsgBox Dic.Count

Set Dic = Nothing

End Sub

结果为22种不同的和值。