[0，500]范围的十进制数转八进制的VB程序段如下：n=Val(Textl.Text)a(1)=0：a(2)=0：a(3)=0Fori=1Tonj=3：a(j_刷题宝

题干

[0，500]范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

上一题下一题 0.99难度选择题更新时间:2019-08-11 04:23:54

答案(点此获取答案解析）

同类题1

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

同类题2

清空文本框TEXT1,TEXT2,LABEL1中的内容
PRIVATE SUB FORMCLICK（）
________3
________4
________5
END SUB

同类题3

若执行时输入18，以下流程图描述的算法执行结果是（）

同类题4

下列VB表达式中的值必定为一个两位正奇数的是

A．Int(Rnd()*90+11)

B．Int(Rnd()*45+5)*2+1

C．Int(Rnd()*88+10)+1

D．Int(Rnd()*90+11)*2+1

同类题5

设a=" -" 8,b=6,下列运行结果中，值最大的是（）

B．sqr(a^2+b^2)

相关知识点