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

以下叙述中错误的是

发布时间:2024-07-09

A.在KeyPress事件过程中不能识别键盘的按下与释放

B.在KeyPress事件过程中不能识别回车键

C.在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母

D.在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

试卷相关题目

  • 1设有如下程序段:x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后,x的值是

    A.26

    B.27

    C.38

    D.57

    开始考试点击查看答案
  • 2在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是

    A.VVV

    B.Vis

    C.sic

    D.11

    开始考试点击查看答案
  • 3设x=4,y=8,z=7,以下表达式的值是x<y And (Not y>z) Or z<x

    A.1

    B.-1

    C.True

    D.False

    开始考试点击查看答案
  • 4表达式 5 Mod 3+35*2的值是

    A.0

    B.2

    C.4

    D.6

    开始考试点击查看答案
  • 5当一个复选框被选中时,它的Value属性的值是

    A.3

    B.2

    C.1

    D.0

    开始考试点击查看答案
  • 6执行如下两条语句,窗体上显示的是a=9.8596Print Format(a,"$00,00.00")

    A.0,009.86

    B.$9.86

    C.9.86

    D.$0,009.86

    开始考试点击查看答案
  • 7在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub对于这个程序,以下叙述中错误的是

    A.该对话框被设置为“打开”对话框

    B.在该对话框中指定的默认文件名为空

    C.该对话框的标题为VBTest

    D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

    开始考试点击查看答案
  • 8设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:Private Sub Command1_Click()Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer)y=IIf(x>10,100,-100)f,Showf.Caption=yEnd Sub运行以上程序,正确的结果是

    A.Form1的Caption属性值为100

    B.Form2的Caption属性值为-100

    C.Form1的Caption属性值为-100

    D.Form2的Caption属性值为100

    开始考试点击查看答案
  • 9在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是

    A.10 5

    B.12 5

    C.10 7

    D.12 7

    开始考试点击查看答案
  • 10设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是

    A.数组b中的偶数被保存在数组c中

    B.程序运行结束后,在窗体上显示的是c数组中元素的个数

    C.GetArray过程的参数n是按值传送的

    D.如果输入的数据大于10,则窗体上不显示任何显示

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