vb输出文本 vb输出文本框

vb数组怎么输出成文本类数据

如下:Private Sub Output_Click()Dim filePath As StringDim fileNo As IntegerDim i As IntegerOn Error GoTo err1With CommonDialog1.DialogTitle = "请输入文件名".Filter = "文本文档(.txt)|.txt".InitDir = App.Path.CancelError = True.FileName = "".Flags = .Flags Or cdlOFNOverwritePrompt.ShowSefilePath = .FileNameEnd WithfileNo = FreeFileOpen filePath For Output As #fileNoFor i = 1 To 6Print #fileNo, a(i - 1) '至于你的什么变化我没看明白,变化自己写吧,输出思路是这样的

vb输出文本 vb输出文本框

vb6.0如何控制文本输出

一、窗体输出数据定位：

Print

数据;数据，

'注释：分号数据和数据紧密连接，逗号数据和数据间隔连接

Print

'注释：换行

二、文本框输出数据定位：

Text1.Text

=数据

&"

"&

数据

&vbCrLf

'注释：用空格定位位置，用“vbCrLf”换行

三、标签输出数据定位：

同文本框

vb编写程序将一段文字逆序输出

Private Function NX(ByVal strInput As String) As String

Dim i As Integer

For i = Len(strInput) To 1 Step -1

NX = NX & Mid(strInput, i, 1)

Next

End Function

编写以上函数过程，放在窗体模块开始部分，如果放在标准模块内以使整个应用程序都可调用，则将Private改为Public。

假如要将Text1内容逆序显示在Text2上，调用：

Text2.Text = NX(Text1.Text)

dim s as string

dim i as integer

s=“qwertyuiop”

for i = len (s ) to 1 step -1

print mid(s,i ,1);

next

怎么在vb中实现文本框输出内容为+a/-b用什么命令，谢谢

Dim a As Single

Dim b As Single

a = 0.238

b = 3.14

Text1.Text = "+" & CStr(a) & "/-" & CStr(b)

vb怎么输出一个txt文件

Private Sub Command1_Click()

Dim ff() As String, i As Long

On Error Resume Next

ff = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(ff)

If Dir(App.Path & "\" & ff(i) & ".txt") = "" Then

Open App.Path & "\" & ff(i) & ".txt" For Output As #1

Print #1, ff(i)

Close #1

End If

Next

MsgBox "文件输出完毕！"

End Sub

Private Sub Form_Load()

Text1.OLEDropMode = 1

End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim ff

Text1.Text = ""

For Each ff In Data.Files

Open ff For Binary As #1

Text1.Text = Text1.Text & Input(LOF(1), #1)

Close #1

Next

End Sub

以上程序生成的txt文件放在程序所在文件夹，由于没有说明文件内容是什么，就用文件标题作为内容了。另外Text1的MulitLine属性一定要设为True，否则无法换行。此外还要注意文件名的命名规则，即文本框中的内容一定要是适合作为文件名的（比方说不能含有冒号:）。