Question

在vb中怎么给变量加个双引号

Dim a AS String
a="测试"
MsgBox a, vbExclamation
提示框显示时怎么显示带有双引号的测试
假如a是从数据库中读取的内容，怎么让提示框显示时怎么显示带有双引号

Answer 1

vb要给变量内容添加双引号需要使用转义，VB中双引号使用两个双引号转义世厅耐，测试代码如下：

Private Sub Command1_Click()
  Dim s As String
  s = "测搜春试字符串测试转义伏碧("")"
  MsgBox s
End Sub

效果如下：

Answer 2

假设伍饥a为从数据库读取的某一字符型字段变量
Dim a As String
a=变量
a = Chr(34) & a & Chr(34)

MsgBox a, vbExclamation
用 Chr(34) 代表引号（”迟橘仿）逻辑清晰 语句易读 操控码纤性好

Answer 3

a = """测试"""
这样就可以了

追问

如果a是从数据库中读取的内容，怎么让提示框显示时怎么显示带有双引号

追答

那就这样写
a = "测试"
a = """" & a & """"
楼下的
a = Chr(34) & a & Chr(34)
也可以用
如果是中文的引号就用
a = Chr(-24144) & a & Chr(-24143)
ascii不一样的Chr是将acsii转为对应的字符.
中文之所以会是负的.是因为ascii本身是没有收录中文的.所以vb使用Unicode码进行了转换.所以中文的字符都是负的开始的.

Answer 4

用 转义符 \"
或者直接用全角的""

追问

怎么转，请具体写出例子,谢谢

追答