题型：填空题 题类：模拟题 难易度：困难
浙江省杭州市2015年高考信息技术模拟卷8
校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如图所示：
数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。
Private Sub Command1_Click()
Dim adocn As new connection
Dim adors As new recordeset
Dim str1 As string,str2 as string
Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\ ① .mdb”
Adon.open str1
Str2=”select * from Yue where ② =’”+text1.text+”’”
Adors.open str2,adocn,adOpenDynamic,adLockOptimistic
If adors.eof then
Msgbox”你输入的学号不存在!”
Else
Label4. caption =adors.Fields(“name”).value
③ =adors.Fields(“money”).value
Endif
Adors.close
Adocn.close
End Sub
为了实现上述目标，在画线处填入合适的语句或表达式：
①
②
③
①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码。
②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例，如果产生的号码是150，第一个比他大的数是a(2)，下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中。
数组元素 | a(1) | a(2) | a(3) | a(4) |
数组元素的值 | 120 | 188 | 211 | 278 |
③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动。以②中产生150为例，从a(4)开始，让a(5)的值等于a(4)，a(4)的值等于a(3)，依次类推，直到新号码应存放的数组元素a(2)为止。
④将新产生的号码放在相应的数组元素中。
程序运行的界面如图所示，实现上述功能的VB程序代码如下：
Dim a(10) As Single
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim temp As Single, k As Integer ‘temp产生随机数，k随机数存放数组元素的下标
Randomize
a(1) = Int(Rnd() * 900 + 100)
For i = 2 To 10
temp = Int(Rnd() * 900 + 100)
If seach(temp, i - 1)= True Then
i = i – 1
Else
k = i For j = 1 To i - 1 If temp < a(j) Then k = j: Exit For Next j |
For j = i - 1 To k Step -1
a(j + 1) = a(j)
Next j
①
End If
Next i
List1.Clear
For i = 1 To 10
List1.AddItem Str(a(i))
Next i
End Sub
‘函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无pp的数值
Function seach(pp As Single, t As Integer) As Boolean
Dim i As Integer
seach = False
For i = 1 To t
If ② Then seach = True : Exit For
Next i
End Function
试题篮
Then i=m＋1 Else j=m－1 ‘(1)
‘(2)