n*1并输出于文件中

原创于 2016-04-21 17:07:58 发布 · 276 阅读

CC 4.0 BY-SA版权

本博客介绍了一个使用VBA编写的程序，该程序能够读取文本框中的输入，进行特定的数学运算，并将结果写入到指定路径下的文本文件中。此程序首先解析文本框中的每个字符为数值，然后乘以第二个文本框中的系数，最后逆序地将计算结果存入文件。

Private Sub Command1_Click()
Cls
Dim i As Long
Dim L As Long
Dim r() As Byte
Dim a() As Byte
Dim b As String
Dim c As Byte
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
    b = Mid(Me.Text1.Text, i, 1)
    a(i) = Int(Val(b))
Next i
c = Int(Val(Me.Text2.Text))
Dim d As Byte
Dim t As Byte
ReDim r(L)
For i = L To 1 Step -1
    t = a(i) * c + d
    r(i) = t Mod 10
    d = t \ 10
Next i
Open "D:\123.txt" For Output As #1

If d <> 0 Then
    Print #1, d;
End If
For i = 1 To L
    Print #1, r(i);
Next i
Close #1
End Sub