vb.net创建函数,vb编写函数

在vb.net中如何定义staticextern函数

在vb.net中定义staticextern函数:用static声明的局部变量。static是C++中常用的修饰符,它被用来控制变量的存贮方式和可见性。extern,C是使C++能够调用C写作的库文件的一个手段。

和田网站建设公司成都创新互联公司,和田网站设计制作,有大型网站制作公司丰富经验。已为和田成百上千提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的和田做网站的公司定做!

使用vb.net编写一个函数,函数只有一个参数

首先在窗体上添加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

vb.net 编写一个函数

注意:参数为动态数组;

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


网页标题:vb.net创建函数,vb编写函数
转载源于:http://bzwzjz.com/article/hdgdjc.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站设计 高端网站设计 成都网站制作公司 网站制作 宜宾网站设计 成都定制网站建设 手机网站制作 成都网站建设 成都网站设计 专业网站设计 成都网站设计 网站建设 成都网站制作 网站建设开发 企业网站建设 四川成都网站建设 营销网站建设 手机网站建设套餐 成都网站建设 网站建设推广 高端品牌网站建设 网站建设方案