① 新建一个项目
② 分别将素材文件flower.jpg及meadow.mpg导入到故事板的视频轨中
③ 添加字幕“共度好时光”，如下图所示：
④ 创建视频文件，以happy.mpg为文件名保存
当播放happy.mpg文件时，下列描述正确的是（ ）
Private Sub Command1Click()
Dim Year As Integer
①
If (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then
Text2.Text = "是闰年"
Else
Text2.Text = "不是闰年"
End If
End Sub
为实现上述功能， 程序①加框处应填写为
图1
①当前播放整个音频文件时间需秒，其存储容量约为MB(结果保留两位小数)。
②在图1状态下，若仅保留选中部分的音频文件，可以直接使用工具栏中的按钮命令。
模块名：“片尾”场景 | 类别序号：7 | 进入方式：由“主界面”场景单击“退出”按钮进入 |
呈现方式： 1.“片尾文字”从舞台正下方缓缓移动到舞台中间位置。 2.“关闭动画”按钮位于舞台的右下方，单击按钮关闭动画播放。 | 呈现顺序说明： 1.一开始停止所有的音乐，然后播放“高山流水”音乐。出现“片尾”文字。 2.最后出现“关闭动画”按钮，并停止播放。 | |
图2
回答下列问题：
①“片尾”场景共有图层数为个；“按钮”图层的第30帧中放有一个“关闭动画”按钮，则测试该场景时，“按钮”图层中的按钮是否可见？（填：可见/不可见）。
②根据第图2 ，利用“片尾文字”元件在“文字”图层制作动画，其使用的补间动画类型是：。
③根据脚本要求，“片尾”场景中“关闭动画”按钮应添加的动作命令是：。
Private Sub Command1Click() Dim y As Integer '用于存储输入的十进制自然数 Dim s As String '用于存储转换后的结果 Dim r As Integer n = Val(Text1.Text) s = "" Do While n <> 0 r = ① '采用除八取余法 s = Str(r) + s '将余数添加到结果s中 n = n \ 8 Loop Label1.caption=s End Sub |
请根据题意将程序补充完整。
Dim ID（ ） As String '用于存放客户卡号
Dim total（ ） As Long '用于存放积分数
Dim sc As Long 'VIP客户人数
Dim jf As Long '积分数
Private Sub Command1Click（ ）
Dim k As String '客户卡号
Dim q As Long '代金券额度
Dim i As Long
k = Text1.Text
For i = 1 To sc ’顺序查找
If ID（i） = k Then
jf = total（i）
cash（jf） = q ’ ①
Exit For
End If
’ ②
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >= 2000 And jf <= 20000 Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <= 50000 Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <= 100000 Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <= 150000 Then
Cash = jf\2000*13
ElseIf jf > 150000 Then
Cash = jf\2000*14
End If
End Function
Private Sub FormLoad（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score FROM Integral"
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc = sc + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
