首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
命令按钮Command1的单击事件过程如下: Private Sub Command1_Click() Dim a(10,10)As Integer x=0 For i=1 To 3 For j=l To 3
命令按钮Command1的单击事件过程如下: Private Sub Command1_Click() Dim a(10,10)As Integer x=0 For i=1 To 3 For j=l To 3
admin
2017-12-14
47
问题
命令按钮Command1的单击事件过程如下:
Private Sub Command1_Click()
Dim a(10,10)As Integer
x=0
For i=1 To 3
For j=l To 3
a(i,j)=i*2 Mod j
If x
Next
Next
Print x
End Sub
执行上述事件过程后,窗体上显示的是( )。
选项
A、1
B、2
C、3
D、4
答案
B
解析
题目中定义了一个二维数组,为数组赋初值并找出这些值中最大的值输出。数组中的值为:
a(1,1)=1*2 mod 1=0a(1,2)=1*2 mod 2=0a(1,3)=1*2 mod 3=2
a(2,1)=2*2 mod 1=0a(2,2)=2*2 mod 2=0a(2,3)=2*2 mod 3=1
a(3,1)=3*2 mod 1=0a(3,2)=3*2 mod 2=0a(3,3)=3*2 mod 3=0
显然最大值为2,因此Print x语句将在窗体上显示2。
转载请注明原文地址:https://kaotiyun.com/show/TMGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击一次命令按钮,下列程序代码的执行结果为()。PrivateSubCommandl_Click()DimaAsInteger,bAsInteger,CASIntegera=2:b=3:c=4
要在文本框获得焦点时操作文本框中的内容,应该在()事件过程中编写程序。
结构化程序设计主要强调的是
要使命令按钮控件不可用,应设置的属性是______。
在程序运行期间,当滚动条的滑块被拖动时,则立即触发滚动条的()事件。
以下关于过程及过程参数的描述中,错误的是______。
在窗体上有一个名为Text1的文本框和一个名为Commandl的命令按钮,并编写有如下事件过程:PrivateSubCommandlClick()DimiAsInteger,nAsIntegerFor
在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Text1.TextSelectCase
下列控件中,具有Caption属性的是()。
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drivel、Dirl和Filel,为了使它们同步操作,必须触发驱动器的Change事件和目录的Change事件,在这两个事件中执行的语句分别为()。
随机试题
Spilt(打翻的)MilkIrecentlyheardastoryaboutafamousscientistwhohadmadeseveralveryimportantmedicalachievements.
在一起强奸案中,王某是被告人杨某的辩护律师,孙某是被害人李某的诉讼代理人。人民法院作出的判决已经生效后,则关于本案,下述说法正确的是:
王某将自己的电视机卖给谢某,双方约定电视机卖给谢某后仍然由王某使用一个月。根据《物权法》的规定,谢某取得电视机所有权的交付方式属于()。
关于销售商品收入的确认,下列说法中正确的有()。
教育的本质即教育的归宿问题。()
学生李某在课堂上讲话,扰乱课堂秩序,教师让其下课后到办公室,李某来到办公室后,老师先给他一颗糖,说:“这糖奖励你能遵守我们的约定,按时到来。”李某听后羞愧万分,主动向教师道歉并保证不再扰乱课堂秩序。上述案例中的教师表现出的是()。
有两个时钟均出现了问题,一个每小时快15分钟,另一个每小时慢20分钟。在标准时间早8点,将两个钟表调准。当快钟显示时间为下午6点时,使它停摆,等慢钟显示时间也为下午6点时,再让快钟继续走动。那么快钟停摆了多久?()
试述从五四运动到中国共产党成立,马克思主义在中国传播的情况及其原因。
某系统结构图如下图所示,则该系统结构图的宽度是
Oneofthemostauthoritativevoicesspeakingtoustodayisthevoiceoftheadvertisers.Itsstridentclamourdominatesourli
最新回复
(
0
)