编写程序填空题时，可以遵循以下步骤和技巧：
仔细阅读题目
理解题意，确定需要填写的内容。
根据题目要求，确定填写的形式和格式。
分析已知条件和规律
确定答案或填空内容，注意考虑细节和特殊情况。
检查填写的内容
确保填写的内容符合要求，无错误或疏漏。
注意程序结构
阅读程序时不要断开，要连贯地看整道题的程序，联系前后语句。
注意程序中的对称结构、Sub.Function、数组等元素的使用情况。
练习和修改
多看别人的程序例子，尝试理解并修改程序，以加深理解。
填写答案
在程序的下划线处填入正确的内容，并把下划线删除，使程序能够得出正确的结果。
注意答案应简洁明了，并尽量使用专业术语。
检查格式和题号
认真填写答案，字迹要工整、清楚，格式要正确。
在答题卡上填写答案时，一定要注意题目的序号，确保位置正确。
示例1：字符串反转函数
```vb
function invert（s as string） as string
dim k, slen as integer
newstr = ""
for k = slen to 1 step -1
newstr = newstr + Mid（s, k, 1）
next k
invert = newstr
end function
```
在这个示例中，需要填写的内容是 `Mid（s, k, 1）`，以实现字符串的反转。
示例2：判断素数
```vb
Private sub command1_click（）
Dim k, n as integer
N = Val（InputBox（"请输入正整数n"））
For k = 2 to Int（Sqr（n））
If n Mod k = 0 Then
Exit For
End If
Next k
If n Mod k <> 0 Then
Print str（n） + "是素数"
Else
Print str（n） + "不是素数"
End If
End sub
```
在这个示例中，需要填写的内容是 `If n Mod k = 0 Then`，以判断一个数是否为素数。
示例3：文件操作
```vb
Private sub drive1_change（）
' 当盘驱动器列表框drive1的当前盘符发生改变时，目录列表框dir1显示相应驱动器的目录结构
End sub
Private sub dir1_change（）
' 当双击目录列表框的某个项目时，文件列表框file1显示该项目对应文件夹中的文件
End sub
```
在这个示例中，需要填写的内容是实现目录和文件列表框的更新逻辑，具体实现可以根据实际需求来编写。
通过以上步骤和技巧，可以有效地完成程序填空题的编写和解答。