|
BMI指数 |
<18.522.9 |
18.5~23~ |
25~24.9 |
29.9 |
≥30 |
≥40.0 |
|
结果 |
偏瘦 |
正常 |
偏胖 |
肥胖 |
重度肥胖 |
极重度肥胖 |
程序运行时,在文本框Text1中输入体重,在文本框Text2中输入身高,单击”测试”按钮Command1,在标签Label4中显示对应的结果。程序运行界面如下图所示。
实现上述功能的VB程序如下,请回答下列问题:
Private Sub Command1_Click()
Dim h As Single, w As Single, ans As Single, s As String
w = Val(Text1.Text)
h = Val(Text2.Text)
①
If ans< 18.5 Then
s = “偏瘦”
ElseIf ans< 22.9 Then
s = “正常”
ElseIf ans<= 24.9 Then
s = “偏胖”
ElseIf ans<= 29.9 Then
s = “肥胖”
ElseIf ans< 40 Then
s = “重度肥胖”
②
s = “极重度肥胖”
End If
Label4.Caption = s
End Sub
① ②
圆周率π值的计算方法有多种,其中一种近似值计算公式如下:π2/6=1+1/22+1/32+…+1/n2;对于n的不同取值,得到的π值精度不同。 如:
当n=100000时,计算出π=3.14158310432646,
当n=1000000时,计算出π=3.14159169886051。
以下程序是利用上述公式求n=10000000时π近似值的主要程序片段,请你补全代码。
Dim s As Double
Dim pi As Double
s = 0
For i = 1 To 10000000 ‘求公式右边的值s
s = s + 1 / (i * i)
Next i
Pi = Sqr
Print "π="; pi
Dim n As Integer
Dim sum As Integer
Dim i As Integer
Function fx(i As Integer) as Integer
If i = 1 Then
fx = 5
Else
fx = 5 * 2 ^ (i - 1) + fx(i - 1)
End if
End Function
Private Sub Command1_Click()
n = Val(Text1.Text): sum = 0
For i = 1 To n
sum = sum + fx(i)
Next i
Label1.Caption = Str(sum)
End Sub
若在 Text1 中输入4,单击 Command1,则 Label1 中显示的内容为( )
图 a
|
场景名:Main |
类别序号:2 |
进入方式:来自Load场景,通过“Play”按钮进入 |
|
|
呈现方式: ⒈“声音”图层中声音素材为sound.mp3文件 ⒉“小孩”图层中的小孩从左向右移动 ⒊“汽车”图层中的汽车从远到近,由小变大移动 ⒋“重播”按钮位于舞台右下角,单击该按钮返回本场景第1帧开始播放(其他略) |
呈现顺序说明: 动画开始1秒后,小孩出现,声音随之响起,并持续到最后1帧停止播放 (其他略) |
||
使用Flash软件编辑“文明出行.fla”文件的部分界面如图b所示,回答下列问题:
图b
①测试影片时,首先播放的场景是(填场景名)。
②为了使“小孩”图层中的动画符合脚本要求,正确的操作是。
③“汽车”图层关键帧中的对象是由“汽车”元件生成的实例,则该图层第1帧到第48帧的补间类型是(选填:逐帧动画/动画补间/形状补间)。
④根据脚本,“重播”按钮上的动作脚本正确的有(多选,填字母)。
A.on(press)}play(1);}
B.on(release){play(“Main”,1);}
C.on(release){gotoAndPlay(“Main”,1);}
D.on(press){gotoAndPlay(1);}
E.on(release){getURL(“Main”);}