中文引号直接放在字符串里面即可,英文引号用Chr(34)表示,如
Dim phrase As String = "a" & Chr(34) & "b"
Dim strparam As String = "inputJson :{"
strparam += Chr(34) & "fromUser" & Chr(34) & ":" & Chr(34) & "fmps" & Chr(34) & ","
strparam += Chr(34) & "toUser" & Chr(34) & ":" & Chr(34) & "fcps" & Chr(34) & ","
strparam += ""
strparam += ""
输出:
inputJson:{"fromUser":"fmps","toUser":"fcps",