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

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dim SaveAll As StringPrivate Sub Form_Load()ShowTextl.Text=""Textl.SetFocusEnd SubPrivate Sub Command1_Click()Textl.Text=LCase (SaveAll) +SaveAl1End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为(    )。

发布时间:2024-07-09

A.vbVB

B.不显示任何信息

C.VB

D.出错

试卷相关题目

  • 1设有如下通用过程:Public Function Fun (xStr As String) As StringDim tStr As String, strL As IntegertStr=""strL=Len (xStr)i=strL/2Do While i<=StrLtStr=tStr &amp; Mid (xStr,i+1,1)i=i+1LoopFun=tStr &amp; tStrEnd Function在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:Private Sub Command1_Click()Dim S1 As StringS1="ABCDEF"Textl.Text=LCase(Fun(S1))End Sub程序运行后,单击命令按钮,文本框中显示的是(    )。

    A.ABCDEF

    B.abcdef

    C.defdef

    D.defabc

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

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

    B.调用过程时使用的实参的个数应与过程形参的个数相同

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

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

    开始考试点击查看答案
  • 3在窗体上画一个命令按钮(名称为Command1),并编写如下代码:Function Funl (ByVal a As Integer, b As Integer) As IntegerDim t As Integert=a-bb=t+aFunl=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx=10Print Funl (Funl (x, (Funl (x, x-1))), x-1)End Sub程序运行后,单击命令按钮,输出结果是(    )。

    A.10

    B.0C.11D.21

    开始考试点击查看答案
  • 4在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:Private Sub func(L As Label)L.Caption="1234"End SubPrivate Sub Form_Load()Label1.Caption="ABCDE"Label2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为

    A.ABCD和10

    B.1234和100

    C.ABCD和100

    D.1234和10

    开始考试点击查看答案
  • 5以下关于函数过程的叙述中,正确的是(    )。

    A.函数过程形参的类型与函数返回值的类型没有关系

    B.在函数过程中,过程的返回值可以有多个

    C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递

    D.如果不指明函数过程参数的类型,则该参数没有数据类型

    开始考试点击查看答案
  • 6设有以下程序:Private  Sub  Form_Click()x=50For i=1 To 4y=InputBox("请输入一个整数")y=Val(y)If y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为(    )。

    A.100

    B.50

    C.120

    D.70

    开始考试点击查看答案
  • 7以下关于菜单的叙述中,错误的是(    )。

    A.当窗体为活动窗体时,用Ctrl+E键可以打开菜单编辑器

    B.把菜单项的Enabled属性设置为False,则可删除该菜单项

    C.弹出式菜单在菜单编辑器中设计

    D.程序运行时,利用控件数组可以实现菜单项的增加或减少

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

    A.在程序运行时,通用对话框控件是不可见的

    B.调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)可以打开不同的对话框窗口

    C.调用通用对话框控件的Show()pen方法,能够直接打开在该通用对话框中指定的文件

    D.调用通用对话框控件的ShowColor方法,可以打开颜色对话框窗口

    开始考试点击查看答案
  • 9设在工程文件中有一个标准模块,其中定义了如下记录类型:Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是(    )。

    A.Private Sub Command1_Click()Dim B AS BooksOpen "Person.txt" For Output As #1B.Name=InputBox ("输入姓名")B.TelNum=InputBox ("输入电话号码")Write #1,

    B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen "Person.txt" For Input As #1B.Name=InputBox ("输入姓名")B.TelNum=InputBox ("输入电话号码")Print #1, B.Name, B.TelNureClose #1End Sub

    C.Private Sub Command1_Click()Dim B AS BooksOpen "Person.txt" For Output As #1B.Name=InputBox ("输入姓名")B.TelNum=InputBox ("输入电话号码")Write #1, BClose #1End Sub

    D.Private Sub Command1_Click()Open "Person.txt" For Input As #1Name=InputBox ("输入姓名")TelNum=InputBox ("输入电话号码")Print #1, Name, TelNumClose #1End Sub

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