任意读入一个十进制整数，将其转化成二进制形式后输出。

Private Sub Form_Click()
Dim x As Long, a(30) As Integer, i As Integer, j As Integer
x = InputBox("Input a long to x:")
If x<0 Then
x = -x
______________(1)
End If
i = 1
Do
a(i) = ______________(2)
i = i + 1
___________________(3)
Loop While x <> 0
For j = i - 1 To 1 Step -1
Print CStr(a(j));
Next j
End Sub

帮忙补全!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

急！！！编写一个C程序：读入十个任意整数，将其存入一个数组中，求出该十个元素中所有素数的和。 将一个任意2位十进制整数转化为二进制整数 C语言 将十进制整数化成任意进制的数 读入一个一位十进制数，显示其对应的四位二进制数 从键盘读入100个二位十进制无符号数，将其按升序排列并显示输出 读入一个整数m（4<m<21）调用函数rand 获得 m个随机整数，将这 m个随机整数从小到大排列 将一个整数n转换成字符串,n的整数不确定,可以显示任意位数的整数(2种方法) 用 Pascal 编写一个程序将十进制整数n转换为二进制数。 写出利用栈将一个十进制整数转化为二进制数的算法 将一个十进制整数转化为十六进制字符串的函数和一个将十六进制转化为十进制的函数，例如：输入162转化为A2