浙江省杭州市2015年高考模拟命题比赛信息技术(6)
年级： 学科：信息技术（信息科技） 类型： 来源：91题库
一、客观题 （共10小题）
根据图中信息，下列关于该软件的说法不正确的是（ ）
执行该算法，当x的值为5时（ ）
其中存储容量最大的是（ ）
二、主观题 （共4小题）
图1
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i = 0 To 99
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
c = c + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
图 1
图 2
图 3
图 4
请回答以下问题：
三、客观题 （共4小题）
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c = a + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）
四、主观题 （共3小题）
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i=1 to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I = 1 To 9
K = I
For J = I + 1 To 10
If ① Then K = J
Next J
If K <> I Then
X = result(I) : result(I) = result(K) : ②
Y = name (I) : name (I) = name (K) : name (K) = Y
End If
Next I
For I = 1 To 10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入 。
程序中②划线处应填入 。
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。
Private Sub command1_click()
Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组
Dim i,num as integer
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\student.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Do while not rs.EOF
①
xh(num)=rs.Fields("xh")
xm(num)=rs.Fields("xm")
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i=1 to num
②
Next i
if num=0 then list1.additem("该课程当前无人报名")
End Sub