首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim num As Integer,x As Integer num=Val(InputBox("请输入一个正整数")) Select
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim num As Integer,x As Integer num=Val(InputBox("请输入一个正整数")) Select
admin
2016-12-13
49
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1_Click()
Dim num As Integer,x As Integer
num=Val(InputBox("请输入一个正整数"))
Select Case num
Case Is>100
x=x+num
Case Is<90
x=num
Case Else
x=x*num
End Select
Print x;
End Sub
运行程序,并在三次单击命令按钮时,分别输入正整数100、90和60,
选项
A、0 0 0
B、0 0 60
C、0 90 0
D、100 0 60
答案
B
解析
多分支控制结构又称为SelectCase语句或Case语句,可以同时对条件的多个取值来判断。其格式为:
Select Case<测试表达式>
[Case<表达式列表1>]
[语句块1]
…
[Case Else]
[语句块n]
End Select
Case语句以Select Case开头,以End Select结束。
其中,表达式列表1,表达式列表2,…称为域值。可采用3种形式:
①表达式1[,表达式2]…;
②表达式1To表达式2;
③Is关系运算表达式。其中,可使用的运算符有等于(=)、不等于(<>)、小于(<)、大于(>)、小于或等于(<=)、大于或等于(>=)。
本题中第一次输入100执行CaseElse分支,由于x是默认初值0所以输出0;第二次输入90也执行CaseElse分支,由于x是默认初值0所以输出0;第三次输入60执行第二个分支输出60。
转载请注明原文地址:https://kaotiyun.com/show/aBGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定建立了一个名为Comrnandl的命令按钮数组,则下列说法中错误的是()。
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox(”请输入年份:”))If(
有下列事件过程:PrivateSubCommandlClick()b=10DoUntilb=-1a=InputBox(”请输入a的值”)a=Val(a)b=InputBox(”请输入b的值”)
在窗体上建立通用对话框需要添加的控件是()。
面向对象的设计方法与传统的面向过程的方法有本质不同,它的基本原理是()。
已知a=5,b=/,c=12,下列表达式的值为True的是()。
用下面语句定义的数组的元素个数是()。DimA(-3To5)AsInteger
设a=“VisualBasic”,下面使b=“Basic”的语句是()。
VisualBasic提供的工具栏中,一般只显示______。
随机试题
教学是在教育目的的规范下,教师的教与_______共同组成的传递和掌握社会经验的双边活动。
下列哪项不属于温经止血药
原发性纤溶时可见
A、甘味B、酸味C、咸味D、苦味E、辛味能医治隆及培根病、脂肪增多症,去腐生肌,愈合伤口,使皮肤滋润光泽的是()。
城镇企业事业单位招用的农民合同制工人本人不交纳失业保险费。()
2016年6月6日,甲、乙、丙、丁、戊共同出资设立A有限合伙企业(以下简称“A企业”),甲、乙为普通合伙人,丙、丁、戊为有限合伙人,并签订了书面合伙协议。合伙协议的部分内容为:(1)甲、乙、丙、丁、戊按4:3:2:1:1的比例分配利润、承担风险。
竞业限制条款适用范围应限定为负有保守用人单位商业秘密义务的劳动者,其中包括()。
社区向居民发放生活物品,要求3天内发放完毕。你怎么组织?实际中可能会遇到什么问题?
设,则正确的是()
Doyougiveyourchildrenmoneywhentheyperformwellatschool?Accordingtoastudy,suchanactioncouldbe【C6】________t
最新回复
(
0
)