猿问
下载APP

请问在vb.net中,Function是“过程”还是“函数”?

在vb.net中,Function是“过程”还是“函数”


慕斯卡3215842
浏览 73回答 5
5回答

翻翻过去那场雪

1、我有一个function,如下:function b()'...return "abc"end function2、调用时,这样子用:Response.write(b());3、运行结果:abc

慕仰8121524

要返回值的函数:function a() As String'……一些语句……Return 要返回的StringEnd function要获取函数返回值的过程:Function b()你要使用的string=a()End Function在赋值时程序会吧a函数运行一遍,返回值就出来了

慕虎7371278

建议你这样,弄一个专门的运算类,里面有四个运算的函数,比如:Class 运算Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal'举个例子Return 加数1 + 加数2 '百度打不出英文加号,你自己改一下Exit FunctionEnd FunctionShared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal'举个例子Return 被减数 - 减数Exit FunctionEnd FunctionEnd Class上面我写了两个例子,你可以照抄然后自己写乘除的,总之不要滥用类就行。PS:Shared函数的使用不需要类被实例化,可以直接这样使用:Msgbox(运算.加(1,2).ToString)你会发现“运算”是蓝色的

手掌心

可以像这样,返回变量的值。Visual Basic codePublic Function number() As Single '你在这已经设置了函数返回值的类型Dim nJTTZ As Single = 1return nJTTZ '返回变量的值End FunctionPublic Function Index() As SingleDim zJTTZ As Single = 1return zJTTZEnd FunctionPublic Overloads Function CalcAmount() As BooleanAddItemRow("", "第一部分:静态投资", "正线公里", number(), Index()) ‘调用函数即得到返回的变量值。End Function

HUH函数

代码已测试。一、测试需要的INI文件。名称为“setinfo.ini”,存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。内容:[Location]pnlTime.Location.X=787pnlTime.Location.Y=0[TopMost]Top=True二、操作INI文件的类。新建一个类,类中内容为:Public Class Class1    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _             ( _             ByVal lpApplicationName As String, _             ByVal lpKeyName As String, _             ByVal lpDefault As String, _             ByVal lpReturnedString As String, _             ByVal nSize As Int32, _             ByVal lpFileName As String _             ) As Int32End Class三、界面代码:Imports System.IO 'for pathPublic Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        getINI()    End Sub    Private Sub getINI()        Dim iniclass As New Class1 '        Dim myBf As String 'get set_info 开辟存储的内存        myBf = New String(CChar(""), 256)        Dim myFN As String '配置文件的文件路径        myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")        Dim myAN As String 'Application_NAME,也是Section名称        myAN = Me.TextBox1.Text        Dim myKN As String 'KEY_NAME,关键字名称        myKN = Me.TextBox2.Text        Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作        TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要    End SubEnd Class四、测试截图如下
打开App,查看更多内容
随时随地看视频慕课网APP
我要回答