首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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
2020-01-02
36
问题
设有如下事件过程:
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 While 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/FmTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:PrivateSubForm_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序运行后,单击窗体
现有如下一段程序:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(3,5,7,9):x=1Fori=4To1Step-1s=s+a
在窗体上画一个列表框和一个命令按钮,其名称分别为list1和Command1,然后编写如下事件过程:PrivateSubFormload()List1.Addltem”Item1”:List1.Addltem”Itern2”:L
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()Text1.Text=””:Text1.SetFocusEndSubPrivateSubForm_Click()Dim
某人编写了下面的程序,希望能把Textl文本框中的内容写到out.txt文件中PPrivateSubCommandl_Click()Open”out.txt”ForOutputAs#2Print”Text”
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框PrivateSubCommandqClick()CD1.DialogTitle=“打开文件”CD1.InitDit="C:\"CDl.Filte
在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器,并编写有如下几个事件过程:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
假定有以下循环结构DoUrntil条件循环体Loop则正确的描述是()。
设非空二叉树的所有子树中,其左子树上的结点值均小于根结点值,而右子树上的结点值均不小于根结点值,则称该二叉树为排序二叉树。对排序二叉树的遍历结果为有序序列的是()。
随机试题
在美国,电风扇要求安全、轻巧、便宜,中国企业若要把电风扇出口到美国则适宜采取的产品质量标准战略为()
兴奋通过突触传递特征的叙述,错误的是
32.党的十五大把邓小平理论确立为党的指导思想并写进党章。
足少阳胆经起于
尘埃是空气中微生物的重要载体,体积较大的颗粒尘埃因地心引力的关系而迅速下沉,但可长期保持悬浮状态的尘埃颗粒直径应为
患者,女性,35岁,自诉后牙松动来院求治。检查发现根分叉完全暴露。水平方向可穿通。X线片示:牙根周围明显骨丧失,对其根分叉病变分类正确的是
乳化沥青贯人式路面,其厚度通常为()cm。
某国对吸烟情况进行了调查,结果表明,最近三年来,中学生吸烟人数在逐年下降。于是,调查组得出结论:吸烟的青少年人数在逐年减少。下述哪项如果为真,则调查组的结论受到怀疑?
下列程序的运行结果是()。#include<stdio.h>voidsub(int*s,int*y){staticintm=4;*y=s[m];m--;}voidmain(){inta[]={1,2,3,4,5},k,x;
Whydowecry?Canyouimaginealifewithouttears?Notonlydotearskeepyoureyeslubricated,theyalsocontaina【B1】______
最新回复
(
0
)