在窗体上画一个命令按钮，名称为command1，然后编写如下程序：
Private Sub Command1_Click()
Dim ct As String
Dim nt As Integer
Open "e:\stud. txt" (13)
Do While True
ct=InputBox("请输入姓名:")
If ct= (14) Then Exit Do
nt=Val(InputBox("请输入总分:"))
Write #1, (15)
Loop
Close #1
End Sub
以上程序的功能是，程序运行后，单击命令按钮，则向e盘根目录下的文件stud. txt中添加记录(保留已有记录)，添加的记录由键盘输入；如果输入“end”，则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。

根据“培养”理论的观点，分析电视传媒对观众产生的传播效果。