首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Els
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Els
admin
2013-04-11
15
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是______。
选项
A、11
B、10
C、9
D、8
答案
C
解析
在f函数的过程中,“m M0d 2=0”为判断形参m是否为偶数的条件。当m为偶数时,通过函数名f返回原值;否则返回1。当控制变量i分别为1~5的函数调用计算过程中,变量s的计算过程为s=1+2+1+4+1=9。
转载请注明原文地址:https://kaotiyun.com/show/C4hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有______。
阅读程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)
在设计程序时,应采纳的原则之一是
把窗体的KeyPreview属性设置为True,然后编写如下过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)En
为了在运行时能显示窗体左上角控制框(系统菜单),必须______。
下列关于栈的叙述中正确的是______。
在数据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有______。
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是______。
设A="12345678",则表达式Val(Len(A,4)+Mid(A,4,2))的值为______。
软件生命周期的瀑布模型典型地刻画了软件生命周期的阶段划分,它将软件生命周期划分为8个阶段,并将它们归纳为3个时期,以下选项中,______是正常的开发顺序。
随机试题
男性,56岁。患慢性骨髓炎8个月,血红蛋白70g/L,白细胞、血小板正常。血清铁6.21μmol/L,铁蛋白206μg/L,骨髓增生活跃,细胞外铁(+++)。该患者治疗措施主要是
A.胆碱酯酶活性受抑制B.碳氧血红蛋白体内蓄积C.高铁血红蛋白体内蓄积D.交感神经过度兴奋E.迷走神经过度兴奋CO中毒的机制是
A.去心B.去皮壳C.去毛D.去核E.去残肉
某公司7月份发生下列经济业务(不考虑相关税费):(1)销售材料一批,货款2000元,当即存入银行。(2)销售产品一批,货款5000元,当即收到4000元存入银行,其他货款暂欠。(3)预付7~12月的固定资产租金3000元。(4)收到3月份的应收
投机方法中,属于建仓阶段内容的有()。
下列选项中,关于个人商用房贷款,说法正确的有()。
考古学家在阿拉伯半岛的阿尔马塔夫遗址中已清理出9000多件遗物,其中90%以上为当地的朱尔法淘,包括一件完整的朱尔法夹砂红陶罐;西亚釉陶仍为孔雀绿釉陶和熔块胎陶;中国产的瓷器有龙泉窑青瓷,景德镇窑青花瓷、白瓷、青白瓷及广东地区产酱釉粗瓷等;另有泰国产青瓷。
[A]TheLaborDepartmentexpectstwomillionnewjobsthisyearontopofthe1.7millioncreatedlastyear.Helpingtofuelwha
Ipromisedtomeethimthereinamonth,______Iwassufficientlyrecoveredtodoso.
A、onetoworkmoreefficientlyB、topromoteastrongheartC、toloseweightD、onetosleepbetterB
最新回复
(
0
)