高中信息技术VB算法部分的填空题(会考)

1 VB填空题专题 一 浙江省高中信息技术会考 六月卷 算法与程序设计题 第一套 四 程序设计题 本题有4 小题 第1 3 小题 每小题4 分 第4 小题6 分 共18 分 1 有如下Visual Basic 程序段 a 30 b 20 a b 该程序段运行后 变量a 的值为 2 有如下Visual Basic 程序段 Dim a As Single py As String a Val Text1 Text If a 0 Then py 正数 If a 0 Then py 零 If a5 Then y x x Else y 4 x End If 该程序段运行后 变量y 的值是 3 下面程序的功能是 计算表达式1 3 5 2n 1 的值 在文本框Text1 中输入n 的值 结果在文本框Text2 中输出 则程序中划线处的语句应更正为 Private Sub Command1 Click Dim sum As Long i As Integer n As Integer sum 0 n Val Text1 Text For i 1 To 2 n 1 Step 2 sum sum 2 3 Next i Text2 Text Str sum End Sub 4 依照中华人民共和国 机动车驾驶员驾车时血液中酒精含量规定 血液中酒精含量大 于或等于0 3mg ml 驾驶机动车的属酒后驾车 大于或等于1 0mg ml 驾驶机动车的属醉酒 驾 车 设计一个程序 帮助交警判定某人属酒后驾车 醉酒驾车还是没有违法 解决此问题的流程图如VB 1 所示 根据流程图VB 1 编写的Visual Basic 程序如下 在 和 划线处 填入合适的语句或表达式 把程序补充完整 Private Sub Command1 Click Dim x As Single x Val Text1 Text If Then Label1 Caption 你属于醉酒驾车 Else If x 0 3 Then Label1 Caption 你属于酒后驾车 Label1 Caption 恭喜你没有违法 End If End If End Sub 程序中划线处 应填入 程序中划线处 应填入 算法与程序设计题 第三套 四 程序设计题 本题有4 小题 第1 3 小题 每小题4 分 第4 小题6 分 共18 分 1 有如下Visual Basic 程序段 a 300 b 400 b b a 该程序段运行后 变量b 的值为 2 有如下Visual Basic 程序段 a 2 b 5 If ab Then m a Else m b 该程序段运行后 变量m 的值为 3 下面是一段Visual Basic 程序 Private Sub Command1 Click Dim sum As Double i As Integer sum 0 For i 1 To 5 sum sum i i Next i Text1 Text Str sum End Sub 该程序运行后 语句sum sum i i 共执行了 次 4 有一个有趣的兔子繁殖问题 第1 个月买来1 对小兔子 两个月后 这对兔子就会生1 对小兔子 以后每个月都会生一对小兔子 而生下来的这对小兔子 两个月后又会开始生1 对小兔子 依次类推 试问 几个月后 兔子将超过50 对 分析问题得出月份与兔子对数的关系如下表 月份 123456789 兔子对数 112358132134 由表知兔子繁殖规律 从第3 个月开始 以后每月的兔子对数都是它相邻的前面2 个月 的兔子对数之和 解决上述问题的Visual Basic 程序如下 在 和 划线处 填入合适的语句或表达式 把程序补充完整 Private Sub Command1 Click 6 Dim a 1 To 100 As Integer n As Integer a 1 1 a 2 1 a 3 a 2 a 1 n 3 Do While a n 1 Then Label1 Caption 醉酒 Else Label1 Caption 没有醉酒 End If 该程序段运行后 Label1 标签上显示为 3 下面Visual Basic 程序的功能是 计算表达式1 1 2 1 3 1 100 的值 并在文本框 Text1 中输出表达式的值 为了实现这一功能 程序中划线处的语句应更正为 Private Sub Command1 Click Dim sum As Double i As Integer sum 0 For i 1 To 100 7 sum sum i Next i Text1 Text Str sum End Sub 4 浙江省道路交通安全法 第八十三条规定 机动车驾驶人驾驶机动车超过规定时速的 按以下标准处以罚款 一 超过规定时速未达百分之五十的 处二百元罚款 二 超过规定时速百分之五十的 处五百元罚款 每多超五公里 加处二百元罚款 但 最高罚款不得超过二千元 设某公路的规定时速为80 km h 用x 表示车速 y 表示罚款数 该问题的数学式为 根据上述分析 解决此问题的Visual Basic 程序如下 在 和 划线处 填入合适的 语句或表达式 把程序补充完整 Private Sub Command1 Click Dim x As Single