填空题

下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。 Private Sub Form_ click() filename = InputSox (“请输入文件名”) Filecode = Open filename For Output As # Filecode Print filename; “的文件号是”; Filecode Close # Filecode End Sub

【参考答案】

FreeFile
<上一题 目录 下一题>
热门 试题

填空题
下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。Private Sub form_ click()Dim name As StringDim age As IntegerDim sex As Stringname = 张三 : age = 20: sex = Male Open D: temp Code.txt For Append As #1______ #1, name, age, sex______End Sub
单项选择题
当发生Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出______ 。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open C: Check. txt For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub
A．3 4
B．4 5
C．5 3
D．3 3
相关试题