首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下: Private Function fun(ByVal m As Integer) Ifm Mod2=0 Then fun=2 Else fun=1 End If End Fu
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下: Private Function fun(ByVal m As Integer) Ifm Mod2=0 Then fun=2 Else fun=1 End If End Fu
admin
2013-04-11
37
问题
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下:
Private Function fun(ByVal m As Integer)
Ifm Mod2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Prints
End Sub
程序运行后,单击命令按钮,则窗体上输出( )。
选项
A、6
B、7
C、8
D、9
答案
B
解析
本题比较简单,只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为:当i=1时,s=s+fun(i)=1;当i=2时,s=s+fun(i)=3;当i=3时,s=s+fun(i)=4;当i=4时,s=s+fun(i)=6;当i=5时,s=s+fun(i)=7。
转载请注明原文地址:https://kaotiyun.com/show/P6Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个命令按钮,名称分别为Command1、Command2,并编写如下程序Constn=5,m=4Dima(m,n)PrivateSubCommand1_Click()k=1
某人创建了—个工程,其中的窗体名称为Form1;之后又添加了—个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是______。
在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮—次,文本框向右移动—定的距离。下面能够正确实现上述功能的程序是______。
设有如下的记录类型:TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是______。
下面不属于软件工程的3个要素的是______。
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是______。
按照二叉树的定义,深度为5的二叉树至多有______个结点。
已知一棵二叉树前序序列和中序序列分别为ABDEGCFH和DBGEACHF,则该二叉树的后序序列为【】。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml,标题为“控件数组”的窗体上,添加1个名称为Cmdl的控件数组,该控什数组由三个命令按钮组成,其标题分别是“插入”、“删除”、“更新”,索引号分别为0、
随机试题
银行会计凭证的特点包括()
在商品的年需求量一定的情况下,每次的订货量越大,则
一足月儿,经阴道分娩,生后1分钟Apgar评分,见皮肤苍白,心率80次/分,弹足底有皱眉反应,四肢略屈曲,无呼吸。应评几分
男,86岁,因高血压、脑卒中,现生活不能自理。此时病人首先需要满足的是
在竖向分区给水方式中,分区串联给水方式的特点是( )。
下列各项情形的发生,会导致股东和债权人利益冲突的是()。
党的某些政策可以起到法律的作用,是因为该项政策具有了国家意志的属性。()
TheinventionofirrigationismeaningfulbecauseitcouldhelptoWhichoffollowingtendstowarmtheclimate?
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
Childrenareinneedofadoptionbecausesomebirthparentsareunableorunavailabletoprovideadequatelyfortheneedsofthe
最新回复
(
0
)