Private Sub command1_click()

  Dim X, N As Integer

  im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数

  Randomize Timer '随机数初始化，以时钟为随机数种子

  For N = 1 To 50

      X = {#blank#}1{#/blank#}+ int(Rnd * 40) '随机产生 50 个 60~100 的随机数

      If X Mod 6 = 2 Then

        List1.AddItem Str(X)

        {#blank#}2{#/blank#}

      End If

    Next N

  Label1.Caption=str（count）

End Sub

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

 Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①      

 r=x Mod 2

s=Str(r)+s

x=②   

 Loop

 Text2.text=s

End Sub