首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim sum As Integer,X As Integer num=Val(InputBox(”请输入一个正
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim sum As Integer,X As Integer num=Val(InputBox(”请输入一个正
admin
2017-11-23
64
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Commandl_Click()
Dim sum As Integer,X As Integer
num=Val(InputBox(”请输入一个正整数”))
Select Case num
Case Is>100
x=x+sum
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
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。本题中第一次输入100执行Case Else分支,由于x是默认初值0所以输出0;第二次输入90也执行Case Else分支,由于x是默认初值0所以输出0;第三次输入60执行第二个分支输出60。
转载请注明原文地址:https://kaotiyun.com/show/lyGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
执行下列程序后,鼠标单击窗体,输出结果为。 PrivateSubForm_Click() Print“Click”; EndSub PrivateSubForm_MouseDown(ButtonAsInteger,Shift_
设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发
程序段:S=0ForI=1to5step2S=s+INextIPrintI语句S=S+1执行的次数和最后I的值分别为()。
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()a=4:b=5:c:6Printa=b+cEndSub程序运行后,单
数据库系统中实现各种数据管理功能的核心软件称为______。
在VisualBasic的立即窗口内输入以下语句X=97<CR>?Chr$(X)<CR>在窗口中显示的结果是【】。
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSu
要使菜单项MenuOne在程序运行时失效,使用的语句是
窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是
随机试题
曲线的拐点坐标为________.
InternetExplorer是()
急性坏死型胰腺炎患者出现的休克多属于
新生儿缺氧缺血性脑病最主要的治疗是
辩护律师从何时起可以开始查阅案件所指控的犯罪事实的材料?
若某点按s=8-2t2(s以“m”计,t以“s”计)的规律运动,则t=3s时点经过的路程为()。
在现浇钢筋混凝土楼盖设施中,梁的跨度为6m,板的跨度为4m,当设计无特别要求时,楼盖混凝土拆模时现场混凝土强度应大于等于()设计要求。
请根据下面八年级下册的语言材料,用英文简述这节阅读课的教学目标和教学重难点。(1)教学目标;(2)教学重难点。GreenSwitzerland
Islamiclawisaparticularlyinstructiveexampleof"sacredlaw".Islamiclawisaphenomenonsodifferentfromallotherforms
Isthereapopulationproblem?Myanswer【C1】______thequestionis"YES",thereisaproblem.Thescaleofhumanactivitiesisno
最新回复
(
0
)