首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Commandl ClickO Dim a As Integer,b As Integer a=3:b=2 Ifa*b0 End Sub 程序运行后,单击命令按钮Commandl,输出结果为
编写如下程序: Private Sub Commandl ClickO Dim a As Integer,b As Integer a=3:b=2 Ifa*b0 End Sub 程序运行后,单击命令按钮Commandl,输出结果为
admin
2020-01-02
21
问题
编写如下程序:
Private Sub Commandl ClickO
Dim a As Integer,b As Integer
a=3:b=2
Ifa*b<10 Then
b=b+1
Else
b=b.1
End If
Print b-a>0
End Sub
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、True
B、False
C、1
D、-1
答案
B
解析
本题的程序中由于a。b<10条件成立,因此执行Then分支,b自加l变成3,最后输出b-a>0的值即False。
转载请注明原文地址:https://jikaoti.com/ti/Ugx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandl_Click()d=0:c=10:x=Array(10,12,21,32,24)Fo
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSUbCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
阅读程序:PrivateSubForm_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序运行后,单击窗体
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsInte
设有如下程序:Subf(xAsInteger,ByValYAsInteger)x=2*X:y=y+xEndSubPrivateSubCommand1Click()DimaAsInt
现有如下一段程序:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(3,5,7,9):x=1Fori=4To1Step-1s=s+a
在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程:PrivateSubCommand1_Click()aS=“softwareandhardware”b$=Right(aS,8)
在菜单编辑器中建立1个名称为Menu()的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程PrivateSubForm_MousDown(ButtonAsInteger,ShiftAsInteger,X
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_load0ShowText1.Text=“”:Text1.SetFocusEndSubPrivateSub
随机试题
用成形铣刀头铣削矩形花键小径时,为了调整小径尺寸,第一槽铣削完成后应转过180°铣削第二槽。()
19世纪末20世纪初在美国兴起的实用主义教育学的代表人物是()
材料1:列宁指出,“就本来的意义说,辩证法就是研究对象的本质自身中的矛盾。99他还指出,“是实际生活中的实际矛盾,即辩证的矛盾,而不是字面上的、臆造出来的矛盾。”材料2:杜林说,“矛盾的东西是一个范畴。这个范畴只能归属于思想组合,而不能归属于现实”材料3:
被闻一多先生誉为“诗中的诗,顶峰上的顶峰”的作品是()
A.健康携带者B.慢性携带者C.显性感染D.潜伏性感染E.隐性感染感染过程中最常见的表现是
按照企业所得税的有关规定,下列有关研究开发费的表述中正确的是()。
2001年底,我国民营企业的总户数约比2000年底增长了()。2001年底,我国民营企业户数超过20万户的省份有()。
三角形△ABC是一个钝角三角形.(1)三角形△ABC三边之比为2:2:3;(2)三角形△ABC中cos(A+B)>0
Experiencedteachersmake______mistakesthanbeginners.
Kangaroomeans______inthenativelanguageofAborigines.
最新回复
(
0
)