首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是从随机产生的20个20~200(含20和200)的整数中,找出能够同时被3和5整除的数的最大值,并显示出来,请填空。 Option Basel Private Sub Commandl Click() Dim a(2
以下程序的功能是从随机产生的20个20~200(含20和200)的整数中,找出能够同时被3和5整除的数的最大值,并显示出来,请填空。 Option Basel Private Sub Commandl Click() Dim a(2
admin
2012-12-21
39
问题
以下程序的功能是从随机产生的20个20~200(含20和200)的整数中,找出能够同时被3和5整除的数的最大值,并显示出来,请填空。
Option Basel
Private Sub Commandl Click()
Dim a(20)As Integer
m=0
For i=1 To 20
a(i)=Int(Rnd* __________ )+20
If a(i)Mod 3=0 a(i)Mod 5=0 Then
If a(i)>In Then m=a(i)
End If
Next i
lf Then
Print"没有满足条件的数"
EIse
Print"满足条件的数是";m
End If
End Sub
选项
答案
18l,And,m=0
解析
为求最小公倍数.20~200,跨度为180,但因为用了Int,向下取整,因此是181个。
转载请注明原文地址:https://kaotiyun.com/show/NNhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。OptionBase1PrivateSubform_Click()DimkAsInteger
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftVisualBasicProgramming然后编写如下事件过程:P
执行以下程序段 DimxAsInteger,iAsInteger x=0 Fori=20To1Step-2 x=x+i\5 Nexti后,x的值为
在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会
下面关于数据库系统的叙述正确的是
在窗体中添加一个命令按钮,(其Name属性为Command1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。请在【】和【】、【】处填入适当的内容,将程序补充完整。Pri
多窗体程序由多个窗体组成,在默认情况下,VB在执行应用程序时,总是把()指定为启动窗体。
在窗体的“通用”部分用Public定义的变量,其作用域是()。
下列()表达式不能表示“整数X和Y之一为零,但不能同时为零”。
随机试题
简述公司资产结构影响公司的资本结构的方式。
不属于方剂运用变化的项是
不是右心功能不全表现的是
局麻药中加入肾上腺素的作用中哪项可除外
不属于城镇体系规划编制基本原则的是()
以质押方式申请担保流动资金贷款的,质押权利范围包括()等。
2013年3月5日,甲公司承建一项工程,合同约定的工期为18个月,合同总收入为300万元,预计总成本为250万元。甲公司采用完工百分比法确认收入,完工百分比按照累计实际发生的合同成本占合同预计总成本的比例确定。至2013年末已确认收入140万元,已收到工程
建于秦始皇时期的上林苑,用太液池所挖之土堆成岛,象征东海三仙山,树立了皇家园林一池三山的模式,开创了人为造山的先例。()
Weinvestigatedothercompaniestodiscover________theydealtwithcomplaintsfromtheircustomers.
Crimeisincreasingworldwide.Thereiseveryreasontobelievethe【B1】_____willcontinuethroughthenextfewdecades.Crimera
最新回复
(
0
)