c=b:
b=t
②
Text2.Text=Str(max)
EndSub
补全空缺的代码,实现题意的功能:
①
②
(3)当在Text1中输入“51234”时,对应的Text2中会显示。
15.舒展同学用photoshop制作了一幅图(如图1),再导入到名为“江源风景”的Flash动画文件中,其中main场景的制作界面如图2所示。
(1)要将图1中的房子和山的图像一起放大相同的倍数,可以进行的操作是。
(2)如图2,在不改变场景中其他实例播放效果的前提下,若使main场景中的小鸟实例运动速度提高一倍左右,舒展可进行的操作有。
(多选,填字母:
A.将小鸟图层第15帧移至第38帧;B.将帧频修改为24fps;C.在小鸟图层第38帧插入动作脚本gotoAndStop(80);D.删去小鸟图层第35帧至第68帧)
(3)“main”场景中背景(填:
是/不是)元件,且其元件类型是(若不是则不填)。
(4)在动画播放时,按钮一闪而过,为了使其一直显示在屏幕上,可进行的操作为。
(5)测试动画时,按下“播放”按钮后,则船开始驶入画面,应在(填图层名)图层的第1帧插入的动作命令是。
16.【加试题】王洁同学用VB编写计算20位以内2个正整数相减程序。
程序功能如下:
在文本框Text1中输入被减数,在文本框Text2中输入减数,单击“计算”按钮Comnand1,将相减的结果输出到文本框Text3中。
运行界面如第16题图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
PrivateSubCommand1_Click()
Dimc(1To50)AsInteger
DimjieweiAsInteger'存储向高位借位
DimadAsInteger,bdAsInteger'存储被减数和减数的每一位值
DimeAsInteger,alenAsInteger,blenAsInteger
DimaAsString,bAsString,sAsString
a=Text1.Text:
b=Text2.Text
'将大数存储在a中
IfLen(a)s=a:
a=b:
b=s
ElseIfLen(a)=Len(b)Then
ad=Val(Mid(a,1,1))
bd=Val(Mid(b,1,1))
Ifads=a:
a=b:
b=s
EndIf
EndIf
alen=Len(a):
blen=Len(b)
jiewei=0
Fori=1Toalen
Ifi<=blenThen
ad=Val(Mid(a,alen-i+1,1))
bd=Val(Mid(b,blen-i+1,1))
e=ad+10-bd-1+jiewei
Else
ad=Mid(a,alen-i+1,1)
e=ad+10+jiewei-1
EndIf
c(i)=e
jiewei=e\10
Nexti
Ifc(alen)<>0Thens=Str(c(alen))
Fori=alen-1To1Step-1
s=s+CStr(c(i))
Nexti
Text3.Text=