Question

用VB计算圆的面积，怎么将结果输出到一个TXT文本文件中？下面的程序结下来怎么写

dim d as single
d=3.14*d^2/4

Answer 1

就是文本文件读写的问题，添加一个text、label、comammad 即可

Private Sub Command1_Click()
Const pi = 3.1415
Dim s As Single
If Val(Text1) > 0 Then
    s = pi * Val(Text1) ^ 2
    Call bc(Val(Text1), s)
    Shell "notepad " + App.Path + "\面积.txt", vbNormalFocus
Else
    MsgBox "输入的半径要大于0", vbInformation, ""
    Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
    Text1 = ""
    Label1.Caption = ""
    Command1.Caption = "计算面积"
End Sub
Sub bc(a As Single, b As Single)
    Open App.Path + "\面积.txt" For Output As #1
        Print #1, "半径为" + CStr(a) + "的圆面积为：" + CStr(b)
        Label1.Caption = "半径为" + CStr(a) + "的圆面积为：" + CStr(b)
    Close #1
End Sub