精华内容
下载资源
问答
  • 2016年03月全国计算机等级考试二级...在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:PrivateSubCommand1_Click()MsgBoxf(24,18)EndSubPublicFunctionf(mAsInteger,nAsInteger)AsIntegerDoWh...

    2016

    03

    月全国计算机等级考试二级

    ACCESS

    》真题

    (

    总分

    100,

    考试时间

    90

    分钟

    )

    一、单选题

    1.

    在窗体中添加一个名称为

    Commandl

    的命令按钮,然后编写如下事件代码:

    Private Sub Command1_Click( )

    MsgBox f(24,18)

    End Sub

    Public Function f(m As Integer, n As Integer) As Integer

    Do While m

    n

    Do While m

    u

    m=m-n

    Loop

    Do While m

    n

    n=n-m

    Loop

    Loop

    f=m

    End Function

    窗体打开运行后,单击命令按钮,则消息框的输出结果是

    ______

    A 2

    B 4

    C 6

    D 8

    答案

    :C

    [

    解析

    ]

    函数过程

    f

    实现辗转相减法求最大公约数,用参数

    m

    n

    中的较大数减较小数直到

    m=n

    输出

    m

    n

    的最大公约数

    m

    。本题输出

    24

    18

    的最大公约数

    6

    2.

    在宏的参数中,要引用窗体

    F1

    上的

    Text1

    文本框的值,应该使用的表达式是

    ______

    A [Forms]! [F1]! [Text1]

    B Text1

    C [F1]. [Text1]

    D [Forms]_[F1]_[Text1]

    答案

    :A

    [

    解析

    ]

    宏在输入条件表达式时可以引用窗体上的控件值,语法为:

    Forms! [

    窗体名

    ]! [

    控件名

    ]

    [Forms]! [

    窗体名

    ]! [

    控件名

    ]

    3.

    表达式

    "B=INT(A+0.5)"

    的功能是

    ______

    A

    将变量

    A

    保留小数点后

    1

    B

    将变量

    A

    四舍五入取整

    C

    将变量

    A

    保留小数点后

    5

    D

    舍去变量

    A

    的小数部分

    答案

    :B

    [

    解析

    ] INT(

    表达式

    )

    返回表达式的整数部分。在表达式

    A+0.5

    中,若:①

    A

    的小数部分大于等于

    0.5

    ,整数部分加

    1

    ;②

    A

    的小数部分小于

    0.5

    时,整数部分不变。所以

    INT(A+0.5)

    的功能便是实现将

    A

    四舍五入取整。

    4.

    下列程序的功能是返回当前窗体的记录集:

    展开全文
  • (1)名称为Form1的窗体添加一个名称为Command1的命令按钮,标题为”打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①...

    (1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮,标题为”打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:

    ①设置适当属性,使对话框的标题为”打开文件”;

    ②设置适当属性,使对话框的”文件类型”下拉式组合框中有两项可供选择:”文本文件”、”所有文件”(如图所示),默认的类型是”所有文件”;

    ③编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。要求:程序中不得使用变量,事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。

    717882384f08bd7785c7fa7fc161f528.png

    (2)在名称为Form1的窗体上添加一个名称为Command1的命令按钮,其标题为”移动本按钮”,,如图所示。

    要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动100。要求:程序中不得使用变量,事件过程中只能写一条语句。

    注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

    1b604c8d832a9280fcc0632121e4d817.png

    (1)【解题思路】在窗体上建立好控件后,先设置控件属性,再编写事件过程。

    通用对话框是一种ActiveX控件,在一般情况下,启动VB后,在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中,其操作步骤如下:执行”工程”菜单中的”部件”命令,打开”部件”对话框。在对话框中选择”控件”选项卡,然后在控件列表框中,选择”MicrosoftCommon

    DialogControl6.0”。单击”确定”按钮,通用对话框立即被加到工具箱中,通用对话框的属性可以在属性窗口中直接设置。

    当通用对话框显示为”打开”或”另存为”类型时,其FileName属性用于返回或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如,过滤器为*.txt,表示显示所有的文本文件。语法为”对象名.Filter=”描述|文件扩展名”O

    打开顺序文件的基本格式为”Open

    FileName For Mode As #FileNumber”.

    FileName表示要打开的文件的路径;Mode为打开模式,OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。

    【操作步骤】

    步骤1:新建一个窗体,在窗体中设置一个命令按钮和一个通用对话框。

    在属性窗口中设置控件的属性,控件的属性见表3.14和3.15。

    表3.14

    控件命令按钮

    1 Name Caption

    设置值Command1打开文件

    表35

    线 通对琵

    Nm: DahgTteFniz

    文本文中出文件

    步骤2:编写程序代码。

    参考答案

    Private Sub Command1_Click()

    CD1.ShowOpen

    End Sub

    步骤3:调试并运行程序,保存工程,,设置工程文件名为sjt1.vbp,设置窗体文件名为 sjt1.frm.

    【举一反三】可以通过第14套第一大题第二小题来进行同类知识点的练习。

    (2) 【解题思路】在VisualBasic中,按钮的标题由Caption属性设置。通过代码要使命令按钮向左移动100,须用到按钮的Left属性,使其值在每单击一次按钮时减去

    100.

    操作步骤】

    步骤1:新建一个窗体,在窗体中添加一个命令按钮。命令按钮的属性见表3.16。

    5fdb356840d08498962b3c9902ed8d27.png

    步骤2:编写程序代码。

    参考答案

    Private Sub Command1_Click()

    Command1.Left = Command1.Left - 100 End Sub

    步骤3:调试并运行程序,保存工程,,设置工程文件名为sjt2.vbp,设置窗体文件名为 sjt2.frm.

    【举一反三】可以通过第31套第一大题第二小题来进行同类知识点的练习。

    展开全文
  • vb自动播放CD

    2011-05-25 09:18:00
    属性名称=frmplayVCD,caption=自动播放VCD在窗体添加一个mediaplayer控件,命名mediaplayer1,previewMode 属性值False、在窗体添加一个Timer控件,命名Timer1在窗体上 添加三command控件,caption属性值...
    在该工程中新建一个form,属性名称=frmplayVCD,caption=自动播放VCD
    在窗体上添加一个mediaplayer控件,命名为mediaplayer1,previewMode 属性值为False、
    在窗体上添加一个Timer控件,命名为Timer1
    在窗体上 添加三command控件,caption属性值为关闭光驱,弹出光驱,和退出、
    编写代码
    在form的通用声明中添加:
         private declare Function mciSendString Lib "winmm.dll"Alia " mciSendStringA(ByVal lpsttrCommand As String,ByVals lpstrReturnString As String,ByVal uReturnLength  As long,ByVal hwndCallback As long) As Long
         Dim result As Integer
         Dim ReturnString As String *128
    在Form的load事件中添加如下代码
    frmPlayVCD.Caption="示例"
    timer1.Enabled=True
    Timer1.Interval=1000
    在Timer1的timer事件添加
    Dim fs, d, dc, sFile1, sFile2
    Set fs =CreateObject("Scripting.FileSystemObject")
    Set dc  =fs.Drives
    For Each d In dc
        If d.DriveType=4 Then
             sFile = d.driveletter + "/mpegav/avseq01.dat"
             sFile = d.driveletter + "/mpegav/music01.dat"
             If d.Isready And fs.FileExists(sFilel) Then
                 
     
                 Timer1.Enabled=False
                 frmPlayVCD.Caption ="示例-"+sFile2
                 MediaPlayer1.FileName =sFilel
                 MediaPlay1.Play
            End If
            If d.Isready And fs .FilelExists(sFile2) Then
               Timer1.Enabled =False
               frmPlayerVCD.Caption ="示例-"+sFile2
               MediaPlayer2.FileName =sFile2
               MediaPlay2.Play
           End If
       End If
    Next
    End Sub
    在关闭的按钮控件的Click事件添加代码
     
     
    on Error Resume next
    result =mciSendString ("set cdaudio door closed ",ReturnString,127 ,0)
    Timer1.Interval =1000
    Timer1.Enable =True
     
     
    在弹出按钮添加
    On Error Resume Next
    MediaPlayer1.Stop
    MediaPlayer1.FileName =" "
    frmPlayVCD.Caption ="示例"
    result = mciSendString("set cdaudio door open ",ReurnString ,127,0)
     
    退出的Click事件添加
     
    Unload Me
    end
     
     
     
     
     
    运行程序后,将VCD盘放入光驱内单机关闭光驱即可播放
    展开全文
  • 检索“标识”或“自动编号”值:提供一个特定示例,它将 Microsoft SQL Server 表的“标识”(Identity) 字段所生成的值以及 Microsoft Access 表的“自动编号”(Autonumber) 字段映射到表插入行的列。...
  • 图书管理系统毕业设计+源码-java

    千次下载 热门讨论 2012-05-06 13:45:09
    在窗体中添加一个Databinder控件(DataBinder控件从记录集中绑定字段到其它控件的属性中。当属性绑定时,它将自动以当前记录中该字段的值设置。与DataSource控件一样,DataBinder控件在窗体运行时也不显示,它只管理...
  • 实例276 向系统菜单中添加自定义菜单 实例277 创建带历史信息的菜单 实例278 创建分栏式菜单 实例279 创建弹出式菜单 实例280 控件上的弹出式菜单 实例281 创建带图标的菜单 实例282 无标题栏窗体添加菜单 ...
  • 算法与程序设计上机任务11 请同学们下载本文档添加作业内容后再上传 班级 座号 姓名...并添加一个窗体文件"Form2.frm"保存d盘自己的文件夹下添加4个文本框和1个按钮"Command1_Click"事件编写代码使之能够实现如下
  • 1.4.3 重用第一个windows窗体 50 1.5 visual studio 2010的特色功能 51 1.5.1 构建配置 51 1.5.2 任务列表 53 1.5.3 command窗口 54 1.5.4 server explorer 54 1.5.5 visual studio 2010记录和使用宏 55...
  • 目 录 第1 章 VB 2 0 0 8核心元素.......................... 1 1 . I 原来的关键字和语法......................1 ....1 ....1.3.1 IfT h e n ............................. 3 ASP.NET使用 文化设S .........................
  • 图书库存管理系统

    2013-06-01 23:05:09
    在窗体中一个计时器控件,在该控件用于控制FLASH画面显示的时间。 在放一个文本控件,用于计时,设置visible的属性假,text属性为1一个图片控件,并引入一个图片, 2:制作系统主控界面,FROM2(MAINFROM...
  • 29713.2.3 Access的控件向导、生成器和 工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白 窗体 30213.3.3 向窗体页眉上添加一个标签 30313.3.4 格式...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29713.2.3 Access的控件向导、生成器和 工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白 窗体 30213.3.3 向窗体页眉上添加一个标签 30313.3.4 格式...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...
  • 29613.2.2 工具箱 29713.2.3 Access的控件向导、生成器和工具栏 29813.3 使用工具箱添加控件 30013.3.1 创建作为主窗体基础的查询 30113.3.2 创建一个具有页眉和页脚的空白窗体 30213.3.3 向窗体页眉上添加一个标签 ...

空空如也

空空如也

1 2 3 4
收藏数 70
精华内容 28
关键字:

在窗体中添加一个名称为command1