vb读取文成本文件内容并打印输出.docVIP

读取文本文件内容并打印输出 Private Sub Command1_Click() Dim TextLine As String Open c:\\testfile.txt For Input As #1 Do While Not EOF(1) Line Input #1, TextLine Print TextLine Loop Close #1 End Sub 新建文件并写入文件内容 Private Sub Form_Load() Const ForReading = 1, ForWriting = 2 Dim fso, f Dim SkipLineInFile As String Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.OpenTextFile(c:\\testfile.txt, ForWriting, True) f.Write Hello world! vbCrLf VB Script is fun! Set f = fso.OpenTextFile(c:\\testfile.txt, ForReading) SkipLineInFile = f.readall Debug.Print SkipLineInFile End Sub 冒泡上浮 Private Sub Command1_Click() Dim d(1 To 4) As Integer d(1) = Val(Text1.Text) d(2) = Val(Text2.Text) d(3) = Val(Text3.Text) d(4) = Val(Text4.Text) For i = 1 To 3 For j = 4 To i + 1 Step -1 If d(j) d(j - 1) Then t = d(j) d(j) = d(j - 1) d(j - 1) = t End If Next j Next i For i = 1 To 4 List1.AddItem d(i) Next i End Sub 冒泡下沉 Dim d(1 To 4) As Integer Private Sub Command1_Click() List1.Clear Randomize For i = 1 To 4 d(i) = Int(Rnd * 10) + 10 List1.AddItem d(i) Next i End Sub Private Sub Command2_Click() 下沉算法，从小到大排序 List2.Clear For i = 1 To 3 For j = 1 To 4 - i If d(j) d(j + 1) Then k = d(j) d(j) = d(j + 1) d(j + 1) = k End If Next j Next i For i = 1 To 4 List2.AddItem d(i) Next i End Sub 选择排序 Dim d(1 To 120) As Integer Dim ct As Integer 选择排序 Private Sub Command1_Click() ct = 120 For i = 1 To ct - 1 k = i For j = i + 1 To ct If d(j) d(k) Then k = j Next j If i k Then kt = d(i): d(i) = d(k): d(k) = kt End If Next i For i = 1 To ct List2.AddItem Str(d(i)) Next i ct = 0 List1.AddItem List2.AddItem End Sub 产生递增数 Private Sub Command2_Click() Dim dv As Integer List1.Clear For i = 1 To 120 dv = dv + Fix((Timer() Mod 67 + 13) * Rnd()) + 1 d(i) = dv List1.AddItem d(i) Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 1