请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Pr
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 17:09:30
![请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Pr](/uploads/image/z/8801526-30-6.jpg?t=%E8%AF%B7%E7%BB%99%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%E4%B8%AD%E7%9A%84+If+I+%3D+0+Then%E8%BF%99%E4%B8%80%E5%8F%A5%E8%A7%A3%E9%87%8A%E4%B8%80%E4%B8%8B%2CConst+n+%3D+10Dim+data%28%29Private+Sub+Form_Load%28%29Me.AutoRedraw+%3D+TrueReDim+data%28n%29For+I+%3D+1+To+ndata%28I%29+%3D+10+%2A+IPrint+data%28I%29%3BNextEnd+SubPrivate+Sub+Command1_Click%28%29Dim+I%25%2CJ%25%2Cx%25Static+m%25Print%3APr)
请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Pr
请给下面程序中的 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
请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Pr
If I = 0 Then
这句的意思是 如果 I的值等于0,那么判断成立,执行判断成立以后的语句