完成下列问题:
在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图4所示。若不选任何“服务”,则显示如图5所示。单击“放弃”按钮,则恢复到图3状态。
程序已经给出但不完整,请在横线处填写正确的内容,以实现上述功能。
要求:考生不得修改窗体文件中已经存在的控件和程序,最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
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
参考答案:[操作步骤]
第1步:打开工程文件sjt3.vbp。
第2步:分析并修改源程序。
第3步:调试、运行并保存程序。
[1]1 [2]Text1.Text [3]Command1.Enabled=True
解析: 本题需完成3个事件过程的修改:一是单击单选按钮时执行Option1_Click过程,修改“成交”按钮为可用,即Command1.Enabled=True;二是单击“成交”按钮执行Command1_Click过程,此过程在图片框中输出Text1中的内容,再根据单选按钮和复选框的选中状态输出其他信息,其中,当复选框的值为1时,表示该复选框被选中,[1]处应填1;三是单击“放弃”按钮时,程序回到初始状态,需要清空文本框的内容,即Text1.Text="",并将所有单选按钮和复选框修改为未选中状态。