修改时间:2024-07-12 浏览次数:281 类型:高考模拟
① 新建一个项目
② 分别将素材文件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
试题篮