首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1 Click() Dim m As Integer,n As Integer m=2:n=1 Select Case m Case 1 Select Case n Case 1 Print“AAA”
编写如下程序: Private Sub Command 1 Click() Dim m As Integer,n As Integer m=2:n=1 Select Case m Case 1 Select Case n Case 1 Print“AAA”
admin
2020-04-18
67
问题
编写如下程序:
Private Sub Command 1 Click()
Dim m As Integer,n As Integer
m=2:n=1
Select Case m
Case 1
Select Case n
Case 1
Print“AAA”
Case 2
Prim“BBB”
Case 2
Print“CCC”
End Select
End Sub
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、AA A
B、BBB
C、CCC
D、1
答案
C
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。本题是一个嵌套的Select Case语句,首先判断m的值,本题由于m的值为2,所以不会执行Case 1分支,直接执行Case 2分支输出“CCC”.
转载请注明原文地址:https://kaotiyun.com/show/a0Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer() ch=Chr(
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger) SelectCaseIndex Case0 Text1(1).
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() Dima(3,3) Form=1To3 Forn=1To3 Ifn=mOrn=4-mThen
以下关于文件的叙述中,错误的是
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)P
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( )。
在下列数组定义语句中,数组元素个数与其他三个数组不同的是
下列各声明语句中错误的是
表达式Str(Len(”123”))+Str(77.7)的值是()。
(1)考生文件夹下的工程文件sjt3.vbp中有两个初始标题分别是“移动”和“退出”的命令按钮;一个初始状态为不可用的时钟Timer1。请画一个标签Label1,其标题为“计算机考试”,显示格式为黑体小四号字,左边界为500,且能根据显示内容自动调整大小
随机试题
简述亚甲蓝比色法测定阴离子合成洗涤剂的原理。
患儿,女,7岁。结喉处红肿绕喉,根脚散漫,肿势延及颈部两侧,按之中软,有应指感。治疗应首选( )。
每个单位都应设置档案机构,以便于对本单位的会计档案进行保管。()
假设一家公司的财务信息如下表所示(单位:万元)。相比第一年,该公司第二年存货资金增加的部分是由存货周转天数延长和销售成本增加引起的,其中由存货周转天数引起的存货资金增加量和所占的比例分别为()。
上海银行间同业拆放利率,在每个交易口的上午()通过上海银行间同业拆放利率网对外发布。
下列关于会计的表述中,不正确的是()。
阅读现代诗歌,要多选些好诗歌,从中接受美的_________,_________自己的情操。填入划横线部分最恰当的一项是()。
阅读下列材料,完成教学设计。在标准状况下,氧气的密度是1.429g/L,比空气的密度(1.293g/L)略大。它不易溶于水,在室温下,1L水中只能溶解约30mL氧气。在压强为101kPa时,氧气在一183℃时变为淡蓝色液体,在一218℃
教师让学生即兴回答问题,这是调动学生的()。
Alotofpeopledon’twanttotalkabouttheirage,especially(尤其是)womenover30.Thethoughtofgrowingolderisapainful(
最新回复
(
0
)