7,759
社区成员
发帖
与我相关
我的任务
分享
If Dir("8.txt") <> "" Then
Dim temp8 As String
temp8 = Val (Text5.Text) * 145636
Open App.Path & "\8.txt" For Output As #8
Print #8, temp8
Close #8
End If
If Dir("8.txt") <> "" Then
Dim temp8 As String
Open App.Path & "\8.txt" For Input As #8
Print #8, cLng(Text5.Text)*145636
'Val (Text5.Text) * 145636 = temp8
Close #8
End If
cStr(cLng(Text5.Text) * 145636) = temp8