请给下面程序中的 If I = 0 Then这一句解释一下,
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 03:16:15
请给下面程序中的 If I = 0 Then这一句解释一下,
Const n = 10
Dim data()
Private Sub Form_Load()
Me.AutoRedraw = True
ReDim data(n)
For I = 1 To n
data(I) = 10 * I
Print data(I);
Next
End Sub
Private Sub Command1_Click()
Dim I%,J%,x%
Static m%
Print:Print
x = Val(InputBox("输入插入的数据值"))
m = m + 1
ReDim Preserve data(n + m) '扩大数组长度
For I = n + m - 1 To 1 Step -1
If x >= data(I) Then
I = I + 1 '新数据的插入位置
Exit For
End If
Next
For J = n + m - 1 To I Step -1
data(J + 1) = data(J) '从插入点的位置开始,所有元素挪一个位置
Next
If I = 0 Then
data(I + 1) = x '插入新数据
Else
data(I) = x
End If
For I = 1 To n + m
Print data(I); '显示所有元素
Next
End Sub
Const n = 10
Dim data()
Private Sub Form_Load()
Me.AutoRedraw = True
ReDim data(n)
For I = 1 To n
data(I) = 10 * I
Print data(I);
Next
End Sub
Private Sub Command1_Click()
Dim I%,J%,x%
Static m%
Print:Print
x = Val(InputBox("输入插入的数据值"))
m = m + 1
ReDim Preserve data(n + m) '扩大数组长度
For I = n + m - 1 To 1 Step -1
If x >= data(I) Then
I = I + 1 '新数据的插入位置
Exit For
End If
Next
For J = n + m - 1 To I Step -1
data(J + 1) = data(J) '从插入点的位置开始,所有元素挪一个位置
Next
If I = 0 Then
data(I + 1) = x '插入新数据
Else
data(I) = x
End If
For I = 1 To n + m
Print data(I); '显示所有元素
Next
End Sub
If I = 0 Then
这句的意思是 如果 I的值等于0,那么判断成立,执行判断成立以后的语句
这句的意思是 如果 I的值等于0,那么判断成立,执行判断成立以后的语句
请给下面程序中的 If I = 0 Then这一句解释一下,
急用 下列程序的执行结果为 A=75 IF A>60 then I=1 IFA>70 Then I=2 I=多少 请说明
下面程序表示的函数解析式是,if x>0,then y=2^x+1,else y=x*x+2*x,end if,prin
求解Matlab程序问题,下面程序的 if s1(i,1)>200; l=2;
请解释一下C语言中的 for(--i;i>=0;i--) 的意思.
谁能给解释一下下面程序的解释是什么意思
请高手帮我解释一下下面的matlab程序
请matlab高手解释一下下面程序的意思.
如何解释下面这段C语言程序?特别是if((i=n/10)!=0) f(i)这段话?
程序框图中的i:=0,i:
shell 中的下面这句话是什么意思 if [ "${1:-NULL}" = "A" ]; then fi
判断一个数是否是质数? 其中程序中if i=x then 是何意?