首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim i As Integer, x As Integer i = 1 While i
编写如下程序: Private Sub Command1_Click() Dim i As Integer, x As Integer i = 1 While i
admin
2020-07-22
38
问题
编写如下程序:
Private Sub Command1_Click()
Dim i As Integer, x As Integer
i = 1
While i <= 5
x = InputBox("请输入第" & i & "个数:")
If x Mod 3 = 2 Then
If x \ 5 = x / 5 Then
Print "A";
Else
Print "B";
End If
End If
i = i + 1
Wend
End Sub
程序运行后,单击命令按钮Command1,并依次在输入对话框中输入11、20、15、32、17,输出结果为
选项
A、BAABB
B、ABBAA
C、BABB
D、ABAA
答案
C
解析
接收从对话框输入的数字,并将其赋值给整型变量x,如果满足x对3取模为2且x被5整除,则输出A,如果仅满足x对3取模为2但x不能整除5,输出B。11、20、32、17都满足对3取模为2条件,其中20,15能整除5,11,17不能整除5。输出结果为BABB,选择C项。
转载请注明原文地址:https://kaotiyun.com/show/cuHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为().
下列程序的执行结果为()。A="5":B="6"A=VaI(A)+Val(B)B=Val("56")IfA<>BThenPrintA-BElsePrintB-A
下列关于窗体的描述中,错误的是()。
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shapel.Top=0Timer1.Interva
以下关于VB文件的叙述中,正确的是
在数据库设计中,将E—R图转换成关系数据模型的过程属于
为了把命令按钮设置为图形格式,其Style属性值为()。
按照“后进先出”原则组织数据的数据结构是
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
随机试题
A.急性普通型肝炎B.慢性持续性肝炎C.慢性活动性肝炎D.急性重型肝炎E.亚急性重型肝炎镜下见肝细胞广泛气球样变性、点状坏死,其病变符合()的病理表现。
李伍为惯常居所地在甲国的公民,满成为惯常居所地在乙国的公民。甲国不是《保护文学艺术作品伯尔尼公约》缔约国,乙国和中国是该公约的缔约国。关于作品在中国的国民待遇,下列哪些选项是正确的?(2012年卷一82题)
(2017年真题)2015年8月29H,全国人大常委会决定:在中国人民抗日战争暨世界反法西斯战争胜利70周年之际,对部分服刑罪犯予以特赦。根据宪法,发布特赦令的是()。
从材料上分,路基可分为( )。
Mate’sreceiptisissuedbytheforwardertotheshipper.()
当收购人取得被收购公司的股份达到5%但未超过20%时,应当披露的信息有()。Ⅰ.投资者及其一致行动人的姓名、住所Ⅱ.上市公司的名称,股票的种类、数量、比例Ⅲ.权益变动事实发生之日前6个月内通过证券交易所的证券交易买卖该公司股票的简要情况Ⅳ
假定玉米市场的需求是缺乏弹性的,玉米的产量等于销售量且等于需求量,恶劣的气候条件使玉米产量下降20%,在这种情况下()。
有7名运动员参加男子5千米的决赛,他们是:S,T,U,W,X,Y和Z。运动员穿的服装不是红色,就是绿色,没有运动员同时到达终点,已知的信息如下:相继到达终点的运动员,他们的服装不全是红色的。Y在T和W之前的某一时刻到达了终点。在Y之前
PresidentBarackObama’spicktoheadtheEnvironmentalProtectionAgency(EPA),LisaJackson,hasspent20yearsasanenvironme
A、Hedidquitewellwithit.B、Hehasmoneyproblemnow.C、Heisinneedofqualifiedstaff.D、Hecouldnotcarryitonanymore
最新回复
(
0
)