应用题
1. 在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口中，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
Dim y As Integer
For i=0 To 2 '循环三个单选按钮
If Option1(i).Value=True Then '当某个按钮被选
y=Val(Option1(i).Caption) '提取按钮名并转换为数值
End If
Next
Call calc(y) '调用子函数
End Sub
Private Sub calc(y As Integer)
ClearList '执行子函数
i=1
x=Val(Text1.Text)+1
Do While i＜=Caption '只需要显示5个数
If x Mod y=0 Then '判断x是否能被y整除
List1.AddItem x '添加满足条件的数至表
i=i+1 '统计
End If
x=x+1 '自加，判断下次循环
Loop
End Sub
Private Sub ClearList() '清空列表框的项目
For k=List1.ListCount-1 To 0 Step-1
List1.RemoveItem k
Next k
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口中，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
Dim y As Integer
For i=0 To 2 '循环三个单选按钮
If Option1(i).Value=True Then '当某个按钮被选
y=Val(Option1(i).Caption) '提取按钮名并转换为数值
End If
Next
Call calc(y) '调用子函数
End Sub
Private Sub calc(y As Integer)
ClearList '执行子函数
i=1
x=Val(Text1.Text)+1
Do While i＜=Caption '只需要显示5个数
If x Mod y=0 Then '判断x是否能被y整除
List1.AddItem x '添加满足条件的数至表
i=i+1 '统计
End If
x=x+1 '自加，判断下次循环
Loop
End Sub
Private Sub ClearList() '清空列表框的项目
For k=List1.ListCount-1 To 0 Step-1
List1.RemoveItem k
Next k
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：列表框的AddItem和RemoveItem方法、列表框的ListCount属性、Do While语句、calc()函数、Val()函数、Mod()函数、If语句、单选按钮数组的Caption属性以及文本框的Text属性。
calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框List1中，首先调用ClearList()函数清空列表框，运用Val()函数使Text1的值由字符转化为数值，Do While语句控制产生整数的个数为5个，通过Mod()函数和If语句判断是否能被所选数整除，并用列表框的AddItem方法，把能被整除的数添入列表框中。在Command1_Click事件过程中，向文本框中输入正整数，并运用Val(Option1(i).Caption)语句提取单选按钮数组中所选的数值，再通过调用calc()函数实现数据的处理过程。
calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框List1中，首先调用ClearList()函数清空列表框，运用Val()函数使Text1的值由字符转化为数值，Do While语句控制产生整数的个数为5个，通过Mod()函数和If语句判断是否能被所选数整除，并用列表框的AddItem方法，把能被整除的数添入列表框中。在Command1_Click事件过程中，向文本框中输入正整数，并运用Val(Option1(i).Caption)语句提取单选按钮数组中所选的数值，再通过调用calc()函数实现数据的处理过程。