试题 试卷
题型:单选题 题类:常考题 难易度:普通
图中空白处理框①和②处应填入的是( )
收藏 纠错
组卷次数:1次 +选题
For i=1 To 100
For j=i To 100
If j Mod i=0 Then a(j)=a(j)+1
Next j
Next i
Text1. Text=Str(a(30))
数组a各元素的初值为0,执行上述程序段后,文本框Text中输出的内容为( )
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
Dim i As Integer
a(4) = Val(Text1.Text)
For i = 3 To 1 Step -1
a(i) = a(i + 1) / 2
Text2.Text = Str(a(i+2))
End Sub
试题篮