vb用open导出数据时怎么改写utf8编码

在VB中导出数据时，可以使用Open对数或其进慎毕档行编码宽乱转换，将源文件的编码转换为utf8编码，具体实现示例如下： Open "filename" for Output As #1 Print #1, "字段1,字段2,..." Print #1, UCase("UTF-8") Close #1

Private Sub Command1_Click()

Dim n%, s&

n = Val(Text1)

If n <1 Or n >20 Then

Text1 = ""穗卜

Text2 = ""

MsgBox "请重新输入n值！猜仔穗"

Else

For i = 1 To n

For j = 1 To i

s = s + j

Next j

Next i

Text2 = s

End If

End Sub

Private Sub Form_Load()

Text1 = "戚态"

Text2 = ""

End Sub

---