小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：PrivateSubCommand1_Click()Dima,i,nAsInteg_刷题宝

题干

小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（）。

A．①a = n Mod 2 ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2 ③ s = Str(a) + s

C．①a = n Mod 2 ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2 ③ s = s +Str(a)

上一题下一题 0.99难度选择题更新时间:2019-11-20 12:46:34

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

同类题1

对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
N=Len(s)
K=0:j=n
For i =" 1" To n/2

Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
①j=j-1
②If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是

同类题2

下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。

A．A^2="B^2+C^2" or B^2="A^2+C^2" and C^2=A^2+B^2

B．A^2="B^2+C^2" and B^2="A^2+C^2" or C^2=A^2+B^2

C．A^2="B^2+C^2" and B^2="A^2+C^2" and C^2=A^2+B^2

D．A^2="B^2+C^2" or B^2="A^2+C^2" or C^2=A^2+B^2

同类题3

下列表达式中值最大的是（）

A．Abs( -5) +Len("ABCDE")

B．val((Mid("SHANG2016HAI",6,2))

C．Int(2*sqr(36) +0.5)/3

D．5^2 Mod 25 \ 2^2

同类题4

Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（）

同类题5

将双精度浮点数变量x的值四舍五入保留三位小数，赋值给双精度浮点数变量y，y=_______________________________

相关知识点