程序已经给出但不完整,请在横线处填写正确的内容,以实现上述功能。 要求:考生不得修改窗体文件中已经存在的控件和程序,最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Private Sub Command1_Click() Dim flag As Boolean flag=False Picture1.Print Label1.Caption, Text1.Text Picture1.Print Frame1.Caption; ":", For k=0 To 3 If Optionl(k).Value=True Then Picture1.Print Optionl(k).Caption End If Next k For k=0 To 2 If Check1(k).Value= (1) Then If Not flag Then Picture1.Print Frame2.Caption; ":", flag=True End If Picture1.Print Check1(k).Caption; ""; End If Next k Picture1.Print End Sub Private Sub Command2_Click() (2) ="" For k=0 To 3 Optionl(k).Value=False Next k For k=0 To 2 Checkl(k).Value=0 Next k Picture1.Cls Command1.Enabled=False End Sub Private Sub Option1_Click(Index As Integer) (3) End Sub