首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(By Val m As Integer) If m Mod 2=0 Then f
在窗体上画一个名称为Commandl的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(By Val m As Integer) If m Mod 2=0 Then f
admin
2013-04-11
58
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是______。
选项
A、 6
B、7
C、8
D、9
答案
B
解析
本题中fun函数的功能是偶数时返回2,奇数时返回1。而1到5中,有三个奇数,两个偶数。所以s是三个1和两个2之和。故s=7。
转载请注明原文地址:https://kaotiyun.com/show/5bQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=IIf(x>y,x,y)EndFunctionPrivateSub
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
以下程序段运行的结果是:______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsInteger
在窗体上画一个命令按钮(名称为Command1),编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后,单击命令按钮
窗体上有名称分别为Text1、Text2的2个文本框,要求文卒框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是______。Private
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是______。
数据库技术的根本目标是解决数据的______。
假定在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Command1_C
若完全二叉树共有n个结点,且从根结点开始,按层序(每层从左到右)用正整数0,1,2,…,n-1从小到大对结点编号,则对于编号为k的结点,错误的是______。
(1)在窗体上设置两个标签,名称分别为Labell与Label2、标题分别为“当前时间为:”和空;要求当单击窗体时,Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。注意:要求考生在编写完程序后,
随机试题
孕妇41岁,孕5产0,妊娠11周,既往人工流产1次,自然流产2次(均于妊娠2个月左右出现胚胎停止发育),宫外孕1次。夫妻非近亲结婚,无家族遗传病史。该如何建议此孕妇进行进一步产前诊断?各种诊断方法的并发症都有哪些?
Internet实现了分布在世界各地的各类网络的互联,其基础和核心的协议是HTTP。()
颅后窝的主要结构有()
已知汉字“学校”的机内码为D1A7H和DOA3H,请分别求他们的国标码。
截瘫的并发症是()
会计从业资格考试科目应当()通过。
企业生产车间发生的固定资产日常维修费,应作为制造费用核算计入产品成本。()
在以下国家中,谷物种植最发达的国家是______。
MigrantWorkersInthepasttwentyyears,therehasbeenanincreasingtendencyforworkerstomovefromonecountrytoanot
A、Tocultivatethenextgenerationofsmokers.B、Tochangepeople’sattitudetowardssmoking.C、Toluresmokersintochoosingth
最新回复
(
0
)