第一章 数据与信息 知识点题库

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

① ②