首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Integer,sum As Long DimtAs Long t=1:sum=0 F
下面程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Integer,sum As Long DimtAs Long t=1:sum=0 F
admin
2020-07-22
40
问题
下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click()
Dim i As Integer,sum As Long
DimtAs Long
t=1:sum=0
For i=l To 3
t=t*i
sum=sum+t
Next i
Print sum
End Sub
选项
A、3
B、9
C、5
D、6
答案
B
解析
本题考查累加算法。题目中sum为求和项,初值为0,t为每一项的值,变化规律为后一项是前一项的i倍,i的变化为从1到3,由于t的初值为1,因此求和为1*1+1*2+2*3。
转载请注明原文地址:https://jikaoti.com/ti/3AS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在程序运行时,下面的叙述中正确的是()。
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAs
以下叙述中正确的是()。
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是( )。
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
设有如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfBumon=2ThenPop
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为l,Min属性设置为100。下面叙述中正确的是()。
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是( )。
线性表的长度为n。在最坏情况下,比较次数为n一1的算法是()。
随机试题
对诊断精神分裂症最有意义的一组症状是
用氧安全的重点是做好“四防”,其内容不包括
2000年9月3日夜晚,张某在某大学附近冒充警察,查验两名逛街回来正准备返校的女生王某和李某的身份证,二人没带。张某便以两位女生行踪可疑为由,要带她们去“警区”了解情况。张某将王某和李某带至郊区的一处房内,将二人锁在屋里,并对二人说没有身份证不能放她们出去
工程量清单招标时,投标人编制投标报价前应认真复核工程量清单中的分部分项工程量,因为该工程量会影响()。
在国际货运中经常采用集装箱租赁的办法,若想租期为一年,每日都确定提、还箱量及地点,而且租金按使用天数计算。这种租赁方法称为()。
企业在市场细分之后,不考虑各子市场的特性,而只注重子市场的共性,决定只推出单一产品,运用单一的市场营销组合,力求在一定程度上适合尽可能多的顾客的需求。这是()。
ThegrammaticalwordswhichplaysolargeapartinEnglishgrammarareforthemostpartsharplyandobviouslydifferent
某企业采用Windows2000操作系统部署企业虚拟专用网(VPN),将企业的两个异地网络通过公共Internet安全地互联起来。微软Windows2000操作系统当中对IPSec具备完善的支持,图13-3给出了基于Windows2000系统部署
Trainingastronauts______notaneasything.
BeingEnthusiasticinLifeForthispart,youareallowed30minutestowriteanessayonenthusiasmbyreferringtothesayi
最新回复
(
0
)