public function createstringarr() as string()
成都创新互联公司是一家集网站建设,鄞州企业网站建设,鄞州品牌网站建设,网站定制,鄞州网站建设报价,网络营销,网络优化,鄞州网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
return new string(){"d1","d2","d3","d4"}
end function
1、利用公式求出Y值 第一列设置表头为x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表头设置为y，在下面表格中填入计算公式 如 =2*x+1 然后选中点右下角的十字型标记，拖下去，和前面x数量一致。 2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域。） 3、执行菜单命令插入——图表——XY散点图 执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成 最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可 将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作。执行菜单命令 执行菜单命令
首先在窗体上添加Button1，ListBox1，下面是完整代码
Public Class Form1
Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序
Dim temp As Double
Dim i, j As Integer
For i = 0 To arr.GetUpperBound(0) - 1
For j = i + 1 To arr.GetUpperBound(0) - 1
If arr(i) arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '调用
Dim arr() As Integer = {55, 22, 33, 11, 77, 88}
BubbleSort(arr) '调用排序过程
Me.ListBox1.Items.Clear()
For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End Sub
End Class
