首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
28
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/C4S0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在菜单编辑器中建立如下图所示的菜单,并为每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是()。
软件生命周期是指()。
窗体上:有Commandl、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCortmaandlClick()m=InputBo
对于列表框控件List1,能够表示当前被选中列表项内容的是
在设计阶段,假定在图片框:Picturel中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
算法的空间复杂度是指
T面属于系统软件的是()。
在考生文件夹下有一个工程文件sjt5.vbp,界面如图2-137所示,其功能如下:①单击”读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击”计算”按钮,则对每组数求平均值,并将
(1)在考生文件夹下的“samp1.accdb”数据库文件中建立表“tBook”,表结构如表2.4所示。(2)判断并设置“tBook”表的主键。(3)设置“入库日期”字段的默认值为系统当前日期前一天的日期。(4)在“tBoo
软件是指
随机试题
国籍是指自然人属于某一国家的国民或公民的()
成人的椎体结核和椎体肿瘤在X线片上的主要鉴别点是
内墙面抹灰每遍适宜厚度的表述,哪一条是错误的?[2000—109]
企业采用出包方式建造固定资产,按合同约定向建造商支付工程进度款时,应()。
交易指令在基金公司内部执行情况中,说法错误的是()。
证券投资分析有利于增加证券投资的净效用,但不能降低投资者的投资风险。()
在一定程度上能避免企业追求短期行为的财务管理目标包括()。
将货币当局概览和存款银行概览归并,剔除中央银行货币与存款银行之间的信贷往来而合成的是()。
一把钥匙能打开天下所有的锁。这样的万能钥匙是不可能存在的。以下哪项最符合题干的断定?
Super-kidsandSuperProblems—ByDavidElkindNot
最新回复
(
0
)