189 8069 5689
如果是public，直接对象.成员，private可以写个成员函数返回这个成员，友元也行。
十余年的上党网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整上党建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“上党网站设计”,“上党网站推广”以来，每个客户项目都认真落实执行。
比如：
class A
{
public:
int get(){return a;}
private:
int a;
}
VB.NET可选参数的默认值必须是一个常数表达式。
过程定义中跟在可选参数后的每个参数也都必须是可选的。
下面的语法显示带VB.NET可选参数的过程声明：
Sub sub name（ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value）
调用带VB.NET可选参数的过程
过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：
Visual Basic
Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）
If office = "QJZ" Then
Debug.WriteLine（"office not supplied -- using Headquarters"）
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub
如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。
VB.NET可选参数和重载
定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。
DLL（动态链接库）是一个很有用的东西，在开发大项目的时候显得非常重要，因为多人合作开发时，可以给每个人分配一个任务，用DLL完成，最后组合起来，就不会出现互相冲突的问题。这里给出最简单的DLL编写与调用的示例
首先，我们打开VB.NET，选择类库，名称改为test
然后输入以下代码
Public Class test
Public Function test(ByVal a As Long, ByVal b As Long) As Long
Return a + b
End Function
End Class
保存后，生成DLL文件。
这就是最简单的一个DLL，下面是调用该DLL的示例
新建一个工程，单击“项目” -- 添加引用
找到刚才生成的DLL，双击它
添加引用以后，似乎什么也没发生，这时我们输入以下代码：
Imports test.test
这样，就包含了该DLL的类。
然后我们定义一个类
Dim test As New test.test
这样，就可以使用里面的函数了，下面是程序示例
Imports test.test
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim test As New test.test
MsgBox(test.test(1, 2))
End Sub
End Class
运行该程序，可以看到，调用了DLL内的函数。
这就是最简单的DLL示例，可以将一些复杂的代码集成到DLL里，以后升级或重用都比较方便。
如上面所说，你可能还不太了解类、函数等的作用。
类可以用来封装一系列操作，或者是一类对象的特性。像上面的描述，有可能是滥用类了。
建议你这样，弄一个专门的运算类，里面有四个运算的函数，比如：
Class 运算
Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal
'举个例子
Return 加数1 ＋ 加数2 '百度打不出英文加号，你自己改一下
Exit Function
End Function
Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal
'举个例子
Return 被减数 - 减数
Exit Function
End Function
End Class
上面我写了两个例子，你可以照抄然后自己写乘除的，总之不要滥用类就行。
PS：Shared函数的使用不需要类被实例化，可以直接这样使用：
Msgbox(运算.加(1,2).ToString)
你会发现“运算”是蓝色的