发布时间 : 星期一 文章浙江省金华第一中学2017-2018学年高二上学期第二次段考信息技术试题更新完毕开始阅读81235d192f3f5727a5e9856a561252d380eb203b
①
Do While Mid(s1, i + j, 1) = Mid(s2, j + 1, 1) And j < Len(s2) j = j + 1 Loop
If j = Len(s2) Then Exit For Next i
If j=Len(s2) Then
Label3.Caption = \找到，起始位置：\② Else
Label3.Caption = \不存在该子串\ End If End Sub
（3）运行该程序，在文本框Text1中输入“10100101”，在Text2中输入“01”（两次输入均不包含引号），点击“查找子串位置”按钮后，在label3上显示
12. 用物理天平测量物体的质量。待测物体的质量为X克（X为小于1000的整数），以下程序功
能为计算天平砝码盘中所需的砝码。已知天平可用的砝码为500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如图所示。 Private Sub Command1_Click()
Dim a(1 To 12) As Integer, i As Integer, x As Integer
a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20 a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1 i = 1
x = Val(Text1.Text) List1.Clear
Do While ① If x >= a(i) Then
List1.AddItem Str(a(i)) ②
第12题图
End If
i = i + 1
Loop End Sub
（1）上述代码中“List1.Clear”中的Clear是对象List1的
（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为
画线②处应填入的代码为
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。
A B C
13. 一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为
A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。 Private Sub Command1_Click() Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer s = 0
For i = 1 To 1000 ① t = 0 ： k = 0 Do While n > 0
If n mod 2=0 Then t = t + 1 Else k = k + 1 ② Loop
If ③ Then s = s + 1 Next i
Text1.Text = Str(s) End Sub
14. 小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。
实现上述功能的 VB 代码如 下，在划线处填入合适代码。 Dim rq(1 To 100) As String Dim qw(1 To 100) As Integer Dim n As Integer '总天数 Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略 End Sub
Private Sub Command1_Click() Dim ntempend As Integer Dim max As Integer Dim nend As Integer Dim ncount As Integer Dim tjqw As Integer tjqw = Val(Text1.Text) ncount = 0 max = 0 For i = 1 To n
If ___________①___________ Then ncount = ncount + 1
‘ 记录当前结束日期的下标 ‘ 记录最大连续天数
‘ 记录最大连续天数下的结束日期的下标 ‘ 统计连续天数 ‘ 存放输入的温度 ‘ 存放日期 ‘ 存放最高气温值
ntempend =i Else ncount = 0 End If
If max < ncount Then max = ncount
___________②___________ End If Next
If max <> 0 Then Text2.Text = ___________③___________ & \15. 编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，?，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：
a→1 b→2 z→26 aa→27 ab→28 az → 52 ba → 53 bb →54?
小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。
实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。 Function c(n As Long, r As Long) As Long Dim i As Long, cc As Long cc = 1 For i = 1 To r cc = cc * n Next i
① End Function
Private Sub Command1_Click() Dim s As String, ch As String Dim bm As Long, qz As Long