第3题
下面程序的功能是:将数组a中下标值为偶数的元素从小到大排列,其他元素不变。 Dim a(1 To 10),i,j,k For i=1 To 10 a(i):InputBox("input:") Next i For i;1 To 10 Print a(i) Next i Print For i=2 To 10【 】 For j=i+2 To 10 If【 】Then t=a(i) a(i)=a(j) a(j)=t End If Next j Next i For i=1 To 10 Print a(i) Next i
请帮忙给出正确答案和分析,谢谢!
第4题
下列程序的功能是求336的个位和十位数的值,填空补充程序。 Private Sub Command1 Click() n=1 For i=1 To 6 n=n*33 n=n Mod 100 Next i m=【 】 n=【 】 Print"十位数是”;n;”个位数是”;m End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!