VBA程序设计习题.ppt

2020 1 1 黑马培训 1 计算机等级考试培训 ACCESS 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮 然后编写如下事件过程 PrivateSubCommand1 Click 此处有下划线 Dimarray1 10 10 AsIntegerDimi jAsIntegerFori 1To3Forj 2To4array1 i j i jNextj1NextiText1 Text array1 2 3 array1 3 4 EndSub程序运行后 单击命令按钮 在文本框中显示的值是A 5B 7C 12D 19 2020 1 1 黑马培训 2 计算机等级考试培训 ACCESS 解析 题目定义了一个二维数组 使用二重循环给数组赋值 经过循环后 数组array1 2 3 5 array1 3 4 7 然后将array1 2 3 array1 3 4 赋给Text1 最后结果为12 2020 1 1 黑马培训 3 计算机等级考试培训 ACCESS 单击窗体上Command1命令按钮时 执行如下事件过程 PrivateSubCommand1 Click a softwareandhardware b Right a 8 c Mid b 1 8 MsgBoxc EndSub则在弹出的信息框的标题栏中显示的信息是A softwareandhardwareB softwareC HardwareD and 2020 1 1 黑马培训 4 计算机等级考试培训 ACCESS 本题考查字符串截取Right和Mid函数 程序开始给a 赋值 然后将a 右边第1个字符开始到第8个字符赋值给b 也就是hardware 此时利用Mid函数截取b 字符串 从第1个开始 截取8个 相当于截取了b 所有的字符 因此结果是hardware 答案为C 2020 1 1 黑马培训 5 计算机等级考试培训 ACCESS 在窗体上画一个命令按钮 然后编写如下事件过程 PrivateSubCommand1 Click Dima a Array 1 3 5 7 s 0Fori 1To3s s 10 a i NextiPrintsEndSub程序运行后 输出结果为A 135B 357C 531D 753 2020 1 1 黑马培训 6 计算机等级考试培训 ACCESS 有如下VBA代码 运行结束后 变量n的值是n 0Fori 1To3Forj 4To 1n n 1NextjNextiA 0B 3C 4D 12本题为嵌套的两层for循环 由题可知每次内层for循环执行一次 n的值即加1 由外层for循环执行3次 每次内层for循环都执行4次 即内层for循环共执行12次 即循环结束时n的值为12 2020 1 1 黑马培训 7 计算机等级考试培训 ACCESS 在有参函数设计时 要想实现某个参数的 双向 传递 就应当说明该形参为 传址 调用形式 其设置选项是A ByValB ByRefC OptionalD ParamArray解析 参数传递过程可以有两种参数调用方法 单向 的传值调用 ByVal 和双向的传址调用 ByRef 2020 1 1 黑马培训 8 计算机等级考试培训 ACCESS 有如下程序段 PublicSubxy aAsInteger bAsInteger DimtAsIntegerDot aModba b b tLoopWhiletPrintaEndSub用Callxy 96 40 调用该通用过程后 输出结果是A 6B 8C 10D 12 2020 1 1 黑马培训 9 计算机等级考试培训 ACCESS 解答此题的关键是读懂Do Loop循环的执行过程 理解Mod运算的含义 Mod是求模运算 所以t的值总是a除以b的余数 Do Loop循环要执行若干次 每执行一次循环体 变量t a和b都会取得一个新值 就是 将上一次的除数作为