大一AccessVBA语句练习题 通过键盘输入一串字符，判断字母个数，数字个数，空格个数，其他字符

Option Explicit

Sub ygb()

    Dim s, i, c, n1, n2, n3, n4

    n1 = 0

    哗洞码n2 = 0

    n3 = 0

    n4 = 0

    s = InputBox("输入一串字符")

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If c >= "0" And c <= "9" Then

            n1 = n1 + 1

        ElseIf c >= "a" And c <= "z" Or c 乱哪>= "A" And c <= "Z" Then

            n2 = n2 + 1

        ElseIf c = " " Then

            n3 = n3 + 1

        Else

            n4 = n4 + 1

        End If

    Next i

    MsgBox "你输入了" & n2 & "个字母、" & n1 & "个数字、" & n3 & "个空格、" & n4 & "个其它字符。颤档"

End Sub

1.数据库系统的核心是___表_____。2.一个项目具有一个项目主管，一个项目主管可以管理多个项目，则实体集“项目主管”与实体集“项目”的联系属于___一对多______的联系。3.将表A的记录复制到表B中，且不删除表B中的记录，可以使用___追加____查询。4._____主键______是表中唯一标识一条记录的字段。5.利用查询可以建立一个新表，这样的查询称为____生成表______.6.书写查询准则时，日期值应该用___#_____括起来。7.查询包括选择查询、_命令查询__、_ *** 作查询__、_参数查询_、和SQL查询5种。8.纵栏式窗体将窗体中的一个显示记录按列分隔，每列的左边显示_字段名_，右边显示字段内容.9.创建窗体的数据库来源可以是表或___查询_____.10.组合框和列表框的主滑扰要去背是：是否可以在框中___输入____.11.在设计窗体时使用标签空间创建是单独标签，它在窗体的__数据表____视图中不能显示。12.在Access中，“自动创建报表”向导分为：纵栏式和___表格_____两种。13.在报表设计中，可以通过添加___分页符____控件来控制另起一页输出显示。14.为了在报表的每一页底部显示页码号，那么应该在____页脚_____节中设置。15.用于打开查询的宏 *** 作命令是__OpenQuery_____。16.如果要引信码旦用宏组中的模逗宏，语法格式是__宏组名.宏名_____。17.显示包含警告信息或其他信息的消息框 *** 作的宏命令是_____MsgBox__。

---