首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小
admin
2018-09-19
34
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小于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=l To 20 ’arrN(i)=Int(Rnd*?) Next i ’Sum=? For i=l 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题要产生随机整数,须使用Rnd函数和Int函数。
Int函数是将参数转换成整数。
Rnd函数返回小于1,但大于或等于0的值,为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound—lowerbound+1)*Rnd+lowerbound)
这里,upperbound是随机数范围的上限,lowerbound则是随机数范围的下限。
(2)根据题意,通过For循环语句的循环变量i(初值为0,终值为100,步长为2)来获得0~100范围内的所有偶数,并逐一将i^2的值累加到变量s,最后将s的值显示在文本框中,并将其作为函数返回值。
转载请注明原文地址:https://kaotiyun.com/show/lIFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
使用Cls方法能够清除窗体或图片框中
计算机软件的构成是
算法时间复杂度的度量方法是
当数据库中数据总体逻辑结构发生变化,而应用程序不受影响,称为数据的
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)......EndSub假定焦点位于文本框中,则以下能触发KeyPres
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
对于窗体而言,在运行期间对其值改变无效的属性是
以下不合法的VisualBasic变量名是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是( )。
随机试题
增加离体神经纤维浸浴液中的Na+浓度,则单根神经纤维动作电位的超射值将
企业拥有或控制的,能以货币计量的经济资源,称为()。
非确定型网络计划,是指网络计划中各项工作及其持续时间和各工作之间的相互关系都是不确定的。下列各项中不属于非确定型网络计划的有()。
评审有异议的重大设计变更,完善后,最终应由()裁定。
投资者可将其托管证券从一个证券营业部转移到另一个证券营业部托管,这一过程通常称为()。
根据刑事法律制度的规定,对犯罪分子可以从轻或者减轻处罚的情形有()。(2007年,经调整)
请你谈一谈你工作经历中最得意的一件工作。
朗格汉斯细胞电镜下称为明细胞是因为()。
Readthefollowingpassageanddecidewhichanswerbestfitseachspace.Forquestions26~45,markoneletterA,B,CorDo
PASSAGEFOURWhyistrainingtobecomeabarristerorsolicitoracompetitivejob?
最新回复
(
0
)