首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是( ),完成程序。 Private Sub Command1_Clickn Dim arr(1 To 20)
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是( ),完成程序。 Private Sub Command1_Clickn Dim arr(1 To 20)
admin
2010-09-11
70
问题
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是( ),完成程序。 Private Sub Command1_Clickn 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______ If X>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);"Sum";Sum End Sub
选项
A、Int(Rnd*99+1) In arr
B、Int (Rnd)In arr
C、Int(Rnd*99+1) In arr()
D、Int(Rnd)In arr()
答案
A
解析
Pad函数用于产生一个小于1但大于或等于0的实数,题中要求0~100之间的随机整数,所以需要对Pad产生的实数进行计算处理Int(Pad*99+1)。要处理数组中的元素,使用For Each…Next语句处理数组元素时,Each后只需写出数组名,不能使用小括号。
转载请注明原文地址:https://kaotiyun.com/show/ZCmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java语言是一种半编译和半解释型语言,经过编译后的Java程序由【】去解释执行。
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为【】。
Swing构件的程序不具有( )。
下面的语句片段中,变量result结果为()。publicclassTest{publicstaticvoidmain(Stringargs[]){intsum=0;
阅读下面的程序:publicclassPerson{intarr[]=Hewint[10];publicstaticvoidmain(Stringargs[]){
假设有以下代码:Strings="hello";Stringt="hello";charc[]={’h’,’e’,’l’,’l’,’o’};下列选项中,返回false的语句是______。
如下代码定义了一个类Test:classTest{privateinty;Test(intx){y:x;}}现在为Test类生成一个对象,正确的语句是( )。
在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为( )。
下列不属于虚拟机执行过程的特点的是()。
随机试题
男性,50岁,肝区持续性钝痛2个月,疼痛可牵涉至右肩部,伴乏力,消瘦明显,食欲减退,有恶心、低热症状,来门诊就诊。查体发现右肋下可扪及肿大之肝脏,质地坚硬。根据病史及初步体检结果,哪一种疾病最可能
肿胀以下颌角为中心的是患侧下颌升支后缘内侧皮肤肿胀并有深压痛的是
女性,22岁,不规则发热伴关节痛1个月,3天来尿少水肿,皮肤瘀斑,尿蛋白(+++),红细胞10个/HP,血ESR40mm/h,ANA1/160(+),首先考虑为
预防及治疗支气管哮喘的最有效药物是
以下在哺乳期应用时应停止母乳喂养的禁用药物是
1921年7月23日,中国共产党第一次全国代表大会在上海召开。大会选举产生了党的领导机构(),()为书记。
因碰撞、挤压导致喜马拉雅山持续升高的板块分别是:
结合根据给定材料“1~6”的内容,整理一份供有关负责同志参阅的材料,要求概述全面,语言流畅,观点鲜明,不超过300字。结合自己分析的问题和物价上涨的原因写一篇文章。要求:(1)参考给定资料自选角度,提出问题、解决问题。(2)观点明确,联系实际、分析具体
TheauthorquotesDr.SamuelJohnson’swordsto______.Towhichofthefollowingistheauthorlikelytoagree?
Driver’sLicenseTestTipsA)Thisarticlewillprovideyouwithsomesimpletipsforpassingyourdriver’slicensetest.Adequat
最新回复
(
0
)