For i=1 to 10
b(i)=0
Next i
For i=1 To 5
For j=1 To 10
If b(i)<a(j)Then
b(i)=a(j)
t=j
End If
Next j
a(t)=0
List1．AddI tem Str(b(i))
Next i
其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（ ）
Dim a(1 To 10)As Integer
Dim i As Integer，j As Integer，m As Integer，flag As Boolean
Dim key As Integer，n As Integer，C As Integer，d As Integer
i=1：J=10：m=0：flag=False
key=Val(Text1．Text)
Do While i<=J And Not flag
If key<a(i)Or key>a(j)Then n=-1：Exit Do 未找到退出
If a(i) ＜＞a(j) Then
c=key-a(i)：d=a(j)一a(i)
m=i+Int(c*(j-i)／d)
Else
m=i
End If
If key=a(m)Then flag=True：n=m
If key>a(m)Then i=m+1
If key<a(m)Then j=m-1
Loop
If flag=False Then n=-1
其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（ ）
图a
图b
A ．oct．frm／B ．oct．vbp／C ．oct．vbw／D ．oct．exe，其中属于Windows系统可执行文件的是(单选，填字母)。
Private Sub Command1_Click()
Dim i As Integer，n As Integer，oct As Strin9，dec As Long, flag As Boolean
i=1：dec=0：flag=True
oct= ①
Do While i<=Len(oct)And flag
n=Val(Mid(oct，i，1))
If n>=0 And n<8 Then
dec= ②
Else
Text1．Text=”输入有误!”
③
End If
i=i+1
Loop
Text2．Text=Str(dec)
End Sub
① ②
|
场景：主画面 |
类别序号：2 |
进入方式：由“片头”场景单击“进入“按钮进入 |
|
呈现方式： ⒈ “背景音乐”淡入且本场景动画结束后仍能继续播放。 ⒉ “荷花”在舞台左下角从完全透明逐渐变化到完全可见。 ⒊ “退出”按钮位于舞台右下角，单击该按钮播放“片尾”场景 其他动画略。 |
呈现顺序说明： ⒈ 一开始出现“荷花”和“飘花"并播放背景音乐。 ⒉ 1秒后出现主题人物“李清照"。 ⒊ 2秒后出现“摆动的花枝”和“诗词”。 ⒋ 最后出现“退出”按钮，并停止动画播放。 其他动画略。 |
|
使用Flash软件编辑“李清照．fla”文件的部分界面如图a所示，回答下列问题。
图b
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Dim n As Integer，a(1 To 100)As Integer
Private Sub Command1_Click()
’该段程序用于随机产生n个整数，存储在数组a中，并显示在列表框list1中，代码略
End Sub
Private Sub Command2 Click()
Dim i As Integer，j As Integer，tmp As Integer
List2．Clear
tmp=1
For i=1 To n-1
For j=n To i+1 Step-1
If 
Then ‘①
a(j)=a(j)+a(j-1)
a(j-1)=a(j)-a(j-1)
a(j)=a(j)-a(j-1)
End If
Next j
‘②
Next i
For i=1 To n
List2．AddItem Str(a(i))
Next i
End Sub
① ②
⑴如果只有1人过桥，时间为个人过桥时间。
⑵如果有2人一起过桥，时间以慢的人为准。
⑶如果有3个人a、b、C，耗时Ta<Tb<Tc ， 过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。
⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时Ta<Tb<……<Ty<Tx ， 这时有两种可选方案，选择其中用时少的，直至剩余少于4人。
①最快的1个将最慢的2个分别送过桥。
a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；
②最快的2个将最慢的2个送过桥。
让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。
为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。
Dim n As Integer ‘存放过河人数
Dim t(1 T0 100)As Integer ‘存放每个人单独过桥时间
Private Sub Form_Load()
‘从数据库中读取每个人的过桥时间显示在列表框List1中，并统计总人数n，代码
略
End Sub
Private Sub Command1_Cl ick()
Dim i As Integer，k As Integer，j As Integer，temp As Integer
Dim sum1 As Integer，sum2 As Integer，tsum AS Integer
sum1=0：sum2=0：tsum=0
For i=1 To n-1 ‘对每个人的过桥耗时进行升序排序
k=i
For j=i+1 To n
If Then k=j
Next j
If k<>i Then
temp=t(i)：t(i)=t(k)：t(k)=temp
End If
Next i
i=n
Do While i>3
sum1=2*t(1)+t(i-1)+t(i) ‘方案①
sum2=t(1)+2*t(2)+t(i) ‘方案②
If sum1<sum2 Then
tsum=tsum+sum1
Else
tsum=tsum+sum2
End If
i=
Loop
If i=1 Then ‘剩下1个人
tsum=tsum+t(1)
ElseIf i=2 Then ‘剩下2个人
tsum=tsum+t(2)
Else ‘剩下3个人
tsum=
End If
Text1．Text=Str(tsum)
End Sub
