位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2010年9月全国计算机等级考试二级VB程序设计

以下程序段的输出结果是(    )。x=1 : y=4Do Until y>4x = x * yy = y + lLoopPrint x

发布时间:2024-07-09

A.l

B.4

C.8

D.20

试卷相关题目

  • 1以下关于局部变量的叙述中错误的是(    )。

    A.在过程中用Dim语句或Static语句声明的变量是局部变量

    B.局部变量的作用域是它所在的过程

    C.在过程中用Static语句声明的变量是静态局部变量

    D.过程执行完毕,该过程中用Dim或Static语句声明的变量即被释放

    开始考试点击查看答案
  • 2以下说法中错误的是(    )。

    A.如果把一个命令按钮的Default属性设置为True,则按回车键与单击该命令按钮的作用相同

    B.可以用多个命令按钮组成命令按钮数组

    C.命令按钮只能识别单击(Click)事件

    D.通过设置命令按钮的Enabled属性,可以使该命令按钮有效或禁用

    开始考试点击查看答案
  • 3在窗体上画一个文本框(名称为Textl)和一个标签(名称为Label1),程序运行后,如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是(    )。

    A.Private Sub Text1_Change()Label1.Caption = Text1.TextEnd Sub

    B.Private Sub Label1_Change()Label1.Caption = Text1.TextEnd Sub

    C.Private Sub Text1_Click()Label1.Caption = Text1.TextEnd Sub

    D.Private Sub Label1_Click()Label1.Caption = Text1.TextEnd Sub

    开始考试点击查看答案
  • 4在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub则在弹出的信息框标题栏中显示的标题是(    )。

    A.software and hardware

    B.hardware

    C.software

    D.1

    开始考试点击查看答案
  • 5语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(    )。

    A.-36

    B.1

    C.-1

    D.-72

    开始考试点击查看答案
  • 6有如下事件过程:Private Sub Form_Click()Dim n As Integerx = 0n = InputBox("请输入一个整数")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是(    )。

    A.13

    B.14

    C.15

    D.16

    开始考试点击查看答案
  • 7请阅读程序:Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNextEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp a()For i = 1 To 4Print a(i)NextEnd Sub运行上面的程序,单击命令按钮,则输出结果是(    )。

    A.2468

    B.5678

    C.10121416

    D.出错

    开始考试点击查看答案
  • 8Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数,判断大于1的整数x是否是Fibonacci数列中的某个数,若是,则返回True,否则返回False。Function Isfab(x As Integer) As BooleanDim a As Integer, b As Integer, c As Integer, flag As Booleanflag = Falsea = 1 : b = 1Do While x < bc = a + b : a = b : b = cIf x = b Then flag = TrueLoopIsfab = flagEnd Function测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是(    )。

    A.把a=b与b=c的位置互换

    B.把c=a+b移到b=c之后

    C.把Do While xb

    D.把If x=b Then flag=True改为If x=a Then flag=True

    开始考试点击查看答案
  • 9在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim a$, b$, c$, k%a = "ABCD"b = "123456"c = ""k = 1Do While k <= Len(a) Or k <= Len(b)If k <= Len(a) Thenc = c &amp; Mid(a, k, 1)End IfIf k <= Len(b) Thenc = c &amp; Mid(b, k, 1)End Ifk = k + 1LoopPrint cEnd Sub运行程序,单击命令按钮,输出结果是(    )。

    A.123456ABCD

    B.ABCD123456

    C.D6C584A321

    D.A1B2C3D456

    开始考试点击查看答案
  • 10请阅读程序:Private Sub Form_Click()m = 1For i = 4 To 1 Step -1Print str(m);m = m + 1For j = 1 To iPrint "*";Next jPrintNext iEnd Sub程序运行后,单击窗体,则输出结果是(    )。

    A.1****2***3**4*

    B.4****3***2*1*

    C.************

    D.**********

    开始考试点击查看答案
返回顶部