计算机水平vb,2016年计算机二级《VB》基础练习题及答案(14)

本文解析了一个程序中列表框删除特定姓氏项目的问题,指出原有代码的不足,并提出将For循环从List1.ListCount-1到0步长为-1的修改方案,确保所有匹配项被正确删除。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

9[单选题] 窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为com.mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能.

e540248306235a0311001417d2f60385.png

299d212c754576629e814838494e2259.png

bb87487984c6e9026fc3561cfbd997ae.png

在调试时发现.,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦、。刘备”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中,否则没有成绩。最后.程序按原文件名存盘。

de13057e3cf4a26bcd5a3b6659f58844.png

参考解析:

【考点分析】本题考点有:标签的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所示。

59401ad082c55ca523be3ad5d714958e.png

步骤4:关闭程序后,按照题目要求保存工程和窗体。

【易错提示】对于xn(t,i)函数调用的理解,弄清楚两个变量各代表的函数值的意义,正确调用函数。

相关推荐:

"sgmediation.zip" 是一个包含 UCLA(加利福尼亚大学洛杉矶分校)开发的 sgmediation 插件的压缩包。该插件专为统计分析软件 Stata 设计,用于进行中介效应分析。在社会科学、心理学、市场营销等领域,中介效应分析是一种关键的统计方法,它帮助研究人员探究变量之间的因果关系,尤其是中间变量如何影响因变量与自变量之间的关系。Stata 是一款广泛使用的统计分析软件,具备众多命令和用户编写的程序来拓展其功能,sgmediation 插件便是其中之一。它能让用户在 Stata 中轻松开展中介效应分析,无需编写复杂代码。 下载并解压 "sgmediation.zip" 后,需将解压得到的 "sgmediation" 文件移至 Stata 的 ado 目录结构中。ado(ado 目录并非“adolescent data organization”缩写,而是 Stata 的自定义命令存放目录)目录是 Stata 存放自定义命令的地方,应将文件放置于 "ado\base\s" 子目录下。这样,Stata 启动时会自动加载该目录下的所有 ado 文件,使 "sgmediation" 命令在 Stata 命令行中可用。 使用 sgmediation 插件的步骤如下:1. 安装插件:将解压后的 "sgmediation" 文件放入 Stata 的 ado 目录。如果 Stata 安装路径是 C:\Program Files\Stata\ado\base,则需将文件复制到 C:\Program Files\Stata\ado\base\s。2. 启动 Stata:打开 Stata,确保软件已更新至最新版本,以便识别新添加的 ado 文件。3. 加载插件:启动 Stata 后,在命令行输入 ado update sgmediation,以确保插件已加载并更新至最新版本。4
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值