
(1)为使程序开始运行时,窗体标题自动更改为“查找第K大的数”, 则可在
(2)请在划线处填入合适代码。
(3)加框处的程序代码有错,应改为
Dim cj(0 To 1000)As Integer,n As Integer
Private Sub Command1_Click()
‘从数据库中读取n个学生的成绩并存储在cj数组中,代码略
End Sub
Private Sub Command2_Click()
Dim b(0 To 100) As Integer
Dim t(0 To 100) As Integer
Dim x as Integer
k = Val(Text1.Text)
For i = 1 To n
b(x) = b(x) + 1
Next i

For i = 99 to 0 step -1
If k <= t(i+1) Then Exit For
Next i
Label1.Caption = "第k大的数为"+
End Sub

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

