执行该流程图,输入128,该流程图执行结束后,则下列表述正确的是( )
例如:依次输入以下区间:[2 5],[4 7],[1 4],[5 9],[4 5],[2 4],数轴如下:
坐标点“4”覆盖了[2 5],[4 7],[1 4],[4 5],[2 4]共5个区间,坐标点“9”覆盖了[5 9]区间,所以覆盖这6个区间所需的坐标点数为2个。
程序运行界面如图所示。
实现上述功能的VB代码如下:
Dim n As Integer
Dim a(1 To 100) As Integer
Private Sub Input_Click()
'输入n个正整数区间,依次存放到数组
'a(1)到a(2*n)中,并在List1中显示
'代码略
End Sub
Private Sub Count_Click()
Dim right As Integer, t As Integer, k As Integer
Dim tmp As Integer, i As Integer, ans As Integer
‘改错
ans = 1: t = 3
Do While t < 2 * n
If ① Then
If a(t + 1) < right Then right = a(t + 1)
Else
ans = ans + 1
right = a(t + 1)
End If
②
Loop
Text3.Text = Str(ans)
End Sub
请回答下列问题:
① ②
Private Sub Command1_Click( )
Dim a As Integer,s As String
Dim n As Integer,t As Integer,v As Integer
n=Val(Text1.Text)
t=0
s=""
Do While n>0
a=n Mod 2
n=n\2
t= ①
s=Str(a)+s
Loop
v=t Mod 2
Text2.Text=s
Label3.Caption="校验位值:"+ ②
End Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。
图a
小明同学使用VB编写了一个最终得分处理程序,对上述n个成员按最终得分进行降序排序,并计算出最终得分的中位数(中位数:把所有观察值排序后,正中间的一个即为中位数。如果观察值有偶数个,通常取最中间的两个数值的平均数作为中位数)。程序运行界面如图b所示:
图b
Const n = 11
Dim a(1 To 2 * n) As Single
Private Sub Form_Load()
'读取初始数据,存储在数组a,并显示在列表框 List1 中。代码略
End Sub
Private Sub Cmd_sort_Click()
Dim i As Integer, j As Integer, shift As Integer Dim t As Single, zws As Single
i = 2
Do While
shift = n
For j =
If a(2 * j) * a(2 * j - 1) > a(2 * j - 2) * a(2 * j - 3) Then
t = a(2 * j): a(2 * j) = a(2 * j - 2): a(2 * j - 2) = t
t = a(2 * j - 1): a(2 * j -1) = a(2 * j - 3): a(2 * j - 3) = t
End If
Next j
i = shift
Loop
If n Mod 2 = 1 Then zws = a(n) * a(n + 1)
Else
zws = () / 2
End If
'在列表框 List1 中输出处理后数据的排序结果,代码略Label1.Caption = "最终得分的中位数是:" + Str(zws)
End Sub
def exchange(a,b):
a,b=b,a
return(a,b)
x=10
y=20
x,y=exchange(x,y)
print(x,y)
s=0
For i=1 To 2
For j=6 To 1 Step-2.
s=s+1
Nextj
Next i
|
①某算法的部分流程图如下图所示,执行这部分流程后,变量Min的值是。 | ②某算法的部分流程图如下图所示,执行这部分流程后。变量x的值是,变量y的值是。 |
