单项选择题

下列程序的功能是：将数据1，1，…，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
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End Sub
A．15
B．16
C．20
D．25
单项选择题
下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 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 Of
相关试题