第 1 页:试题 |
第 2 页:参考答案 |
三、综合应用题
【考点分析】本题考点有:文本框的Text属性,单选按钮的Name、Caption和Value属性,单选按钮控件数组,For循环语句,If条件判断语句以及内部函数VM()。
【解题思路】单选按钮数组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:Fise为未选中,True为选中,Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0,终值应为3)中逐一检查每个单选按钮是否被选中,用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择,使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮,则将n赋值为0,重新从单选按钮数组的第一个元素开始。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
PrivateSubCommandl_Click()
Dima()AsLong
DimiAsInteger
DimnAsInteger
´Opl.Count是单选按钮数目,这里用的是控件数组
Forl=0ToOpl.Count-l
´判断哪一项被选择,把它后面的数值赋给n,确定n值
IfOpl(i).Value=TrueThen
n=Val(Opl(i).Caption)
ExitFor
EndIf
Next
ReDima(n)´重新申请空间,这里是动态申请
a(1)=1
a(2)=1´数列第一项、第--4值确定
Fori=3Ton
a(i)=a(i-1)+a(i-2)’后一项值是
前两项值之和
Next
Textl.Text=a(n)
EndSub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【易错提示】在定义数组a的时候,要注意定义为长整型Long,可以防止溢出;单选按钮数组的Index属性分别为0,1,2,在编写循环语句的时候要注意循环变量Opl.Count-1。
微信搜索"考试吧"了解更多考试资讯、下载备考资料
相关推荐: