首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控
admin
2017-12-14
52
问题
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt中的文本读出并在文本框Textl中显示。输入一个英文字母到文本框Text2中,然后单击“统计”命令按钮,统计该字母(大小写被认为是不同的字母)在文本中出现的次数,统计结果在标签Label3中显示。
给出的窗体文件中已经有了全部控件,如图所示。程序不完整,要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
(1)在单击单选按钮数组事件过程中,首先向文本框Text1中输入一个不超过10的正整数,通过‘Val函数实现字符向数值的转换,然后选择“N的阶乘”或“(N+2)的阶乘”单选按钮,通过Select Case语句和单选按钮数组的Index属性,确定所调用函数的参数,从而调用Function n()过程函数进行计算,将计算结果显示在文本框Text2中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Optionl—Click(Index As Integer) Dim n As Integer n=Val(Text1.Text) Select Case? Case 0 Text2.Text=n(?) Case 1 Text2.Text=n(?) End Select End Sub Public Function n(n As Integer)As Long Dim x As Long x=1 For i=1 To? x=x*i Next ? =x End Function 程序结束 参考答案 第1个?处填入:Index 第2个?处填入:n 第3个?处填入:n+2 第4个?处填入:n 第5个?处填入:n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)通过文件操作和“&”连接符将文件in4..txt中的文本读出并显示在文本框Text1中,在Commandl Click事件过程中,在文本框Text2中输入一个英文字母,然后单击“统计”命令按钮,统计该字母(大小写被认为是不同的字母)在文本中出现的次数,统计结果显示在标签Labe13中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form—Load() Open App.Path&“\in4.txt”For Input As#1 Line Input#1,s Textl.Text=? Close#1 End Sub Private Sub Commandl—Click() Dim n As Integer s=Text1.Text s1=RTrim(Text2.Text) DO p=InStr(?) If p<>0 Then n=n+1 s=Mid(s,p+1) ’Loop While p?0 ’LabeB.Caption=? End Sub 程序结束 参考答案 第1个?处填入:s 第2个?处填入:s,s1 第3个?处填入:<> 第4个?处填入:n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/fgGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsI
函数String(n,"str")的功能是
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimal(4,4),a2(4,4)Fori=1To4Forj=1T
下列表达式中,()的运算结果与其他3个不同。
下列叙述不正确的是()。
数学式子5+(a+b)×2对应的VisualBasic表达式是_____________。
数据流的类型有【】和事务型。
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
以下关于图片框控件的说法中,错误的是
随机试题
某学校组织一次教工接力比赛,共准备了25件奖品分发给获得一、二、三等奖的职工。为设计获得各级奖励的人数,制定两种方案:若一等奖每人发5件,二等奖每人发3件,三等奖每人发2件,刚好发完奖品;若一等奖每人发6件,二等奖每人发3件,三等奖每人发1件,也刚好发完奖
施工成本核算中,是按照规定开支范围对()进行归集。
信贷中台部门负责贷款风险的管理和控制,下列选项中,不属于信贷中台部门的是()。
A公司是一家生产制造型企业,随着业务的迅速发展,企业的经济实力近几年有了很大的提高,为了更好地留住关键员工、调动员工的工作积极性,同时吸引更多高素质的人才进入企业,公司决定在原有基础上大幅度提高员工薪资水平。公司修改了原有的薪酬制度,并对所有职位的薪资按比
旅行社()参加团队旅游的旅游者按照规定投保人身意外伤害保险。
【2013年四川泸州.单选】世界上最早论述教学理论的著作是()。
代币管理制就是用某种东西或标记来替代实物或权利,当期望行为出现时即给予一定数量的“标记”加以强化,期望行为坚持一段时间后再将“标记”按事前编制的激励系统转换成物质奖励。根据上述定义,下列选项不属于代币管理制的是()。
一般预防
Afindinginrecentyearsshowsthatmencannotmanufacturebloodasefficientlyaswomencan.Thismakessurgeryriskierforme
Avarietyofsocialproblemsarecloselylinkedtopoverty.Itiswell【C1】______thatchildrenwhogrowupinpovertyaremoreli
最新回复
(
0
)