首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Private Sub Command.Click() Dim arr(1 To 20) For
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Private Sub Command.Click() Dim arr(1 To 20) For
admin
2012-03-22
50
问题
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。
Private Sub Command.Click()
Dim arr(1 To 20)
For i=1 To 20
arr(i)= _______
Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)
Next i
Sum=0
For Each x In arr
If x>50 Then
Print Tab(20);x
Sum= ______
End If
Next x
Print Tab(20);"Sum=";Sum
End Sub
选项
答案
Int(Rnd*99+1) Sum+x
解析
转载请注明原文地址:https://kaotiyun.com/show/HFhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设x=4,y=8,z=7,以下表达式的值是 x<yAnd(Noty>z)Orz<x
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
以下关于焦点的叙述中,错误的是_________。
在窗体上有一个命令按钮,然后编写如下程序: FunctionTrans(ByValnumAsLong)AsLong DimkAsLong k=l DoWhilenum k=k*(numMod10
下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 PrivateSubCommand1_Click() DimnumXAsInteger numX=Val
控件数组的名字由【】属性指定,而数组中的每个元素由【】属性指定。
对建立良好的程序设计风格,下面描述正确的是______。
有如下事件过程: PrivateSubCommand1_Click() b=10 DoUntilb=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a*
在深度为5的满二叉树中,叶子结点的个数为
将代数式转换成程序设计中的表达式为【】。
随机试题
Tenminutes______anhourwhenoneisexpectingaphonecall.
关于侧脑室脉络丛球钙斑的描述,错误的是
以下有关“药源性肾病的主要症状”的叙述中,不正确的是
2018年1月,注册会计师甲、乙、丙三人在北京成立了一家会计师事务所,性质为特殊普通合伙企业。甲、乙、丙在合伙协议中约定:(1)甲、丙分别以现金300万元和50万元出资,乙以一套房屋出资,作价200万元,作为会计师事务所的办公场所。(2)会计师事务所的
物业共用部位包括()。
师生沟通是搞好师生关系的前提。促进教师与学生良好沟通的心理条件是教师要具备()。
在下列选项中对分段式存储管理描述正确的是()。
社会主义初级阶段的起点是()
用Schmidt正交化方法将下列向量组规范正交化:α1=(1,1,1)T,α2=(-1,0,-1)T,α3=(-1,2,3)T.
Afterthreeyearsofpreciseanalysis,X-raysandinfra-red(红外线的)imaging,expertsclaimtohaveuncoveredtheonlysurvivingp
最新回复
(
0
)