程序改错

4.'------------------------------------------------'【程序改错】

'------------------------------------------------

'题目：程序功能根据输入的学习成绩，分别显示优秀'（90分以上），良好（75分以上），及格（60分以上）'不及格四个等级.

'------------------------------------------------optionexplicit

privatesubform_clickcls

dimiasinteger

i=inputbox（\请输入学习成绩\selectcasei

'**********error**********caseis>100，is=form1.widththen'**********error**********label1.left=-label1.widthelse

label1.left=label1.left+100endifendsub

6.'------------------------------------------------'【程序改错】

'------------------------------------------------

'题目：移动数组元素，将数组中某个位置的元素移动到指定位置.

'------------------------------------------------optionexplicit

functionfmove（a%，l1%，l2%）

dimnasinteger，iasinteger，tasinteger'**********error**********n=ubound（a）

ifl2=n+1then

'**********error**********a（n+1）=a（l1）fori=l1tona（i）=a（i+1）nextielse

t=a（l1）a（l1）=a（l2）

'**********error**********a（l2）=tendifendfunction

privatesubform_clickdima%（1to5）dimiasintegerfori=1to5a（i）=inext

fmovea，1，5fori=1to5printa（i）

nextendsub