试题 试卷
题型:综合题 题类:模拟题 难易度:困难
浙江省温州市2016年3月普通高中学业水平信息技术模拟考试试卷
1图
实现上述功能的VB程序如下,请回答下列问题:
Private Sub Command1_Click()
Dim a(20) As Long
Dim i As Integer, j As Integer, s As String List1.Clear
n = Val(Text1.Text)
a(1) = 1
List1.AddItem Str(a(1)) For i = 2 To n
s = ""
For j = Step -1
a(j) = ①
s = s + Str(a(j))
Next j
② Next i
图a
图b
试题篮