Dim flag(0 To 4) As Boolean, p As Integer
For i=1 To 4
flag(i)=False
Next i
i=1: flag(0)=True
Do While i <= 4 And flag(i-1)
For j=5 To i+1 Step-1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
flag(i)=True
End If
Next j
i=i+1
Loop
数组元素a(1)到a(5)值依次为“16,4,24,33,77”,程序运行后,flag数组中为True个数及i的值分别是( )
|
原1-7号男生身高 |
171 172 180 174 176 179 178 |
|
筛选排序后序列 |
171 172 174 176 178 179 180 |
|
“造型设计”后序列 |
180 178 174 171 172 176 179 |

图1
身高顺序:男3号〉男6号〉男7号〉男5号〉男4号〉男2号〉男1号

图2
Dim h (1 To n) As Integer
Dim height1(1 To n) As Integer
Dim height2(1 To n) As Integer
Dim n As Integer,i As Integer, j As Integer, num As Integer ,tmp As Integer
Dim sex(1 To n) As String
Private Sub Form_Load()
'n名学生的身高和性别由数据库导出,分别存储在数组h 和sex中,代码略!
End Sub
Private Sub Command1_Click()
b = 0
For i = 1 To n 'n名学生中的男生
If sex(i) = “男” Then ① : height1(num) = h(i)
Next i
For i = 1 To num - 1
For j = num To i + 1 Step -1
If height1(j) < height1(j - 1) Then
tmp = height1(j): height1(j) = height1(j - 1): height1(j - 1) = tmp
End If
Next j
Next i
For i = 1 To num
Text1.Text = Text1.Text + " " + Str(height1(i))
Next i
End Sub
Private Sub Command2_Click()
Dim left, right As Integer, i As Integer, mid As Integer
mid = Int((1 + num) / 2)
left = 0: right = 0
height2(mid) = height1(1)
For i = 1 To (num - 1) \ 2
right = right + 1
height2(mid + right) = height1(2*i)
left = left + 1
②
Next i
If num Mod 2 = 0 Then ③
For i = 1 To num
Text2.Text = Text2.Text + " " + Str(height2(i))
Next i
End Sub
程序中①画线处应填入;
程序中②画线处应填入;
程序中③画线处应填入;

这种对商品的评价属于( )

Private Sub Com_Click()
Dim pv As Single, fv As Single, rate As Single, n As Integer
pv = Val(Te1.Text)
fv = Val(Te2.Text)
rate = Val(Te3.Text) / 100
n = 1
Do While
pv = pv * (1 + rate)
List1.AddItem "第" + Str(n) + "年" + " " + Str(pv) + "元"
n = n + 1
Loop
Te4.Text =
End Sub
请在划线处填入合适的代码
Private Sub Command1_Click()
Dim s As String, k As Integer
k = Val(Text2.Text)
Label3.Caption=“对应的十进制数:”+Str(toD(s, k))
End Sub
Function toD(s As String, k As Integer) As Integer
Dim ans As Integer, x As Integer
ans = 0
For i = 1 To Len(s)
If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then
x = Asc(Mid(s, i, 1))- Asc(“A”)十 10
Else
x = Val(Mid(s, i, 1))
End If
Next i
End Function
图 b