首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控件,但
在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控件,但
admin
2020-08-10
33
问题
在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
在单击单选按钮数组事件过程中,首先向文本框Text1中输入一个不超过10的正整数,通过Val函数实现字符向数值的转换,然后选择“N的阶乘”或“(N+2)的阶乘”单选按钮,通过Select Case语句和单选按钮数组的Index属性,确定所调用函数的参数,从而调用Function fl( )过程函数进行计算,将计算结果显示在文本框Text2中。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Option1_Click(Index As Integer) Dim nAsInteger n=val(Text1.Text) ‘Select Case? Case 0 ‘Text2.Text=f1(?) Case 1 ‘Text2.Text=f1(?) End Select End Sub Public Function f1(n As Integer)As Long Dim xAsLong x=1 For i=1 To ? x=x*i Next ‘?=x End Funetion 程序结束 第1个?处填入:Index 第2个?处填入:n 第3个?处填入:n+2 第4个?处填入:n 第5个?处填入:n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/klHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在软件设计中,不属于过程设计工具的是
下列叙述中正确的是
以下叙述中错误的是
窗体上有1个名称为Command1的命令按钮,事件过程如下:PfivateSubCommand1_Click()DimnumAsInteger.xAsIntegernum=Val(InputBox("请输入一个正
设窗体名称为frmTest,为了在程序代码中将窗体的标题改为“等级考试”,其代码应该是()。
以下关于控件的叙述中,正确的是
以下关于事件、事件驱动的叙述中,错误的是
以下关于菜单的叙述中,错误的是
产生100以内(不含100)2位随机整数的VisualBasic表达式是
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
随机试题
下列各选项中,表示第二个字母是W、且扩展名为SYS的所有文件的表示是()。
下列表述中,不正确的是()。
税务机关核定税额有哪几种方法?
根据运输条款的不同,港站经营人的委托人可能是国际多式联运经营人、区段承运人、货运代理、货主等。它与国际多式联运营人存在直接的合同关系。
协会对违反有关法律、法规、规章及中国证监会有关规定或者本准则的期货从业人员,根据情节轻重,给予警告、公开通报批评纪律处分,暂停期货从业人员资格6个月至12个月,( )。
仲裁协议对仲裁事项没有约定或约定不明确的,当事人可以补充协议;达不成补充协议的,仲裁协议无效。()
有效顾客反应系统是由配送商客户及供应商共同组成企业联盟,以有效反应顾客的需要,系属一个用户趋动的系统,达到顾客满意度最高及最小物流成本目标。()
【2016河南郑州】贯彻正面教育与纪律约束相结合原则的基本要求有哪些?
在我国的法律规定和法律实践中,以下哪些属于免责的条件()
Inthefollowingtext,somesentenceshavebeenremoved.ForQuestions41-45,choosethemostsuitableonefromthelist(A、B、C、
最新回复
(
0
)