单项选择题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As #1
For i=1 To 8
______
Next i
Close #1
End Sub

A．print #1,i
B．input #1,i
C．print #1
D．input #1
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox( 请输入年份: )) If(year Mod 4=0 ______ year Mod 100＜＞0) ______ (year Mod 400=0) Then Print 您输入的是闰年 Else Print 不是闰年，是普通年份 End If End Sub
A．And And
B．And Or
C．Or Or
D．Or Or
单项选择题
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。
A．6
B．7
C．8
D．9
相关试题