首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了计算下面的分段函数(其中x为整数) 某人编写了如下函数 Function fun(x As Integer)As Integer Dim y As Integer Select Case x Case x
为了计算下面的分段函数(其中x为整数) 某人编写了如下函数 Function fun(x As Integer)As Integer Dim y As Integer Select Case x Case x
admin
2020-04-18
1.5K+
问题
为了计算下面的分段函数(其中x为整数)
某人编写了如下函数
Function fun(x As Integer)As Integer
Dim y As Integer
Select Case x
Case x<0
y=x-2
Case 0
Y=x
Case1,2,3,4,5
Y=x*2
Case Else
Y=x+2
End Select
Fun=y
调试时发现有错误,需要修改,下面正确的修改方案是
选项
A、把case x < 0改为 case Is < 0
B、把Case 1, 2, 3, 4, 5 改为 Case 0
C、把 case 0 改为 case x = 0
D、把Case Else改为Case Is >= 6
答案
A
解析
多分支选择结构语句中,表达式列表中表达式的结构可以是值的形式,也可以是表达式To的形式,还可以是Is 关系运算表达式的形式,故正确答案为选项A。
转载请注明原文地址:https://kaotiyun.com/show/3ZTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
以下不能触发滚动条Change事件的操作是
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:PrivateSubCommandl_Click()Open”c:\f1.txt”ForInputAs#1:Open”c:\f2.txt”ForOutputAs#
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10:TeINumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerRandomize
把窗体的KeyPreview属性设置为True。然后编写如下事件过程PrivateSubForm_KeyPress(Key.AsciiAs
有下面程序代码:PrivateSubCommand1Click()DimaAsStringa=“COMPUTER”n=so~eh(a,“T”):PrintUtln=0,“未找到”,n)EndSubPrivateFunction
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegexn=2Form=1To3
随机试题
关于违约、过失与欺诈的表述中,正确的是()
中国梦最核心的内容是()
马副蛔虫成虫寄生于马属动物的()
[问题一]对总监理工程师开工前所处理的两项工作是否妥当进行评价,并说明理由。如有不要之处,写出正确处理问题的程序。[问题四]指出上述竣工验收中的不妥之处?并改正之?
植物:光合作用:氧气
我国宪法修正案中,在统一战线的表述中,增加“社会主义事业的建设者”的是()
OnlybyunderstandingtheWebdeeply______hopeforpeopletograspitsfullpotential.
ThehomelessmakeupagrowingpercentageofAmerica’spopulation.【C1】______homelessnesshasreachedsuchproportionsthatlo
A—OnseasonJ—OffseasonB—GuidepracticeK—LocaltouristorganizationC—TravelpressL—Board
Accordingtoasurvey,whichwasbasedontheresponsesofover188,000students,today’straditional-agecollegefreshmenare"
最新回复
(
0
)