首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm;在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm;在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-06-30
58
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm;在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
步骤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 Conunandl_Click() d=Fun() Text1.Text=d SaveData End Sub 程序结束 Function Fun() Dim s As Integer,i As Integer For i=0 To 200 If i Mod 3=0 Then s=s+i End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。
转载请注明原文地址:https://kaotiyun.com/show/5GHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=x:x=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:Private
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个文本框,其名称为Text1;另有一个命令按钮,其名称为Command1,标题为“计算/输出”。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框
(1)在名称为Form1的窗体中画一个名称为lblClock的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为tmrClock的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图1-3
在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。程序的功
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组air中数组元素的个数是
设X为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
某完全二叉树按层次输出(同一层从左到右)的序列为ABCDEFGH。该完全二叉树的前序序列为()。
在一棵二叉树上,第5层的结点数最多是()。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
随机试题
男性,67岁。因突起高热,伴头痛、全身酸痛5h后急诊入院。有轻度咽痛及鼻塞,有明显流涕及咳嗽。当地正有“流感”流行。此病人最可能的诊断是()
图样的比例是图形的实际线性尺寸与物体相应线性尺寸的比。()
输尿管结石绞痛发作时,重要的是
现金流量图如图11-1所示,年利率为12%,每季度计息1次,则年末终值F为()万元。
业主方项目管理服务于业主的利益,其项目管理的目标包括项目的投资目标、进度目标和( )。
下列各项中,有权提出本级预算预备费动用方案的是()。
对同一借款人的贷款余额与商业银行资本余额的比例不得超过10%,这是为了()。
把传统简历转换成在线形式,无论对求职者还是用人单位都有好处:它能完善整个招聘过程。在线简历可以让求职者摆脱纯文本描述的限制,通过加载更为丰富的自荐内容。引导浏览者获得更全面有效的信息。同时,求职者也可以掌握自己简历的访问情况,甚至可以从浏览者获得反馈。在线
关于自定义数据类型,下面叙述中不正确的是()。
Youshouldspendabout20minutesonQuestions1-13whicharebasedonReadingPassage1below.AlfredNobelThemanbehindthe
最新回复
(
0
)