填空题

以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。
Sub fun(w，x，n)
Dim i，p
p=0
w(n)=x
Do While x＞w(p)
【11】
Loop
For i=n to p+1 Step-1
w(i)= 【12】
Next i
w(p)=x
n=n+1
Sub End

【参考答案】

[11]p＝p+1 [12]w(i-1)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer，y As Integer) As Integer M=IIf(x＞y，x，y) End Function Private Sub command1 Click() Dim a As Integer，b AS Integer a=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 【15】 。
填空题
下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then Labe11．Caption=“偶数” Else Labe11．Caption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 【10】 ThenKeyAscii=0 End Sub
相关试题