9[单选题] 窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为com.mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能.
在调试时发现.,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦、。刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For K =0T0 Iist.ListCount一1改为( )。
A.For k=List1.ListCount-1 To 0 Step-1
B.For k=0 To List1.ListCount
C.For k=1 To List1.ListCount-1
D.For k=1 To List1.ListCount
参考答案:A
参考解析:错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从Listl.ListCout一1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
10[简答题] 在考生文件夹下有一个工程文件sjr4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:z=(x+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N其中N和X的值通过键盘分别输入到文本框Textl、Text2中。之后如果单击标题为“计算”、名称为Commandl的命令按钮,则计算表达式的值2,并将计算结果显示在名称为Labell的标签中。
在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至少运行一次,按照下图输入数据,使X=10,N=5,单击“计算”按钮,计算z的值,并将结果显示在标签Labell中,否则没有成绩。最后.程序按原文件名存盘。
参考解析:
【考点分析】本题考点有:标签的Caption属性、Function过程、Val()函数、Call语句、Sub()函数、文件操作(Open、Close、Output)、ApP.Path相对路径以及For循环语句。
【解题思路】通过For循环语句实现xn()的幂运算;Click事件过程中通过Val()函数实现字符类型向数值型的转换,通过循环语句及调用xn()函数,获得函数返回值,实现表达式的运算结果;运用Call语句调用SaveResuh函数对结果进行保存,涉及文件的Open、Cbse和Output操作,最后将结果保存在文件夹下的out,*.dat文件中。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:分析并编写程序代码。
参考答案
Private Function xn(a As Single,m As Integer)
Dim i As Integer
tmp=1
For i=1 TO m
tmp=__tmp*a________´求ai的结果
Next
xn=_____tmp_____´返回计算结果
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim t As Single
Dim S,X As Single
n=Val(Text1.Text)’将数字字符转换为数值
x=Val(Text2.Text)'读取n.xm值
z=0
For i=2 To n
t=x+i
z=z+__________调用xn函数求ti
Next
Label1.Caption=__________´将结果显示在Labell
Call SaveReSult
End Sub
Private Sub SaveReSult()
Open App.Path&"\out4.dat"For Output
As#1
Print #1,Labell1.Caption
Close #1
End Sub
步骤3:按照题目要求调试并运行程序,如图3.15所示。
步骤4:关闭程序后,按照题目要求保存工程和窗体。
【易错提示】对于xn(t,i)函数调用的理解,弄清楚两个变量各代表的函数值的意义,正确调用函数。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |