下列说法正确的是( )
|
模块名:“Main”场景 |
类别序号:2 |
进入方式:由“load”场景单击“播放”按钮进入 |
|
呈现方式: ⒈鱼在舞台的下方移动,文字在左侧 ⒉菊花开始时在舞台上方,慢慢向右移出舞台 ⒊“重播”按钮在舞台右下方,单击“重播”按钮,将从该场景第一帧开始播放。 |
呈现顺序说明: ⒈一开始出现文字和鱼游动的动画,持续到场景结束。 ⒉约第2.5秒时出现“菊花”的动画,时长约2.5 秒。 ⒊最后出现“重播”按钮,并停止播放。 |
|
图a
图b
请回答下列问题:
A.(10,10) B.(550,10) C.(10,440) D.(-550,440)
Private Sub Command1_Click()
Dim x As Integer,Y As Long,st
As String
For x=100 To 1 000
y=x^2
st=x&y ‘将数字x和y合并成不含空格的数字串st
If
Then ‘①
List1. AddItem Str(x)&" "& Str(y)&" "&st
EndIf
Next x
End Sub
Function judge(s As String)As Boolean
Dim a(1 To 100)As String,i As Integer,j As Integer
judge=False
For i=1 To Len(s)
a(i)=Mid(s,i,1)
Next i
For i=1 To Len(s)-1
For j=i+1 To Len(s)
If
Then Exit Function ‘②
Next j
Next i
judge=True
End Function

For i=1 To 9 step 2
b(a(i) Mod 10) = b(a(i) Mod 10)+1
Next i
s =0
For i=0 To 9 step 3
s =s+ b(i)
Next i
数组b各元素初始值为0,数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为( )
Function c(m As Integer, n As Integer) As Long
If n= m Then
c=1
Else
If n=1Then c= m Else c=c(m-1, n-1)*m\n
End If
End Function
Private Sub Command1_Click()
Dim k As Integer, i As Integer, sum As Long
k = Val (Text1. Text): sum= 0
For i= 2 To k
sum=sum+c(k,i)
Next i
Text2. Text = Str (sum)
End Sub
在文本框Text1中输入3,执行该程序段,则文本框Text2中显示的内容是( )