首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控
admin
2020-02-27
32
问题
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt中的文本读出并在文本框Text1中显示。输入一个英文字母到文本框Text2中,然后单击“统计”命令按钮,统计该字母(大小写被认为是不同的字母)在文本中出现的次数,统计结果在标签Label3中显示。
给出的窗体文件中已经有了全部控件,如图所示。程序不完整,要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
(1)步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Option1_Click(Index As Integer) Dim n As Integer 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 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)步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Open App.Path&"\in4.txt"For Input As #1 Line Input #1.s ’Text1.Text=? Close #1 End Sub Private Sub Command l_Click() Dim n As integer s=Text1.Text s1=RTrim(17ext2.Text) Do ’p=InStr(?) If p<>0 Then n=n+1 s=Mid(s,p+1) ’Loop While p?0 ’Label3.Caption=? End Sub 程序结束 参考答案 第1个?处填入:s 第2个?处填入:s,s1 第3个?处填入:<> 第4个?处填入:n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)在单击单选按钮数组事件过程中,首先向文本框Text1中输入一个不超过10的正整数,通过Val函数实现字符向数值的转换,然后选择“N的阶乘”或“(N+2)的阶乘”单选按钮,通过Select Case语句和单选按钮数组的Index属性,确定所调用函数的参数,从而调用Function f1()过程函数进行计算,将计算结果显示在文本框Text2中。
(2)通过文件操作和“&”连接符将文件in4.txt中的文本读出并显示在文本框Text1中,在Command1 Click事件过程中,在文本框Text2中输入一个英文字母,然后单击“统计”命令按钮,统计该字母(大小写被认为是不同的字母)在文本中出现的次数,统计结果显示在标签LabeB中。
转载请注明原文地址:https://kaotiyun.com/show/nFTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScrolll的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是()。
设栈的顺序存储空间为S(1:m),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=m+1,则栈中的元素个数为()。
某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是()。
设A、B、C是三角形的3条边,则以下表示“任意两边之和大于第三边”的布尔表达式是()。
为使文本框具有初始值“VB”,在设计阶段正确的操作是()。
为了使文本框显示滚动条,除要设置ScrollBars外,还必须设置的属性是()。
注意:下面出现的“考生文件夹”均为%IJSER%。在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
窗体上有2个名称分别为Text1、Text2的文本框,1个名称为Command1的命令按钮。编写如下程序代码:PrivateSubForm—Load()Textl.Text=“”Text2.Text=“”End
建立表示学生选修课程活动的实体联系模型,其中的两个实体分别是()。
随机试题
先秦时期强烈抨击“窃钩者诛,窃国者诸侯”黑暗现实的人()
与原发性肝癌有关与B细胞淋巴瘤和鼻烟癌的发生有关
(2013年)案情:大学生李某要去A市某会计师事务所实习。此前,李某通过某租房网站租房,明确租房位置和有淋浴热水器两个条件。张某承租了王某一套二居室,租赁合同中有允许张某转租的条款。张某与李某联系,说明该房屋的位置及房屋里配有高端热水器。李某同意承租张某的
摄影爱好者李某为好友丁某拍摄了一组生活照,并经丁某同意上传于某社交媒体群中。蔡某在社交媒体群中看到后,擅自将该组照片上传于某营利性摄影网站,获得报酬若干。对蔡某的行为,下列哪一说法是正确的?(2017年卷三21题)
2007F8月15日起,施行的新利息税税率较之前的税率减少了()。
国有文物、非国有文物中的珍贵文物,不得出境。()
对学生进行指导、引导的目的是促进学生的()。
根据以下资料,回答下列问题。2011年1一8月,上海市接待“新马泰”游客()人次。
某公司最近一年的股票收益每股3元,公司ROE估计为9%,市场资本化率为8%。公司的再投资率为2/3。要求:估计该公司当前的股权价值。
HowlongdoesittakeifyoutraveltoMarseillefromParisintheregularTGVtrain?
最新回复
(
0
)