设计程序功能是从键盘上输入一个不超过4位的十进制正整数，先把该十进制数的每一位数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。例如输入十进制数359，会得到二进制数0000001101011001。
要求：
从文本框当中输入不超过四位的十进制正整数，如果输错，要求报错，要求清空文本框重新输入。

你不会的是哪一个功能？

我猜测你可能是下面那个要求，处理KeyPress事件应该就可以了

Option Explicit
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim s As String
s = ""
a = Val(Text1.Text)
Do While (a)
i = a Mod 10
s = fun1(i) & s
a = a \ 10
Loop
For i = 1 To 16 - Len(s)
s = "0" & s
Next
Print s
End Sub
Private Sub Form_Load()
Text1.MaxLength = 4
End Sub
Function fun1(a As Integer) As String
Dim i As Integer
Dim s As String
s = ""
Do While (Len(s) < 4)
i = a Mod 2
s = i & s
a = a \ 2
Loop
fun1 = s
End Function

这题目说的很复杂，其实本质就是“二-十进制”节存两位十进制数。
转换很简单。对输入检查，一方面是长度，另一方面是非法字符，都没有别的

你到代码页，选择TextBox控件，然后再在后面的事件选择KeyPress事件，然后再写处理
处理的方法是判断当前输入的字符值是不是在0(48)-9(57)之间，若不是则为非法字符，若是，则检查当前字符的长度是否为4，若是则超出长度，若不是则输入。
处理Change事件也可以，只是你需要清空文本框，而清空文本框则又会触发一次change事件，当然，keydown、keyup事件也可以