首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 s=S+f(5+i) Next Print S End Sub Public Fun
现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 s=S+f(5+i) Next Print S End Sub Public Fun
admin
2020-02-27
36
问题
现有如下程序:
Private Sub Command1_Click()
s=0
For i=1 To 5
s=S+f(5+i)
Next
Print S
End Sub
Public Function f(x As Integer)
If x>10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序,则窗体上显示的是( )。
选项
A、38
B、49
C、61
D、70
答案
B
解析
程序中过程f的功能是参数值大于等于10时,返回参数加1的值,否则返回参数加2的值。因此按钮事件中s值的计算过程如下:
i=1时,s=0+f(5+1)=8;
i=2时,s=8+f(5+2)=8+9=17;
i=3时,s=17+f(5+3)=17+10=27;
i=4时,s=27+f(5+4)=27+11=38;
i=5时,s=38+f(5+5)=38+11=49;
因此最终在窗体上输出的是49。
转载请注明原文地址:https://kaotiyun.com/show/5XTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
在窗体上有一个名称为Checkl的复选框数组(含4个复选框),还有一个名称为Textl的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是()。
在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键,它们称为该表的()。
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerDimb
(1)在考生文件夹下有一个工程文件sit3.vbp,相应的窗体文件为sjt3.frm。在名称为Forml的窗体上有一个名称为Text1的文本框和名称为Command1、标题为“确定”的命令按钮,一个名称为List1的列表框和两个名称分别为Option1和O
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是()。
数据库设计过程不包括
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
班主任做好班级工作的先决条件是()。
30岁初孕妇,停经4个月,右下腹疼痛4小时,伴高热,伴恶心呕吐。查体右下腹压痛、反跳痛,血常规:白细胞计数17×109/L,中性0.86。予抗感染治疗后仍持续高热,此时的处理措施是
下列哪项不符合气质的特点
政府采购具有()的原则。
下列关于个人贷款中个人不可循环授信额度的表述,错误的是()。
李某为甲有限合伙企业的普通合伙人,下列表述中,不符合《合伙企业法》规定的是()。
把一根钢管锯成两段要用4分钟,若将它锯成8段要多少分钟?()
根据学习的定义,下列属于学习的现象是()。
蓝眼冯骥才①古玩行中有对天敌,就是造假画的和看假画的。造假画的,费尽心机,用尽绝招,为的是骗过看假画的那双又尖又刁的眼;看假画的,却凭这双眼识破天机,看破诡计,捏着这造假的家伙没藏好的尾巴尖儿,打一堆画里把它抻出来,晾在光天
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“产品”、“供应商”,查询对象“按供应商查询”和宏对象“打开产品表”、“运行查询”、“关闭窗口”。试按以下要求完成设计:创建一个名为“menu”的窗体,要求如下:设置窗体
最新回复
(
0
)