国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'' This example demonstrates how the Input statement can be used to parse and
'' retrieve data from a file.
''此示例演示如何使用輸入語(yǔ)句從文件中分析和檢索數(shù)據(jù)。
Sub doinput( ByRef file As String )
    Dim As Integer i
    Dim As Double f
    Dim As String s
    Open file For Input As #1
    Input #1, s
    Print s
    Input #1, i, f, s
    Print i, f, s
    Close #1
End Sub
'' Create a test data file...
Open "test.dat" For OutPut As #1
Print #1, "abc def"
Print #1, 1234, 5678.901, "xyz zzz"
Close #1
'' Read it in
doinput "test.dat"
Sleep