修改时间:2024-07-31 浏览次数:94 类型:月考试卷
图 1
图 4
图 a
图 b
“我们在最„”图层实现的是从文字“我们在最危险的地方”变化为文字“与时间赛跑”的动画效 果,那么需要设置的补间动画类型应该是(选填字母:A .逐帧动画/B .形状补间/C .动画补间)。
A.on(release){ fscommand("stop");}
B. fscommand("quit")
C. on(release){ fscommand("quit");}
D. Fscommand("stop");
Private Sub Command1_Click()
Dim msg As String c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text msg = msg + "/" '标记字符串结束符
tmp = "" :s = "" : flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If Then
flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ","
tmp = ""
End If
Next i
Text2.Text = s
End Sub
Dim a(1 to 10) As Integer ‘存储原始数据
Dim b(1 to 10)As Integer ‘存放名次
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
For i=1 To 10 n=0
For j=1 To 10
If Then
Next j
Next i
b(i)= n
For i= 1 to 10
List2.Additem str(a(i))&“ ”&
Next i
End Sub
Private Sub Form_Load()
‘随机产生 10 个[60,100]之间的随机数,并显示在 List1 中,代码略。
End Sub
试题篮