首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) s=0: j=1 For i=4 To 1 Step-1 s=s+a(i)*
编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) s=0: j=1 For i=4 To 1 Step-1 s=s+a(i)*
admin
2018-09-19
71
问题
编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
s=0: j=1
For i=4 To 1 Step-1
s=s+a(i)* j
j=j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、110
B、123
C、1234
D、4321
答案
C
解析
变量a初始化为含4个元素的数组,由于有Option Base 1语句,因此数组下标下界为1,元素值a(1)~a(4)依次为1、2、3、4。For循环中从第4个元素开始对4个元素值运算后累加,运算方法是第1个元素值乘10的0次方,第2个元素值乘10的1次方,第3个元素值乘10的2次方,第4个元素值乘10的3次方。即4+30+200+1000=1234。
转载请注明原文地址:https://kaotiyun.com/show/a9Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePerson nameAsString*8 majorAsSt
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
(1)在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序,如图所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐。②请编写适当的程序完成以下功能:在Text1中输入40(度数),
以下关于数组的叙述中,错误的是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
表达式12/2\4的值是( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
(1)考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0一999的整数读入到数组a申;②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小
软件生命周期是指( )。
设a=2,b=3,c=4,d=5,下列表达式的值是( )。 a>bAndcc
随机试题
肾的病理变化有
患儿,4岁半。因前牙外伤1天就诊。检查见右上A冠折,露髓,探痛明显,叩(+)。如果前牙已经完全脱位,正确的处理方法是
长管并联管道与各并联管段的()。
当前,我国坚持的分配制度为()。
教学工作的中心环节是备课。
理性是指人在正常思维状态下,为了获得预期结果,有自信与勇气冷静地面对现状,并快速全面了解现实分析出多种可行性方案,再判断出最佳方案且对其有效执行的能力。根据上述定义,下列属于理性的是()
在设置目录安全选项时,使用“目录安全性”选项卡设置IIS安全性功能,从而在授权访问受限制的内容之前确认用户的用户标识。可以选择三种配置方法:身份验证和访问控制、______、安全通信。
以下程序的输出结果是______。#include<stdio.h>#defineFUDGE(y)2.84+y#definePR(a)printf("%d",(int)(a))
打开考生文件夹下的演示文稿yswg.pptx,按照下列要求完成对此文稿的制作:演示文稿播放的全程需要有背景音乐。
Walking,ifyoudoitvigorouslyenough,istheoverallbestexerciseforregularphysicalactivity.Itrequiresnoequipment,e
最新回复
(
0
)