填空题

以下过程用来在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 IntegerM=IIf(x＞y，x，y)End FunctionPrivate Sub command1 Click()Dim a As Integer，b AS Integera=100b=200Print M(a，b) End Sub程序运行后，单击命令按钮，输出结果为 【15】 。
填空题
下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。Private Sub Command1_Click()Dim x AS Integerx=Val(Right (Text1．Text，2))If x Mod 2=0 ThenLabe11．Caption=“偶数”ElseLabe11．Caption=“奇数”End IfText1．SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If 【10】 ThenKeyAscii=0End Sub
相关试题