位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2003年4月全国计算机等级考试二级VB笔试试卷

在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Command1_Click()X = 5: Y = 3Call proc(X, Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后,单击命令按钮,则两个标签中显示的内容分别是

发布时间:2024-07-09

A.5和3

B.25和3

C.25和6

D.5和6

试卷相关题目

  • 1以下能够正确计算n!的程序是

    A.Private Sub Command1_Click()n = 5: x = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub

    B.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub

    C.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i <= nPrint xEnd Sub

    D.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub

    开始考试点击查看答案
  • 2假定有如下事件过程:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是

    A.该过程的功能是弹出一个菜单

    B.popForm是在菜单编辑器中定义的弹出式菜单的名称

    C.参数X、Y指明鼠标的当前位置

    D.Button = 2表示按下的是鼠标左键

    开始考试点击查看答案
  • 3目录列表框的Path属性的作用是

    A.显示当前驱动器或指定驱动器上的路径

    B.显示当前驱动器或指定驱动器上的某目录下的文件名

    C.显示根目录下的文件名

    D.只显示当前路径下的文件

    开始考试点击查看答案
  • 4在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:Private Sub TxtA_KeyPress(keyascii as integer)……End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是

    A.单击鼠标

    B.双击文本框

    C.鼠标滑过文本框

    D.按下键盘上的某个键

    开始考试点击查看答案
  • 5以下关于过程及过程参数的描述中,错误的是

    A.过程的参数可以是控件名称

    B.用数组作为过程的参数时,使用的是"传地址"方式

    C.只有函数过程能够将过程中处理的信息传回到调用的程序中

    D.窗体可以作为过程的参数

    开始考试点击查看答案
  • 6在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后,单击命令按钮,则标签中显示的内容是

    A.1

    B.5

    C.27

    D.45

    开始考试点击查看答案
  • 7在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是

    A.10 10 10

    B.30 30 30

    C.30 30 10

    D.10 30 30

    开始考试点击查看答案
  • 8设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:Private Sub Command1_Click()Static b As Variantb= Array(1,3,5,7,9)……End Sub此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功能,省略号处的程序段应该是

    A.For i = 0 To 5-1 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

    B.For i = 0 To 5tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

    C.For i = 0 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

    D.For i = 1 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

    开始考试点击查看答案
  • 9一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:Form1中定义的过程:Private Sub frmFunction1()……End SubForm2中定义的过程:Public Sub frmFunction2()……End SubmdlFunc中定义的过程:Public Sub mdlFunction()……End Sub在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是

    A.上述三个过程都可以在工程中的任何窗体或模块中被调用

    B.frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用

    C.上述三个过程都只能在各自被定义的模块中调用

    D.只有mdlFunction过程能够被工程中各个窗体或模块调用

    开始考试点击查看答案
  • 10在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为"Save",缺省文件名为"SaveFile",在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是

    A.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 2CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 2End Sub

    B.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 1CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 2End Sub

    C.Private Sub Command1_Click()CommonDialog1.FileName = "Save"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 2CommonDialog1.DialogTitle = "SaveFile"CommonDialog1.Action = 2End Sub

    D.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 1CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 1End Sub

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