首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题
admin
2019-06-20
29
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出大于500的整数之和”),即可求出这些整数的和,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjf4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一一个命令按钮。程序运行后,单击命令按钮,即可计算出0~100范围内不能被7整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出部分程序,其中在通用过程Fun中实现计算不能被7整除的整数的和的操作,请编写该过程代码。
要求:请勿改动程序中的任何内容,只在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 或500
0 Then s = s + i End If Next i Fun = s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/iVN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-1)*3+j
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegern=InputBox("输入一个大于1的正整数")Fori=2TonForj=2ToSqr(i)Ifi
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen<>0Printn\10Mod10;:PrintnMod1
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动到最左边时,文本框中显示的是100;
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
以下关于键盘事件的叙述中,错误的是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是
以下关于事件、事件驱动的叙述中,错误的是
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
随机试题
慢性粒细胞性白血病外周血增生的细胞是
A.HLA—AB.HLA—BC.HLA—CD.HLA—DRE.ABO血型患者男,17岁。确诊为急性淋巴细胞白血病一年,第8个月复发,现第二次缓解巩固治疗后,欲做骨髓移植,做组织相容性抗原配型时,目前认为最重要的抗原是
一个500万人口的城市,过去每年发生伤寒患者2例左右,某年发生了500例,此种情况称一个单位突然在一天内发生食物中毒病例数百名,此种情况称
根据《药品流通监督管理办法》,药品生产、经营企业不得
公共关系的联结手段是()
①就此事件,我新华社_______发表声明。②她就是这部小说中女主人公的_______。③他们两位素未谋面,还要请你_______一下。填入划横线部分最恰当的一项是()。
汉朝法律形式中,皇帝随时发出的诏令或者由臣下提出经皇帝批准的立法建议,涉及面广,法律效力高于律的是()
铁路一编组站随机地编组发往三个不同地区E1,E2和E3的各2节、3节和4节车皮,求发往同一地区的车皮恰好相邻的概率p.
______,therecanbenolivingcreaturesonthemoon.
Somestudentstakepartinschoolactivitiesactively,whileothersshowlittleinterestinthem.What’syouropiniononthisph
最新回复
(
0
)