首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: Private Sub Commandl_Click()Dim a a=Array(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Print fun(a(k一1),a(k));”
设有如下事件过程: Private Sub Commandl_Click()Dim a a=Array(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Print fun(a(k一1),a(k));”
admin
2018-10-15
53
问题
设有如下事件过程:
Private Sub Commandl_Click()Dim a
a=Array(12,3,8,5,10,3,5,9,2,4)
For k=1 To 9
Print fun(a(k一1),a(k));””;
Next k
End Sub
Private Function fun(x,y)As Integer
Do Wbile X>=y
x=x-y
Loop
fun=x
End Function
程序运行时的输出结果是
选项
A、4 0 1 0 3 0 0 4 0
B、0 3 3 5 1 3 5 1 2
C、9 -5 3 -5 7 -2 -4 7 -2
D、9 3 3 5 7 3 5 7 2
答案
B
解析
本题中函数fun的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参,直到比第二个形参小为止;在按钮的单击事件中循环调用9次函数,每次都用数组的前一个元素和后一个元素作为函数的实参,所以应输出的是12-3—3—3.3、3、8—5、5、10一3、3、5、9-2、2。
转载请注明原文地址:https://kaotiyun.com/show/GGFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4 Forj=1Tois=s+j Nextj p=p*sNextiP
有下面程序代码:PrivateSubCommand1_Click()Dima(3,3)AsIntegers=0Fori=1To3Forj=1To3
有如下程序代码:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=0To30i=i+3n=n+1
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:PrivateSubCommand1_Click()Staticaa=1:b=2:c=3Callf(a,b,c)Print
通用对话框Filter属性的作用是
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLong DimsAsLong p=a Fork=1Ton p=p*a Next
编写如下程序:PrivateSubCommand1_Click()DimkAsIntegerx=1Fork=1To3x=x*fun(k)NextkPri
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。PrivateSubCommand1_Click()Dima()AsInteger
随机试题
患者,男,12岁,4个第一磨牙远中关系,前牙Ⅲ度深覆,Ⅱ度深覆盖,下切牙咬在上牙腭侧龈组织,上前牙有散在间隙,上颌A区侧切牙舌向错位,下颌闭合道接近正中合时后退。面中1/3轻度前突,面下1/3较短。对此患者的矫治设计最可行的是
关于内脏器官的叙述,下列正确的是
肾病综合征最主要诊断依据是
污染物对机体的毒作用,主要取决于机体对污染物的
厌食油腻厚味,多见于()
甲公司与乙公司签订货物买卖合同,丙公司在买卖合同中注明保证甲公司按合同约定向乙公司支付货款,合同约定的甲公司支付货款的期限到期,甲公司未支付货款,乙公司以丙公司为被告向法院提起诉讼,以下说法正确的是()
气体灭火系统中气体驱动装置水平管道采用管卡固定。管卡的间距不宜大于()。
在抽样调查抽取样本单位时,每次抽取时抽出来的是一组,而不是一个个体单位,这种抽样方法是()。
王昌龄最擅长的是()。
A—midfieldB—backfieldC—cheerteamD—shootE—cornerballF—kick-offG—stoppingH—passI—tackleJ—attackK—defenceL—bodycheck
最新回复
(
0
)