这两个函数都是错误的，首先C变量没有定义，其次作为Function函数没有Return返回结果。
我们提供的服务有：成都网站设计、成都做网站、微信公众号开发、网站优化、网站认证、武城ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的武城网站制作公司
所以两个函数运行起来不会返回任何结果！
像下面这个例子：返回值就是(obj Is Nothing)，在VB.Net中最好使用Return (obj Is Nothing)，而不是IsNothing=(obj Is Nothing)。
Public Function IsNothing(obj As Object) As Boolean
Return (obj Is Nothing)
End Function
有返回值：函数执行结束，必须将执行的某个结果数据返回给调用者
没有返回值：函数执行结束，没有返回任何结果给调用者
vb 还是vb.net这两种都有。不是说vb不带返回值而.net带返回值
'form1 窗体上添加一个button1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Button1.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
'以上是form1的代码
'然后就可以
dim a as new form1
dim b as dialogresult
b=a.showdialog()
