填空题

下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。请在横线处填写适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim i As Integer,tt As Integer
Fori=1 To 5
tt=Sum(i):Print "tt=";tt,
Next i
End Sub
Private Function Sum()

j=j+n
Sum=j
End Function

【参考答案】

ByVal n As Integer；Static j As Integer

<上一题目录下一题>

热门试题

填空题

下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整： Private Sub Command1_Click() Dim x(3,3) For i=1 To 3 For j=1 To 3 If______Then x(i,j)=1 If______Then x(i,j)=-1 Next j Next i For i=1 To 3 For j=1 To 3 Print x(i,j); Next j ______ Next i End Sub

填空题

下面的程序执行时，将把当前目录上的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text= Open . smtext1.txt ______As#1 Do While______ Input #1,inData Text1.Text=Text1.Text & inData Loop Close #1 End Sub

相关试题