位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2014年全国计算机等级《二级VB》上机考试冲刺试题(4)

在窗体上画一个命令按钮,名称为Co mmand1,然后编写下列代码:Option Base 0Private Sub Co mmand1_Click()Di m A1(4)As Integer ,A2(4)As IntegerFor k =0To 2A1(k +1)=InputBox("请输入一个整数")A2(3-k)=A1(k +1)Next k Print A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为(  )。

发布时间:2024-07-09

A.0

B.1

C.2

D.3

试卷相关题目

  • 1编写如下两个事件过程:Private Sub Form_KeyDown (KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift 键也未锁定大写键时)运行程序,如果按键盘上的"A"键,则程序输出的结果是(  )。

    A.Aa

    B.aA

    C.AA

    D.aa

    开始考试点击查看答案
  • 2下列叙述中正确的是( )。

    A.在窗体的Form_Load 事件过程中定义的变量是全局变量

    B.局部变量的作用域可以超出所定义的过程

    C.在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程

    D.在调用过程时,所有局部变量被系统初始化为0或空字符串

    开始考试点击查看答案
  • 3下列关于Sub 过程的叙述正确的是(  )。

    A.一个Sub 过程必须有一个Exit Sub 语句

    B.一个Sub 过程必须有一个End Sub 语句

    C.在Sub 过程中可以定义一个Function 过程

    D.可以用Goto 语句退出Sub 过程

    开始考试点击查看答案
  • 4在窗体上添加一个命令按钮,名为Co mmand1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出(  )。For i =1To 4For j=1To 3x=3For k =1To 2x=x+3Next kNext jNext iTextl .Text =Str(x)

    A.3

    B.6

    C.9

    D.12

    开始考试点击查看答案
  • 5复选框的Value 属性为0时,表示该复选框(  )。

    A.未被选中

    B.被选中

    C.框内有灰色的勾

    D.操作有误

    开始考试点击查看答案
  • 6下面语句正确的是(  )。

    A.If x<3*y And x>y Then y =x^3

    B.If x<3*y And x>y Then y =3x

    C.If x<3*y :x>y Then y =x^3

    D.If x<3*y And x>y Then y =x**3

    开始考试点击查看答案
  • 7下面程序的输出结果是(  )。Private Sub Co mmand1_Click()Ch$="ABCDEF"proc ch :Print chEnd SubPrivate Sub proc(ch As Stri ng)s =""For k =Len(ch)To 1Step -1s =s &Mid(ch ,k ,1)Next kch =sEnd Sub

    A.ABCDEF

    B.FEDCBA

    C.A

    D.F

    开始考试点击查看答案
  • 8语句Di ma(-3To 4,3To 6)As Integer 定义的数组元素个数是(  )。

    A.18

    B.28

    C.21

    D.32

    开始考试点击查看答案
  • 9以下叙述中错误的是(  )。

    A.一个工程中只能有一个Sub Main 过程

    B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体

    C.窗体的Hide 方法和Unload 方法的作用完全相同

    D.若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体

    开始考试点击查看答案
  • 10用Print 方法在Forml 窗体中显示出4个#号的正确代码为(  )。

    A.Debug .Print"####"

    B.Print"####"

    C.Forml-Print"####"

    D.Forml .Print"####"

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