首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“
admin
2015-06-30
40
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小于500的整数之和”),即可求出这些整数的和,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0一100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数平方和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 ’arrN(i) = Int(Rnd * ?) Next i ’Sum = ? For i = 1 To 20 ’If ? Then ’Sum = ? End If Next i Print Sum End Sub 程序结束 参考答案 第1个?处填入:1000 第2个?处填入:0 第3个?处填入:arrN(i)<500 第4个?处填入:Sum+arrN(i) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Click() d = Fun() Text1.Text = d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Long, i As Integer s = 0 For i = 0 To 100 If i Mod 2 = 0 Then s = s + i ^ 2 End If Next i Fun = s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/8gQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()DimxAsInteger,nAsInteger
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一
下列叙述中正确的是
按文件的内容划分有()。
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()
以下控件中不是标准控件的是()
下列叙述正确的是
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
随机试题
用CO2气体保护焊焊接时,用得最多的脱氧剂是()。
经外周静脉左心造影剂的特点是
患者,男,66岁,1个月前诊断为高脂血症,现每日晨起空腹服用阿司匹林,今晨觉胃区疼痛,恶心,呕吐咖啡样物约50ml。既往无胃病及肝病史,首选的检查是
慢性肾功能不全的主要病机是
下列选项关于具体行政行为拘束力的正确理解是()。
在换入资产和换出资产的公允价值不能够可靠计量且不具有商业实质的非货币性资产交换中,确定换入资产入账价值应考虑的因素有()。
案例:阅读下列有关“一元一次方程的实践与探索”教学片段。(多媒体展示)学校需要制作一块广告牌,请来两名工人。已知师傅单独完成需4天,徒弟单独完成需6天,两人合作需要几天完成?解:设两人合作需要x天完成,根据题意列方程:解方程
新冠肺炎疫情期间,有两家公司进行爱心捐赠,A公司给疫区捐赠物资,B公司给抗疫殉职人员的妻子捐赠金钱,两者捐赠的总价值一样,可是网友对B公司大加褒赞,对A公司则褒贬不一。对此,请谈谈你的看法。
某次田径运动会中,选手参加各单项比赛计入所在团体总分的规则为:一等奖得9分,二等奖得5分,三等奖得2分。甲队共有10位选手参赛,均获奖。现知甲队最后总分为61分,问该队最多有几位选手获得一等奖?
企业投资一个大型项目,向银行借入一笔资金。企业拟从该项目正式投产后(第一年末)每年提取一笔偿债基金以归还10年后到期的1000万元债务,若目前银行存款利率为4%,且(P/A,4%,10)=8.1109,(F/A,4%,10)=12.006。则每年需提取的偿
最新回复
(
0
)