下列说法正确的是( )
下列说法不正确的是( )
Private Sub Command1_Click( )
Dim i As Integer, n As Integer
Dim s As Integer ‘s为A类数的个数
Dim t As Integer ‘t为二进制数中 “1”的个数
Dim k As Integer ‘k为二进制数中 “0”的个数
s=0
For=1 To 1000
n=i:t=0:k=0
Do While n>0
If ① Then t = t+1
Else k = k+1
②
Loop
If t > k Then
List1. Additem Str(i)
s=s+1
End If
Next i
Text1.Text=str(s)
End Sub
① ②
下列说法正确的是( )
Function dTOb(x As Integer)As String
Dim s As String
Do While x>0
If x Mod 2=0 Then s="0"Else s="1"
x=x\2
Loop
End Function