首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim m As Integer,n As Integer m=2:n=1 Select Case m Case1 Select Case n Case1 Print"AAA" Ca
编写如下程序: Private Sub Command1_Click() Dim m As Integer,n As Integer m=2:n=1 Select Case m Case1 Select Case n Case1 Print"AAA" Ca
admin
2020-04-18
69
问题
编写如下程序:
Private Sub Command1_Click()
Dim m As Integer,n As Integer
m=2:n=1
Select Case m
Case1
Select Case n
Case1
Print"AAA"
Case2
Print"BBB"
Case2
Print"CCC"
End Select
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、AAA
B、BBB
C、CCC
D、1
答案
C
解析
多分支控制结构又称为SelectCase语句或Case语句,可以同时对条件的多个取值来判断。本题是一个嵌套的Select Case语句,首先判断m的值,本题由于m的值为2,所以不会执行Case1分支,直接执行Case2分支输出“CCC”
转载请注明原文地址:https://kaotiyun.com/show/IlTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Commandl),并编写如下代码:FunctionFunl(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-b
下面的程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()Dima(1To6)AsIntegerDimmini%,i%,j%,n%,t%,k%a(1)=8
为了在运行时能显示窗体左上角的控制框(系统菜单),可以设置以下哪个属性的值为True()。
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。在横线处应填写()。PrivateSubCommand1_Click()DiminDataAsStrin
已知数组Dima(1To10)AsInteger,则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Dima(10)AsInterger,p(3)AsIntergerK=5
在文本框中,要设置显示的文本颜色,应该设置()属性。
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimx%,y%,z%x=InputBox(”请输入第1个整数”):y=InputBox(”请输入第2个整数
下列操作说明中,错误的是
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
随机试题
等螺旋角锥度刀具可采用铣等速螺旋线的方法进行加工。()
泵抽空你怎样处理?
患者,女性,32岁,5天前出现发热、乏力、恶心、食欲下降,查巩膜轻度黄染,肝肋下1cm,质软,ALT760U/L,总胆红素54μmol/L,考虑该病人为“病毒性肝炎”。下列检查中,对进一步明确诊断意义最大的是
不属于MRI设备构成的是
下列有关股东会议的说法正确的是:()
注册会计师通常在审计计划和审计报告阶段可以使用分析程序,而在审计测试阶段则由实质性测试方法来代替分析程序。( )只有当被审计单位相关数据之间存在某种预期关系时,注册会计师方可运用分析性复核程序。( )
不属于教书育人的正确方法的是()。
133,121,106,88,67,()
PRESSOFFICER£22,000PERYEARAleadingoilcompanyneedsaPressOfficerforitsbusyoffices.Youshouldbe:-goodat
ThehistoryofAfrican—Americansduringthepast400yearsistraditionallynarrated【C1】______anongoingstruggleagainst【C2】___
最新回复
(
0
)