将十进制数转化为二进制数的VB程序段如下：DimyAsInteger,sAsString,rAsIntegery=Val(Text1．Text)'输入十进制数s_刷题宝

题干

将十进制数转化为二进制数的 VB 程序段如下：
Dim y As Integer,s As String,r As Integer
y=Val(Text1．Text) '输入十进制数
s= ""
Do While y <> 0

Loop
Text2．Text = s '显示出二进制数
方框中的代码由以下三部分组成：
① s =CStr(r) +s 'CStr(r)是将变量Rr内容转换为字符串（字符串前没有空格）
② y= y\2
③ r= y Mod 2
代码顺序正确的选项是

A．②③①

B．②①③

C．①③②

D．③②①

上一题下一题 0.99难度选择题更新时间:2019-05-07 09:38:15

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

同类题1

输入20个数，按从大到小的顺序打印。
PRIVATE   SUB   FORM----CLICK（   ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR   I= 1 TO 19
FOR J= _______________ TO 20
IF  _____________________
_____________________
A（I）=A（J）
A（J）=T
END   IF
NEXT J
PRINT   A（I）；
____________________________
PRINT   A（I）
END   SUB

同类题2

某Visual Besic 程序如下：
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10

a(i)=i*i

Next i
List1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（）

A．下标越界	B．子程序或函数未定义
C．溢出	D．类型不匹配

同类题3

有如下程序，要使Label1中显示的值是30，划线处应该填(　　)
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
　s＝s＋i
Next i
Label1.Caption＝Str(s)

同类题4

某算法要实现0到100的偶数之和，流程图如图所示。则ißi+2被执行的次数是

同类题5

有如下VB程序段：
s = Text1.Text
t = 0: Sum = 0
For i = 1 To len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
ElseIf c >= "a" And c <= "z" Then
Sum = Sum + t
Else
t = 0
End If
Next i
Text2.Text = Str(Sum)
在文本框Text1中输入“123aBc456”，执行程序段，文本框Text2中显示的内容是（）

相关知识点