首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
49
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
以下不属于单选按钮的属性是
在窗体上画1名为Commandl的命令按钮和1名Textl的文本框,再编写如下程序:DimssAsStringPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)<
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=8PrintM(2+
设x的初始值为1,并有下面程序片段:Whilex<10x=x+1Wend下面与上述程序片段产生结果不同的是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
现有语句:y=IIf(x>0,XMod3,0)设x=10,则y的值是
设有如图所示窗体和以下程序:PirintSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubTextLostFocus()If
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
下列说法中,错误的是
随机试题
《诗经》是我国最早的一部诗歌总集,相传其删定者是()
一般来说,()缸往复泵的瞬时流量是比较稳定的,所以要求流量稳定的多缸泵一般是选用它。
纤维蛋白性心包炎的典型体征是
男性,70岁,曾有乙肝病史,近3个月出现持续性腹胀,黄疸,查体时发现肝脏不大,脾脏中度肿大,腹水(+)。最可能的诊断为( )
合同跟踪的对象不包括()。
保险公司的财务管理通过()来提高总体收益,降低经营风险,实现公司经营目标
还我们一片碧草蓝天①谁不希望头顶的天空湛蓝如镜?谁不希望脚下的大地绿草如茵?谁不希望身边的湖水清澈如鉴?谁不希望眼前的阳光灿烂如金?②是啊,谁不希望看见一副如此天然的画面呢?在芳香的花丛中,和蝶儿一起嘻戏;在葱郁的树林里,与小鸟一起歌唱
下列行为构成犯罪,告诉才处理的是()。
Yourcompanyintendstopurchasesomecarparts.Nowithasreceivedafaxoffer(传真报价).Writealettertothesalesdepartmento
Supposeyoutriedtolifta100-poundrocktwofeet,you______moreworkthanifyou______itonefeet.
最新回复
(
0
)