选修VB操作题(打印)讲解

精品文档 1欢迎下载 186 举重比赛 60 公斤级选手体重不能超过 60 公 斤 修改程序中的 1 2 3 使得在文本 Text1 中输入一个大于 60 的数时 标签 Label1 显示 超重 不能参赛 当输入一 个小于等于 60 的数时 标签 Label1 显示 合 格 可以参赛 Private Sub Command1 Click Dim t As Single 定义变量 t 值由文 本框 Text1 读入 t 1 If 2 Then Label1 Caption 超重 不能参赛 Else Label1 Caption 合格 可以参赛 3 End Sub 参考答案 1 val text1 text 2 t 60 3 End If 187 填空完成程序 使得单击 显示 按钮时 Label1 Label2 分别显示 30 10 程序代码 Private Sub Command1 Click Dim x y t As Integer x 10 y 30 If x y Then t 1 x 2 y 3 End If Label1 Caption Str x Label2 Caption Str y End Sub 参考答案 1 x 2 y 3 t 188 某公司每年的销售收入均比前一年增长 10 个百分点 按此速度 需要多少年可以实现 销售收入翻两番 即 4 倍 的目标 填空完成程序 使得当单击窗体后 在窗体 上输出问题答案 Private Sub Form Click Dim i As Single Dim s As Integer 设 s 为所求年数 定义为整型 结果由窗体输出 i 1 销售收入为 1 s 0 年数初始值为 0 Do While 1 i 2 3 Loop Print s s End Sub 参考答案 1 i 4 2 i 1 1 3 s s 1 189 填空完成程序 使得当单击 计算 按钮后 在 Text1 中显示出满足条件 2 4 6 x 80 中 最大的 x 的值 Private Sub Command1 Click Dim s As Integer Dim x As Integer s 0 x 1 Do x x 2 s s 3 Loop While s 80 x x 2 Text1 Text Str x End Sub 参考答案 1 0 2 2 3 x 190 填空完成程序 单击 计算 5 按钮后 Text1 显示 5 的值 Private Sub Command1 Click Dim a As Integer Dim i As Integer a 1 For i 2 To 2 a 3 Next 4 Text1 Text Str a End Sub 参考答案 1 1 2 5 3 a I 4 i 193 使得单击 画图 按钮后 在窗体上画出如图两 条相互垂直的线段 其中 线段 a 一端的坐标 是 600 1300 长度为 1600 b 是 a 的中垂 线 长度为 1000 提供的样图与程序画出的图 形可能不完全相同 Private Sub Command1 Click Line 2200 1300 Line 1400 300 1300 End Sub 参考答案 line x1 y1 x2 y2 就是从起 点 x1 y1 开始画到到终点 x2 y2 600 1300 第一条语句画水平线 a 1400 第二条语句画垂直线 b 194 已知一元二次方程的二次项系数 一次项系数 常数项分别为 a b c 其中 a 不等于 0 填 空完成程序 求方程的根 要求 如果方程无 实数根 则输出 无实数根 否则输出两个实 数根 Private Sub Command1 Click Dim a b c d As Single Dim x1 x2 As Single a Val Text1 Text b Val Text2 Text c Val Text3 Text If a 0 Then 判断 a 是否等于 0 d 精品文档 2欢迎下载 If d 0 Then 判断是否有实数根 x1 x2 b Sqr d 2 a Label1 Caption Str x1 Label2 Caption Str x2 Else Label3 Caption End If End If End Sub 参考答案 1 b b 4 a c 或 b 2 4 a c 2 b Sqr d 2 a 3 无实数 根 195 填空完成程序 求 X X 1 X0 的值 x 的值在程序中调用 InputBox 函数 在弹出 的标准输入对话框中输入 Private Sub Form Click Dim x As Single 定义 x 为为单精度 型变量 由标准输入对话框输入 Dim y As Single 定义 y 为单精度型 变量 值由窗体显示 x 1 InputBox 请输入变量 x If x 60 3 end if 599 填空完成程序 使得当单击窗体后 计算 1 2 3 N 500 的 N 的最小值 并在文本框 Text1 中显示出来 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim s As Integer 变量 s 存放和 Dim n As Integer 为 s 赋初值 s 1 为 n 赋初值 n 2 Do n n 1 s s n Loop While s 3 500 Text1 Text Str n End Sub 参考答案 1 0 s 存放和所以 s 初值为 0 2 0 n 初值 也为 0 3 500 600 这是一个简单的显示评语程序 填空完成程序 在文本框 Text1 中输入一个数后 单击 评语 按钮 在标签 Label1 显示评语 当输入一个 小于 60 的数时 显示 不及格 当输入一个 大于等于 60 且小于 85 的数时 显示 良好 当输入一个大于等于 85 的数时 显示 优秀 注 请不要更改原程序结构 删除 1 2 并在对应位置填写正确的代码 Private Sub Command1 Click Dim Cj As Single 定义变量 Cj 值由 文本框 Text1 读入 Cj Val 1 If Cj 2 60 Then Label1 Caption 不及格 End If If Cj 60 And Cj 85 Then Label1 Caption 优秀 End If End Sub 参考答案 1 text1 text 2 601 填空完成程序 使得单击窗体后 计算出 1 2 3 N 500 的 N 的最大值 并在文本框 Text1 中显示出来 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim s As Integer 变量 s 存放和 Dim n As Integer 为 n 赋初值 n 1 为 s 赋初值 s 2 Do While s 500 n n 1 s 3 Loop Text1 Text Str n 1 End Sub 参考答案 1 0 2 0 3 s n 602 某公司 2005 年的总产值为 2000 万元 若总产值以每年 5 的速度增长 多少年后总产 值翻一倍 填空完成程序 使得当单击窗体后 精品文档 4欢迎下载 在窗体上输出问题答案 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim p As Single 变量 p 保存年产值 Dim n As Integer 整型变量 n 为所求 年数 1 n 0 Do While p 4000 p p 2 n 3 Loop Print n n End Sub 参考答案 1 p 2000 2 1 05 3 n 1 603 填空完成程序 使得当单击 计算 7 按钮后 Text1 显示 7 的值 注 请不要更改原程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Command1 Click Dim a As Integer Dim i As Integer a 1 For i 1 To 1 Step 1 a 2 Next i Text1 Text Str 3 End Sub 参考答案 1 7 2 a i 3 a 604 填空完成程序 编程计算 1 1 2 1 3 1 4 1 99 1 100 单击窗体后 在窗体上 显示结果 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim s As Single Dim i As Integer s 1 For i 1 To 2 Step 1 If i Mod 2 0 Then s s 1 i Else s 3 End If Next i Print s s End Sub 参考答案 1 0 2 100 3 s 1 i 605 填空完成程序 编程计算 1 1 2 1 3 1 4 1 99 1 100 单击窗体后 在窗体上显示结果 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim s As Single 定义变量 s 为单精度 型 Dim i As Integer 定义循环变量 s 1 For i 1 To 2 Step 1 s s 3 Next i Print s s End Sub 参考答案 1 0 2 100 3 1 i 606 填空完成程序 使得当单击 计算 1 2 3 100 按钮后 文本框 Text1 显示 1 2 3 100 的值 注 请不要更改原程序结构 删除 1 2 3 4 并在对应位置填写正确的代码 Private Sub Command1 Click Dim a As Integer Dim i As Integer a 1 For i 1 To 2 Step 1 a 3 Next i Text1 Text Str 4 End Sub 参考答案 1 0 2 100 3 a i 4 a 607 填空完成程序 使得单击 显示 按钮后 随机 产生 10 个属于区间 0 100 的自然数 并保 存于数组 a 中 然后在窗体上显示这 10 个数 的平均值 注 学生运算结果有可能跟样图中数值不一致 注 请不要更改源程序结构 删除 1 2 并在对应位置填写正确的代码 Private Sub Command1 Click Dim a 9 As Integer Dim s As Single Dim i As Integer Me Cls s 0 Randomize For i 0 To 1 Step 1 a i Int Rnd 100 Print a i Next i For i 0 To 9 s 2 Next i Print 这 10 个自然数的平均值 s 10 End Sub 参考答案 1 9 2 s a i 608 填空完成程序 问 鸡兔同笼 共有 100 条腿 40 个头 问鸡有几只 兔有几只 单击 窗体后 在窗体上显示结果 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Form Click Dim Ji As Integer Ji 变量表示鸡的个数 Dim Tu As Integer Tu 变量表示兔的个 数 Dim Leg As Integer Leg 变量表示腿数 For Ji 1 To 40 Tu 1 计算腿数 Leg 2 Tu 4 如果腿正好 100 只 则打印 If Leg 3 Then Print 鸡 Ji 只 兔 Tu 只 精品文档 5欢迎下载 End If Next Ji End Sub 参考答案 1 40 ji 2 ji 2 3 100 这程序也可这样做 For Ji 1 To 40 For Tu 1 To 25 If Ji Tu 40 And Ji 2 Tu 4 100 Then Print 鸡 Ji 只 兔 Tu 只 End If Next Tu Next Ji 609 填空完成程序 左键单击窗体时打印下 面所示的图案 注 请不要更改原程序结构 删除 1 2 并在对应位置填写正确的代码 Private Sub Form Click Dim i As Integer Dim j As Integer For i 1 To 1 Step 1 For j 1 To i Step 1 Print Next j 2 Next i End Sub 参考答案 1 4 2 print 610 填空完成程序 使得单击 显示 按钮后 显示下面的图形 注 请不要更改原程序结构 删除 1 2 并在对应位置填写正确的代码 Private Sub Command1 Click Dim i As Integer 定义 i 为整型变 量 Dim j As Integer 定义 j 为整型变 量 For i 1 To 6 Step 1 For j 1 To 1 Step 1 Print Next 2 Print Next i End Sub 参考答案 1 I 2 j 611 填空完成程序 使得单击 显示 按钮时 Text1 Text2 分别显示变量 x y 的值 注 请不要更改原程序结构 删除 1 2 并在对应位置填写正确的代码 Private Sub Command1 Click Dim x y As Integer x 10 y 100 If x y Then 以下三条语句交换 x y 的值 t 1 x y y 2 End If Text1 Text Str x Text2 Text Str y End Sub 参考答案 1 x 2 t 612 填空完成程序 使得单击 显示 按钮后 在窗 体上显示如图 99 乘法表 注 请不要更改源程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Command1 Click Dim i As Integer Dim j As Integer For i 1 To 1 Step 1 Print For j 1 To 9 Print 2 Print vbTab Next j 3 Next i End Sub 参考答案 1 9 2 i j 打印出来的每个数字为 行 列 的值 此处注 意分号一定不能少 3 print 打印完一行 9 个数字后换行 此 处不要分号 613 填空完成程序 使得在 Text1 中输入一个数 单击 判断 按钮后 判断这个数是奇数还是偶 数并在 Label1 中显示 奇数 或 偶数 出来 注 请不要更改原程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Command1 Click Dim a As Single Dim b As Single 从 Text1 中读入这个数 并保存在变量 a 中 a Val 1 b a Mod 2 If b 0 Then Label1 Caption 偶数 Else Label1 Caption 奇数 3 End Sub 参考答案 1 text1 text 2 2 判断一个数为奇数还是偶数 用这个数对 2 求 余即 a mod 2 如余数为 0 则为偶数 不为 0 则为奇数 还有一种 如余数为 1 则为奇数 不为 1 则为 偶数 3 End If 614 精品文档 6欢迎下载 填空完成程序 使得单击 显示 按钮后 随机 产生 10 个属于区间 0 100 的自然数 并保 存于数组 a 中 然后在窗体上显示这 10 个数 中的最大值 注 学生运算结果有可能跟样图中数值不一 致 注 请不要更改原程序结构 删除 1 2 3 并在对应位置填写正确的代码 Private Sub Command1 Click Dim a 9 As Integer Dim max As Integer Dim i As Integer Me Cls Print Randomize For i 0 To 1 Step 1 a i Int Rnd 100 Print a i Next i max a 0 For i 1 To 9 If max a i Then max 2 End If Next i Print 这 10 个自然数中的最大值 Str 3 End Sub 参考答案 1 9 一共 10 个数所以 i 0 to 9 2 a i max a 0 然后将数组中后面 9 个数分别和 max 比较 如果 max a j Then a 0 a i a i a j a j a 0 End If Next j Next i For i 1 To 10 Print CStr a i Next i End Sub 参考答案 9 i 1 10 1327 在 Text1 中输入一个整数 单击 判断 按 钮 在 Label1 中显示 正数 零 或者 负数 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Command1 Click Dim a As Integer a Val If a 0 Then Label1 Caption 零 ElseIf a 0 Then Label1 Caption 正数 Else Label1 Caption End If End Sub 参考答案 Text1 text 负数 1328 公鸡 5 文钱一只 母鸡 3 文钱一只 3 只小鸡 1 文钱 如果用 100 文钱买 100 只鸡 可以买公鸡 母鸡和小鸡各多少只 完善下面的程序 单击 计算 按钮时 在 Label 中显示公鸡 母鸡 小鸡的数量 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Command1 Click Dim i As Integer Dim j As Integer Dim k As Integer For i 0 To 第一空 For j 0 To 33 k j 第二空 If 5 i 3 j k 3 Then 第三空 精品文档 7欢迎下载 Label1 小鸡 输入大于 100 的整数则显示 输入的整数不能 超过 100 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Command1 Click Dim a As Integer a Val Text1 Text If Then Text2 Text 输入的整数不能超过 100 ElseIf 0 Then Text2 Text 偶数 Else Text2 Text 奇数 End If End Sub 参考答案 本题先要在适当位置增加一个按钮 a 100 a mod 2 0 1331 完善程序 找出 100 以内的偶数 包括 100 中 能被 3 整除的正整数 并求出它们的和 单击 求和 按钮时 在文本框中输出和 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Command1 Click Dim x As Integer x 0 For i 0 To 100 Step 第一空 If Then 第二空 第三空 End If Next i Text1 Text x End Sub 参考答案 2 i mod 3 0 x x i 1333 求 1 到 100 之间所有偶数之和与所有奇数之 和 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Command1 Click Dim s1 As Single s2 As Single i As Integer s1 0 s2 0 For i 1 To 100 If Then 第一空 s1 s1 i Else 第二空 End If Next i Text1 Text 第三空 Text2 Text 第四空 End Sub 参考答案 i mod 2 0 s2 s2 i s1 s2 1335 输入 3 个整数 输出最小值 注 1 删除 填入正确的语句 2 不能删除注释语句 Private Sub Form Load Dim x As Integer Dim min As Integer Dim i As Integer min InputBox 请输入数据 输入 3 个数 For i 1 To 第一空 x InputBox 请输入数据 输入 3 个数 If Then 第二空 min x End If Next i Text1 Text 第三空 End Sub 参考答案 2 xx min 1336 五一 节时 某商场推出促销活动 购物总 金额达到 100 元可以打 9 折 达到 200 元可以 打 8 折 100 元以下不打折 完善程序 使之实现如下功能 在第一个文 本框中输入购物总金额 单击 计算 按钮时 在第二个文本框中输出实际支付金额 注 1 删除 填入正确的语句 精品文档 8欢迎下载 2 不能删除注释语句 Private Sub Command1 Click Dim a As Single Dim b As Single Val Text1 Text If a 200 Then b a 0 8 a 100 Then b a 0 9 Else b a End If Text2 Text b End Sub 参考答案 a ElseIf 181 新 从键盘输入 10 个学生的测试成绩 输出最高分和最低分 Private Sub Command1 Click Dim cj 10 As Single Dim i As Integer Dim max As Single Dim min As Single For i 1 To 10 cj i Val InputBox 请输入 10 个学生 的成绩 成绩输入 Next i max cj 1 min cj 1 For i 2 To 10 If cj i max Then max End If If Then min End If Next i Print CStr max CStr min End Sub 参考答案 cj i cj i 0 0001 pi pi n n 2 s s t Loop pi pi Print pi For j 1 To Print Next j Print Next i End Sub 参考答案 3 10 新 869 打开 工程 1