首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
37
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun( )和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData( ) Open App.Pa&&“\”&“outtxt.txt”For Output As #1 Print#1.Text1.Text CIose#1 End Sub Function Fun( ) End Function Private Sub Command1_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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/SqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&i:List1.AddltemItemNextiEndSub程序运行时,
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下事件过程:PrivateSubCommandl—Click()Dimarr(10)Fori=6To10art(i)
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”,若通过程序设置该标题,则应使用的语句是
在软件设计中,不属于过程设计工具的是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
以下关于控件的叙述中,正确的是
现有语句:y=IIf(x>0,XMod3,0)设x=10,则y的值是
设x是小于10的非负数。对此陈述,以下正确的VB表达式是
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
随机试题
第二十num.t______
信息安全的技术特征主要表现在系统的可靠性、可用性、保密性、完整性、确认性和________等方面。
Selectingamobilephoneforpersonaluseisnoeasytaskbecausetechnology______sorapidly.
某市南关区岳阳税务征管所肖某、李某和陈某在对市造纸阀门厂进行税务检查时,认为该厂偷逃税款,遂将其会计账簿带回所内查验。经查认定其偷逃税3万元,即责令限期缴纳并处罚款6万元。该厂不服,申请复议,复议机关维持原处罚决定。在该厂柜不履行期间,税务局扣押了其生产设
简述观念交付的种类。
气动夯管锤的特点有()。
单位未设立档案机构的,应当在单位会计机构内部指定专人保管会计档案,但出纳人员不能监管会计档案。()
什么是讲授法?运用这一方法的基本要求是什么?
教科书的作用主要有()
在Python语言中,读入CSV文件保存的二维数据,按特定分隔符抽取信息,最可能用到的函数是()。
最新回复
(
0
)