[问答题] 完成下列问题：在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则

17 查阅

[问答题] 完成下列问题：

在考生文件夹下有工程文件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&l

参考答案:

[操作步骤] 第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=""，并将所有单选按钮和复选框修改为未选中状态。

计算机考试