首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,并编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, a As Integer, j As Integer
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,并编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, a As Integer, j As Integer
admin
2015-09-23
38
问题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,并编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, a As Integer, j As Integer
For i = 1 To 2
a = 0
j = 1
Do Until j > i + 1
a = a + 1
j = j + 1
Loop
Next
Text1.Text = a
End Sub
当程序运行过程中,单击Command1后,在Text1中的输出结果为
选项
A、3
B、2
C、1
D、0
答案
A
解析
Do Until…Loop,当程序开始执行时,先计算循环"条件"值,当条件为真时结束循环,否则执行循环体。外层For循环,循环变量i的取值从1到2。当i=1时,a=0,j=1,进入Do Until内层循环,循环条件1>1+1为假,执行循环体,a=0+1=1,j=1+1=2,内层循环继续执行,循环条件2>1+1为假,执行循环体,a=1+1=2,j=2+1=3,再计算内层循环条件3>1+1为真,退出内层Until循环体;当i=2时,a=0,j=1,进入Do Until内层循环,循环条件1>2+1为假,执行循环体,a=0+1=1,j=1+1=2,内层循环继续执行,循环条件2>2+1为假,执行循环体,a=1+1=2,j=2+1=3,内层循环继续执行,循环条件3>2+1为假,执行循环体,a=2+1=3,j=3+1=4,再计算内层循环条件4>2+1为真,退出内层Until循环体,再退出For循环,故a=3。正确答案为选项A。
转载请注明原文地址:https://kaotiyun.com/show/FFLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubCommand1_Click()DimCAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")Do
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
为了使标签能自动调整大小以显示全部文本内容,应把标签的【】属性设置为True。
有如下事件过程:PrivateSubCommand1_Click()b=10DoUntilb=-1a=InputBox("请输入a的值")
下述程序执行后,输出结果是()。Forn=3To1Step-1x$=String$(n,"#")Printx$Nextn
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干国家的名称,当单击列表中的某个国家名时,在标签中显示选中国家的名称。下列正确实现上述功能的程序是()。
为了使用窗体输出,使Print方法在Form_Load事件中起作用,必须设置窗体的()属性。
在考生文件夹下有文件in6.txt,文件中有几行汉字。请在窗体Form1上绘制一个文本框,名称为Text1,能显示多行;再绘制一个命令按钮,名称为Cmd1,标题为“保存”。并编写适当的事件过程,使得在加载窗体时,把in6.txt文件的内容显示在文本框中,然
随机试题
超声图像中,形成均匀低回声的是
引起医院内肺炎的致病原大多是()
Fo目前仅用于
下列何药对心绞痛和高血压均有效
疟疾产生黑尿热常与患者缺乏下列哪种酶有关
下列哪一类案件可以由被告住所地法院管辖?()(司考.四川.2008.3.39)
[2004年第42题]热量传递有三种基本方式,它们是导热、对流和辐射。关于热量传递,下面哪个说法是不正确的?
发现食品安全事故,事故单位应当向食品安全监督管理部门报告。()
以下不能定义为用户标识符是
OnehundredandthirteenmillionAmericanshaveatleastonebank【B1】______creditcard.Theygivetheirowners【B2】______credit
最新回复
(
0
)