C语言填空题部分模块练习 .ppt

1 某个窗体已编写以下事件过程 打开窗体运行后 单击窗体 消息框的输出结果为 PrivateSubForm Click DimkasInteger nasInteger masIntegern 10 m 1 k 1DoWhilek nm m 2k k 1LoopMsgBoxmEndSub2 执行下面的程序段后 b的值为 a 5b 7a a bb a ba a b3 在使用Dim语句定义数组时 在缺省情况下数组下标的下限为 模块与VBA 1024 7 0 说明 对k进行循环 循环条件是k10时 退出循环此题其实是求2 10 说明 a 5 b 7a a b 5 7 12b a b 12 7 5a a b 12 5 7 模块与VBA 4 以下是一个竞赛评分程序 8位评委 去掉一个最高分和一个最低分 计算平均分 高满分为10 请填空补充完整 PrivateSubForm Click DimMaxasInteger MinasIntegerDimiasInteger xasInteger sasIntegerDimpasSingleMax 0Min 10Fori 1to8x val InputBox 请输入分数 If ThenMax xIf ThenMin xs s xNextis p s 6MsgBox 最后得分 pEndSub S Max Min X Min X Max 说明 先将0赋予最高分Max 后面的数如果高于此数则对Max重新赋值 再将满分10赋予Min 后面的数如果小于此数则对Min重新赋值用循环语句进行8次循环 变量x存放评分分数 意思为8位评委分别评分 首先判断x的值是否大于最高分Max 如果大于 则将x的值赋予Max 做为新的最高分 然后再判断x的值是否小于最低分Min 如果小于 则将x的值赋予Min 做为新的最低分 最后用变量s累加每次输入的评分x 做为8位评委的评分总分 循环结束后 将总分s减去最高分和最低分 再除以6 就可以得到最后得分 模块与VBA 5 设有以下窗体单击事件过程 PrivateSubForm Click a 1Fori 1To3SelectCaseiCase1 3a a 1Case2 4a a 2EndSelectNextIMsgBoxaEndSub打开窗体运行后 单击窗体 则消息框的输出内容是 5 说明 循环语句中出现条件语句根据i的值来给a赋值 对i进行循环3次 再对i的值来选择赋值语句当i 1时 判断i的值 a a 1 1 1 2当i 2时 判断i的值 a a 2 2 2 4当i 3时 判断i的值 a a 1 2 1 5 模块与VBA 6 在窗体中添加一个命令按钮 命名为Command1 然后编写如下程序 PrivateSubCommand1 Click Dims iFori 1to10s s iNextiMsgBoxsEndSub7 设有如下代码 x 1Dox x 2Loopuntil 以上程序 要求循环体执行3次后结束循环 在空白处填入适当语句 55 x 7或x 7 说明 此循环对是i值的一个累加 i要循环10 所以此题其实是求 1 2 3 4 5 6 7 8 9 10 说明 此循环语句是先执行后判断 until表示条件为假时停止循环第1次循环 x x 2 1 2 3 判断条件 为假继续循环第2次循环 x x 2 3 2 5 判断条件 为假继续循环第3次循环 x x 2 5 2 7题目要求只执行3次循环 所以条件值应为真 停止循环 模块与VBA 8 在窗体中添加一个命令按钮 名称为Command1 然后编写如下代码 PrivateSubCommand1 Click Staticbasintegerb b 1EndSub窗体打开运行后 三次单击命令按钮后 变量b的值是 9 以下VBA程序运行时 内层循环总次数是 Form 0to2step1Forn m 1tom 1NextnNextm10 窗体中添加一个命令按钮 名称为Command1 然后编写如下代码 PrivateSubCommand1 Click Dimb kFork 1to6b 23 kNextkMsgBoxb kEndSub窗体打开运行后 三次单击命令按钮后 消息框的输出内容是 3 9 35 说明 b是一个整型的变量 没有初始赋值 则默认初始值为0 连击三次命令按钮 是对b做了3次累加 说明 m的循环次数是3次 每当m循环1次时 n根据m的值也相应的要循环3 所以此循环要执行 3 3 9次 说明 虽然k要程序中要循环6次 但每次循环b的值都是由一个常数加上最新的k值 所以当k 6循环到最后一次时 b的值为 b 23 6 29 结束循环最后再显示b k 就应该是29 6 35 模块与VBA 11 在窗体中添加了一个文本框和一个命令按钮 名称分别为text1和Command1 然后编写如下事件过程 PrivateSubCommand1 Click DimaasInteger yasInteger zasIntegerx 5 y 7 z 0Me Text1 Callpl x y z Me Text1 zEndSubSubp1 aAsInteger bAsInteger cAsIntger c a bEndSub打开窗体运行后 单击命令按钮 文本框中显示的内容是 12 说明 先将文本框清空 再调用Pl程序pl程序中的a b c值来源于x y z值 分别是5 7 0 执行c a b 5 7 12 再将a b c新值返回到x y z 所得应该是x 5 y 7 z 12 模块与VBA 12 有一个VBA计算程序的功能如下 该程序用户界面由4个文本框和3个按钮组成 4个文本框名称分别为 Text1 Text2 Text3 Text4 3个按钮分别为 清除 Command1 计算 Command2 和退出 Command3 窗体打开运行后 单击清除按钮 则清除所有文本框中显示的内容 单击计算按钮 则计算在Text1 Text2 和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4中 单击退出按钮则退出 请将程序填充完整 PrivateSubCommand1 Click Me Text1 Me Text2 Me Text3 Me Text4 EndSubPrivateSubCommand2 Click IfMe Text1 OrMe Text2 OrMe Text3 ThenMsgBox 成绩输入不全 elseMe Text4 Val Me Text2 Val Me Text3 3 EndSubPrivateSubCommand3 Click Docmd EndSub Val Me Text1 EndIf Close 说明 将前三个文本框的值转为数字再求平均分赋给你四个文本框结束判断语句 if和endif退出关闭语句 Docmd close 模块与VBA 13 已经窗体MyForm上有一个标签Label1和一个命令按钮Cmdbtn1 下列程序功能是当点击按钮时标签Label1显示 计算机水平考试 将下程序填充完整PrivateSub Label1 Caption 计算机水平考试 EndSub14 下面程序的功能是计算折旧年限 假设一台机器的原价值为100万元 如果每年的折旧率为4 多少年后它的价值不足50万元 将下面程序填充完整y 0 p 100 x 0 04Dop p 1 x y y 1LoopUntil MsgBoxy Cmdbtn1 Click p 50 说明 题目要求对命令按钮单击事件编写代码过程名由控件名称 事件名称 过程名后必须有一个 说明 y表示年数 p表示机器最终价钱 x表示折旧率用先执行后判断的循环语句 Until表示条件为假时执行 条件为真是结束循环 循环体语句中 p不断更新 y则不断累加年数题目所问是多少年后不值50万元 如果满足不足此价 则循环结束 所以p值为 50 模块与VBA 15 在窗体上添加一个命令按钮 命名为Command1 然后编写如下程序 Functionm xAsInteger yAsInteger AsIntegerm IIf x y x y EndFunctionPrivateSub