首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2019-08-21
68
问题
在考生文件夹下有一个工程文件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 Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Integer,i As Integer For i=0 To 200 lf 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/FdUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommandl_Click()a:3:S=0Fork=1T05s=s+aModk:a=a+kNextkPrintSEndSub程序运行后,单击命令按钮Commandl,
设窗体上有一个名称为HSl的水平滚动条,如果执行了语句:HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min则:
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动到最左边时,文本框中显示的是1
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1C1ick()DimS1AsString.s2AsStringOpen"c:
假定有如下语句:answer$=MsgBox("String1","String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为
以下表达式与Int(3.5)的值相同的是
1个二维数组可以存放1个矩阵,在程序开始有语句OptionBase(),则下面定义的数组中正好可以存放1个4(3矩阵(即只有12个元素))的是
结构化程序设计的3种结构是()。
己知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()Di
结构化程序设计的3种结构是()。
随机试题
根据《建设工程监理与相关服务收费标准》,若发包人委托两个以上监理人承担施工监理服务且委托其中一个监理人对施工监理服务总负责的,被委托总负责的监理人按()向发包人收取总体协调费。
下列工程中,其专项施工方案需要进行专家论证的有()。
分包单位对承包的项目进行验收时,应有()参加。
下列各项中,免征城镇土地使用税的是()。
我国上市银行的经营目标普遍为()。
在选择供应商的方法中,直观判断法是一种()的方法。
下列情况中,()属于终局复议。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
你的领导很赏识你,你想下基层锻炼,领导不同意,你怎么跟他沟通?请现场模拟一下。
A、BecauseHenryhasnotime.B、Becausesomeoneelsedecoratedthehouse.C、Becausetherewasnoinstrumentsinthehouse.D、Beca
最新回复
(
0
)