下面程序的功能是:将数组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
第1题
下列程序的功能是求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
请帮忙给出正确答案和分析,谢谢!
第2题
下列程序的功能是:把一维数组a的元素,每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer,b(5,5)As Integer For i=1 To【 】 a(i)=Int(Rnd*25) Print a(i); Next i Print For i=1 To 5 For i=1 To 5 b(i,j)=【 】 Print b(i,j); Next j Print Next i End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
有如下程序: Private Sub command1_Click() a=1:b=1 Print"a=";a;",b=";b Call mult((a),b) Print "a=";a;",b=";b 语句 End Sub Sub mult(x,y) K=2 * k y=3 * k Print "x=";x;",y=";y End Sub 运行后,标有“语句”的Print语句的输出结果是【 】。
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!