修改时间:2024-07-13 浏览次数:113 类型:期末考试
Dim i As Integer
Dim c As String, s As String, t As String
s = "2021 PYthon": t = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
t = t + c
ElseIf c >= "0" And c <= "9" Then
t = c + t
End If
Next i
Text1.Text = t
执行该程序段后,文本框Text1中显示的内容是( )
图a
请回答下列问题:
图b
Private Sub Comd1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim ch As String, s As String, ss As String
s = Text1.Text
n = 0: ss = ""
i = 1
Do While i <= Len(s)
If ch >= "0" And ch <= "9" Then
Else
For j = 1 To n
ss = ss + ch
Next j
n = 0
End If
Loop
Text2.Text = ss
End Sub
场景名:main |
类别序号:2 |
进入方式:来自“Load”场景,通过“播放”按钮进入 |
||
呈现方式: ⒈“松”从舞台左侧淡入至舞台左下方。 ⒉“梅”在舞台右上方从完全透明到完全显示到完全显示。 ⒊“详情”和“退出”按钮位于舞台右下角,单击“详情”按钮停止声音播放并在浏览中打开同一文件夹下的文件“xq.htm”。 ⒋其他动画略。 |
呈现顺序说明: ⒈开始出现背景图片、石头、雪和“松”的动画,再出现“竹”和“文字”动画。 ⒉第4秒时出现“梅”动画,动画持续时长2秒。 ⒊最后出现“详情”和“退出”按钮,并停止场景播放,背景音乐不停止。 |
|||
测试场景,当动画停留在场景结束,发现雪花还在漫天飞舞,可知“雪”图层添加的雪花元件实例类型为。
试题篮