试题 试卷
题型:填空题 题类:常考题 难易度:普通
上海市金山中学2019-2020学年高一下学期信息技术期中考试试卷 算法与程序设计部分
Private Sub Command1_Click()
Dim s As Integer
Dim n As Integer
Dim i As Integer
n = Val(Text1.Text)
s = 1
For i = 2 To n
s = s * i
Next i
Label1.Caption = Str(n) + "!=" + Str(s)
End Sub
该同学绘制了该程序的流程图,如下图所示:
试题篮