首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm;在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm;在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-06-30
63
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面叙述中错误的是()。
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组air中数组元素的个数是
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
以下叙述中,错误的是
下列叙述中正确的是()。
下面()不是VB的文件系统控件。
在标准模块中,将a定义为全局整型变量的语句是
软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
求下列函数所表示曲线的渐近线
最能说明肝硬化患者已存在门脉高压的表现是
Themedicalcommunityoweseconomistsagreatdeal.AmartyaSenwonaNobelPrizeforEconomicSciencesin1998.Hehasspenthi
商标权的有效期为10年,自()起计算。
在任何一个社会中,没有法律是万万不能的,但法律也不是万能的。如果让法律过度地向道德领域进行延伸和辐射,不但浪费社会资源,还会导致法律缺乏起码的可行性和公平性,在无形中戕害社会道德。这段话的主旨是:
奥地利王位继承战争(南京大学2013年国际关系史真题)
已知矩阵求一个满足P-1AP=B的可逆矩阵P。
InthefrontroomofashabbyterracedhouseinMaryport,Cumbria,awomanlayonthesofacoveredbyablanket,herbodyemacia
A、Thewomanalreadyknewabouttheincreaseinfees.B、Thedormswillbecheaperthanoff-campushousing.C、Thewomanthinksthe
Thispartistotestyourabilitytodopracticalwriting.Youarerequiredtowritealetteraccordingtothefollowinginforma
最新回复
(
0
)