首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
39
问题
在考生文件夹下有一个工程文件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程序运行时,
对于含有多个窗体的工程而言,以下叙述中正确韵是
在软件设计中,不属于过程设计工具的是
下面关于VB应用程序的叙述中正确的是
下列关于滚动条的叙述中,错误的是
窗体的MouseUp事件过程如下:PrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub关于以上定义,以下叙述中错误的是
按照“后进先出”原则组织数据的数据结构是
按照“后进先出”原则组织数据的数据结构是
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称check1的复选框数组(Index属性从0开始),含三个复选框,其标题分别为“语文”、“数学”、“体育”,利用属性窗口设置适当的属性,使
以下说法中正确的是()。
随机试题
颈椎骨折脱位病人最首要且有效的治疗措施应为()
急性胰腺炎腹痛明显者需禁食、禁水多少时间为宜
A.影响妄想B.关系妄想C.钟情妄想D.嫉妒妄想E.被害妄想病人坚信配偶对自己不忠贞,另有新欢,因而经常跟踪、监视配偶的日常活动,这种表现属于()
2004年10月,B房地产开发公司,在W市A县县城内建设康居住宅小区。在报纸上刊登一则售楼广告,广告中称:“本公司首次独家举办销售让利活动,为你提供防盗门、小区幼儿园、地下车库、屋顶花园……并于2004年10月交房”,B房地产开发公司按照规划要求,进行了
下列期货公司股权变更的情形,应当经中国证监会或其派出机构批准的不包括()。
库存股作为所有者权益的抵减项,列示在所有者权益项目中。()
对于“物美价廉”的产品,位于“战略钟”模型的方位是()。
汽车尾气中含有许多有害物质,主要有()。
Seariseasaconsequenceofglobalwarmingwouldimmediatelythreatenthatlargefractionoftheglobelivingatsealevel.Nea
ThefollowingitemshavebeendestroyedEXCEPT?
最新回复
(
0
)