图 a
图 b
Private Sub Command1_Click()
Dims As Integer,n As Integer
Dim a As Integer,b As Integer,c As Integer
n=0
s=102
List1.Clear
Do Whiles<=999
a= ①
b=s\10 Mod 10
c=s Mod 10
If ② Then
List1.Addltem Str(s)
③
End If
s=s+3
Loop
Label1.Caption="共有"+Str(n)+"个"
End Sub
画线处应填入的代码为:①;②;③。
Private Sub Command1_Click()
Const x=“转换成八进制数为”
Dim y As Integer ‘用于存储输入的十进制自然数
Dim s As String ‘用于存储转换后的结果
Dim r As Integer
y=Val(Text1.Text)
s=“”
Do While y<>0 ‘采用除八取余法
r=y Mod 8
s=Str(r)+s
y=y\8
Loop
Label1.Caption=Text1.Text+x
Text2.Text=s
End Sub
单击“开始”按钮Command1后,标签Label1中显示的内容是,文本框Text2中显示的内容是。
i=1: j=6: n=0: f=False
key=val(Text1.Text)
Do while i<=j and f=False
n=n+1
m=(i+j)\2
If key=d(m) then f=True
If key<d(m) then j=m-1 Else i=m+1
Loop
数组元素d(1)到d(6)的值依次为“13,18,25,30,35,59”。文本框Text1中输入33后运行该程序,运行结束后下列说法不正确的是( )
1)原码就是二进制定点表示法,即最高位为符号位,0表示正,1表示负,其余位表示数值的大小;
2)反码表示法规定:正数的反码与其原码相同,负数的反码是对其原码逐位取反,但符号位除外,如二进制原码10010,其反码对其原码逐位取反,但符号位除外,如二进制原码10010,其反码为11101(注:在10010中,左边的1为符号码,故为负);
3)补码表示法规定:正数的补码与其原码相同;负数的补码是在其反码的末位加1,符号位除外。
根据以上运算规则,二进制有符号数100011的补码的十进制表示是( )