问答题
完成下列问题：
问答题
在考生文件夹下有工程文件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
[*]
[*]
[*]
程序已经给出但不完整，请在横线处填写正确的内容，以实现上述功能。
要求：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
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
第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=""，并将所有单选按钮和复选框修改为未选中状态。
问答题
在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有2个选项(均为数字)。
程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于n的数。如图6所示。若再输入一个更大的整数(例如100)，单击命令按钮，则按上述规律继续追加数字。如图7所示。
[*]
[*]
程序已经给出但不完整，请将其中的注释符去掉，在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim a%, b%, c%, n%
n=Val(Text1.Text)
a=Val( (1) )
b=Val(List1.List(List1.ListCount-1))
c=a+b
Do While c＜n
a= (2)
b=c
List1.AddItem (3)
c=a+b
Loop
End Sub
程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于n的数。如图6所示。若再输入一个更大的整数(例如100)，单击命令按钮，则按上述规律继续追加数字。如图7所示。
[*]
[*]
程序已经给出但不完整，请将其中的注释符去掉，在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim a%, b%, c%, n%
n=Val(Text1.Text)
a=Val( (1) )
b=Val(List1.List(List1.ListCount-1))
c=a+b
Do While c＜n
a= (2)
b=c
List1.AddItem (3)
c=a+b
Loop
End Sub
【正确答案】[操作步骤]
第1步：打开工程文件sjt4.vbp。
第2步：分析并修改源程序。
第3步：调试、运行并保存程序。
[1]List1.List(List1.ListCount-2) [2]b [3]c
第1步：打开工程文件sjt4.vbp。
第2步：分析并修改源程序。
第3步：调试、运行并保存程序。
[1]List1.List(List1.ListCount-2) [2]b [3]c
【答案解析】[解析] 为了实现从列表框现有列表项的基础上继续追加数字，需要先取出列表框最后两个选项。列表框中选项的个数存储在ListCount属性中，由于List属性的下标从0开始，所以最后一个选项为List1.List(List1.ListCount-1)，倒数第二个选项就应该是List1.List(List1.ListCount-2)。取得最后两个选项a和b后就可以计算下一个数c=a+h，若c还在规定的范围内，则c成了最后一个选项，b成了倒数第二个选项。为了循环的连续性，将b赋给a，c赋给b，再次计算c=a+h，以此类推，直到找出所有满足要求的数。