VB.NET自定义函数

很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况

成都创新互联公司成立与2013年，是专业互联网技术服务公司，拥有项目成都网站制作、网站建设、外贸网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元文山州做网站,已为上家服务,为文山州各地企业和个人服务,联系电话:18982081108

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function

关于VB.Net 的函数定义问题如下

【转】VB.net是怎样做到的——Handles和WithEvents - ==Sdhjt的窝== - 博客频道 - CSDN.NET

看看这个博客应该可以帮到你。一般定义方法，函数，不需要“Handles abc”这一截

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 定义方法的问题

sub是可以有参数的，但是是没有返回值的。

你可以用function

如

Function add(ByVal a As Integer, ByVal b As Integer)

add = a + b

End Function

a = add(1,1)  这样a = 2

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

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

文章名称：vbnet定义函数,vbnet语法
网页网址：http://kswjz.com/article/phjpoi.html