首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
49
问题
编写如下程序:
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/ByHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIn
在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮,并编写有如下事件过程:PrivateSubForm_Load()List1.Addltem"Item1":List1.AddItem"Item2
设计窗体时,双击窗体上没有控件的地方,打开的窗口是( )。
在窗体上画一个水平滚动条,其属性值满足Min
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() DimnumAsInteger,xAsInteger num=Val(InputBox("请输入一个正整数"))
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图4所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值"(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
假定在标准模块中的声明部分有如下语句:PublicVarAAsInteger而在窗体模块的声明部分有如下语句:PublicVarBAsInteger则以下叙述中正确的是
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
患者女性,52岁。10年前患乳腺癌,做过乳房切除和放射治疗,现因背部疼痛就诊,实验室检查血钙浓度显著升高,有重度高钙血症。
关于视网膜中央动脉的描述,正确的是
诊断胎儿遗传性疾病,准确性较差的产前诊断技术是()
资助危害国家安全犯罪活动罪所资助的具体犯罪是以下几种?()
我国建设工程监理的特点为( )。
属于比尔·盖茨确立的10大优秀员工准则的是()。
四三拍的强弱规律是()。
轿车:汽车
最易并发颅底骨折或颅脑损伤的颌骨骨折是()。
慢性背疼通常是由成疝的或退化的脊椎骨引起的。在大多数情况下,脊椎骨在慢性疼痛形成之前就已受损。实际上,30岁以上的人中,有1/5的人脊椎骨成疝或退化,但并不显示任何慢性症状。在这种情况下,如果后来发生慢性背疼痛,一般都是由于缺乏锻炼致使腹部和脊部的肌肉退化
最新回复
(
0
)