vb中这个符号“&”怎么读

1 在HTML或SGML文档中，用于指明有字符存在（特殊字符）的默认符号。 &的进化

2 在电子制表程序中,用于在描述单元格相互关系的公式中插入文本的操作符。 3 英文中代表and，也可读and 4 该字符读音“z'da” 5 &还有“联合”的意思。比如“A&B”公司，就是“A”和“B”两间公司合并起来的。 6 在某些电脑语言，如java中，表示按位进行“与”运算。 7 英文拼写：ampersand 8 高级语言中的取地址符，如：“int a=0;int *p;*p=&a;”，意为取变量a的地址给指针p。 9C语言中两个&&表示与运算 如：while("a==9&&b==5") 表示当a=9与b=5时，条件成立。 10 Matlab中，&表示与运算(对应地，|表示或运算)，但Matlab较高版本(如：Matlab R2008b)中，也承认&&的写法。 在以上的意义中，以第3和第5项的用法最为普遍 11 在vfp 数据库中，&是一个宏代换函数，用内在变量的值来代替&及变量名 如a1="hello" a2=a1 ?&a2 屏幕显示结果为 hello T恤上的&

12 在Pascal中，&是八进制整型常量的前缀，如&7表示7 ， &17表示15 ， &177表示127 。 13 &还被大量引入到艺术创作与设计中。 14 bat中的命令，&之后顺序执行多条命令，不管命令是否成功。 15 在Visual Basic中使用命令按钮时，(&字母)代表将该字母设为快捷键 如在命令按钮的Caption属性中输入“确定(&K)”则表示K为“确定”事件的快捷键 16 起标识作用。C++中引用的声明方法：类型标识符 &引用名=目标变量名，&在此不是求地址运算，而是起标识作用。

'读收ini的模块Option ExplicitPublic Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal Filename As String) As LongPublic Function myReadINI(iniFileName, iniSection, iniKey, iniDefault)

'该函数的使用与读注册表类似

'inifilename为INI文件名，inisection为INI文件中的项目，inikey为项目下的键名称，inidefault为默认键值

'If no section (appname), default is first appname

'（若无项目名，默认为初始名称）

'if no key, default is first key

'（若无键名，默认为初始键名）

Dim lpApplicationName As String

Dim lpKeyName As String

Dim lpDefault As String

Dim lpReturnedString As String

Dim nSize As Long

Dim lpFileName As String

Dim retval As Long

Dim Filename As String

Dim intZeroPos As Integer

'判断INI文件是否存在

If Dir(iniFileName) "" Then

lpDefault = Space$(254)

lpDefault = iniDefault

lpReturnedString = Space$(254)

nSize = 254

lpFileName = iniFileName

lpApplicationName = iniSection

lpKeyName = iniKey

Filename = lpFileName

retval = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)

'去掉后面的空格 myReadINI = StripTerminator(lpReturnedString)

End If

End FunctionPublic Function myWriteINI(iniFileName As String, iniSection As String, iniKey As String, Info As String) As String

'该函数的使用与写注册表类似，可在INI文件中添加或修改项、键、值

'iniFileName为INI文件名，inisection为INI文件中的项目，inikey为项目下的键名称，Info为键值

Dim retval As Long

retval = WritePrivateProfileString(iniSection, iniKey, Info, iniFileName)

myWriteINI = LTrim$(Str$(retval))

End FunctionPublic Sub DelSectionINI(iniFileName As String, iniSection As String)

'该过程可删除INI文件中指定的项

'iniFileName为INI文件名，iniSection为指定的项

'判断INI文件是否存在

If Dir(iniFileName) "" Then

WritePrivateProfileString iniSection, vbNullString, vbNullString, iniFileName

End IfEnd SubPublic Sub DelKeyINI(iniFileName As String, iniSection As String, iniKey As String)

'该过程可删除INI文件中指定的键

'iniFileName为INI文件名，iniSection为指定的项，iniKey为指定的键

'判断INI文件是否存在

If Dir(iniFileName) "" Then

WritePrivateProfileString iniSection, iniKey, vbNullString, iniFileName

End IfEnd SubPublic Sub DelValueINI(iniFileName As String, iniSection As String, iniKey As String)

'该过程可删除INI文件中指定键的值

'iniFileName为INI文件名，iniSection为指定的项，iniKey为指定的键

'判断INI文件是否存在

If Dir(iniFileName) "" Then

WritePrivateProfileString iniSection, iniKey, "", iniFileName

End IfEnd SubPublic Sub DelFileINI(iniFileName As String)

'该过程可删除INI文件

'iniFileName为INI文件名

'判断INI文件是否存在

If Dir(iniFileName) "" Then

Kill iniFileName

End IfEnd Sub'-----------------------------------------------------------

' FUNCTION: StripTerminator

'

' Returns a string without any zero terminator. Typically,

' this was a string returned by a Windows API call.

'去掉用API函数读取的变量的后面的空格

' IN: [strString] - String to remove terminator from

'

' Returns: The value of the string passed in minus any

' terminating zero.

'-----------------------------------------------------------

'

Function StripTerminator(ByVal strString As String) As String

Dim intZeroPos As Integer intZeroPos = InStr(strString, Chr$(0))

If intZeroPos > 0 Then

StripTerminator = Left$(strString, intZeroPos - 1)

Else

StripTerminator = strString

End If

End Function

'模块结束 Private Sub Form_Load()'窗体加载时读入数据text1.text=myReadINI("c:/aaa.ini","值","text1","")text2.text=myReadINI("c:/aaa.ini","值","text2","")End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)'窗体退出时写ini

myWriteINI "c:/aaa.ini", "值", "text1", Text1.Text

myWriteINI "c:/aaa.ini", "值", "text2", Text2.Text

End Sub 为什么审核不通过

百科狗 baikegou.com