public function createstringarr() as string()
10余年的陆川网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整陆川建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“陆川网站设计”,“陆川网站推广”以来，每个客户项目都认真落实执行。
return new string(){"d1","d2","d3","d4"}
end function
在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能使用by在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在声明函数的某个参数时使用byref前缀。
其他方法如使用全局变量等，已经不属于返回值的问题了。
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
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
给你一个简单的示例：
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
运行效果：
注意：参数为动态数组；
Private Function MyF(ByRef d() As Integer)
ReDim d(4, 13) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer
For i = 1 To 4
MyNum(i) = 0
Next i
Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i
End Function
