急用,每个FOUND后面一行都有错误,请指出怎么改.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/05 20:15:25
急用,每个FOUND后面一行都有错误,请指出怎么改.
'------------------------------------------------
'【程序改错】
'------------------------------------------------
下面的程序段用于删除数组中指定位置的数字,
' 如果位置错误给出提示,否则分别显示删除前后
' 的数组元素
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim a(10) As Integer,x As Integer,i As Integer,k As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
x = InputBox("请输入要删除第几位数字")
If x > 0 And x
'------------------------------------------------
'【程序改错】
'------------------------------------------------
下面的程序段用于删除数组中指定位置的数字,
' 如果位置错误给出提示,否则分别显示删除前后
' 的数组元素
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim a(10) As Integer,x As Integer,i As Integer,k As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
x = InputBox("请输入要删除第几位数字")
If x > 0 And x
a(k) = a(k - 1) 错误
你的数组是从1开始的,而你这个最小为0,会出现溢出错误.况且逻辑也不对,应该是:
'
End
很明显应该是end if
你的数组是从1开始的,而你这个最小为0,会出现溢出错误.况且逻辑也不对,应该是:
'
End
很明显应该是end if
急用,每个FOUND后面一行都有错误,请指出怎么改.
请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!
十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!
下面的每个句子都有一个错误,请指出并改正
每个括号里的算一排,不作为标点,每排都有错,请指出并改正,有一排无错误
下列句子中均有一处错误,请指出来.(不知怎么改,)
修改下这个哪里有语法错误拼写错误都指出来怎么改.i wish i wish nothing can defeat men
改错误(每行可能有一处错误,请指出并改正)有深圳小学英语配套家庭练习册的,
改错.下列每个句子均有一处错误,请指出并改正
下面每个句子均有一处错误,请指出并改正