数组元素 |
数组元素的含义 |
a(1) |
存储班级数n |
a(2) |
从a(2)到a(n+1)依次存储第 1、第2、……第n个班级的人数 |
… |
|
a(n+1) |
|
a(n+2) |
从a(n+2)开始依次存储第1个班级每个学生的单科成绩、第2个班级每个学生的单科成绩、……、第n个班级每个学生的单科成绩 |
… |
|
… |
程序功能如下:在文本框Text1中输入科目名称,单击“读数据库”按钮Command1,程序从数据库读取数据;单击“开始统计”按钮Command2,程序进行统计处理,结果输出在列表框List1中。程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
Dim a(1 To 600)As Integer '数组大小满足处理要求
Private Sub Command 1_Click()
'本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString =" provider = Microsoft. ACE.
OLEDB.12.0;datasource="+"Score.Accdb"
conn.Open
Set rs.ActiveConnection=conn
'本过程的其他语句略
End Sub
Private Sub Command 2_Click()
'本过程由小李完成,依据数组a中的相关数据统计各班级平均分
Dim i As Integer,j As Integer,n As Integer
Dim p As Integer,sum As Integer,aver As Single
①
p=n+2
For i=1 To n
sum=0
For j=1 To a(i+1)
②
p=p+1
Next j
aver=sum/a(i+1)
Listl. Addltem Str(i)+""+Str(a(i+1))+""+Str(aver)
Next i
End Sub
① ②
计算机在采集以上4个题目的答案时,获取的信息是( )
255(10) = ()(16)
100(10) = ()(2)
E2(16) = ((2)
11100101(2) = ()(16)
小王的电子邮件地址是:xiaow@123.com
小张的电子邮件地址是:xiaoZ@263.com
小李的电子邮件地址是:xiaoL@sina.com
收件人栏应填写的内容为:
n=8
For i =1 To n
d(i)= Int(Rnd * 10)+1
Next i
For i= 2 To n-1
k= 1
For j= 1 To n-i
If d(j)*k > d(j+2)* k Then
temp = d(j): d(j)= d(j+2): d(j+2)= temp
End If
k = -k
Next j
Next i
执行该程序段后,d数组各元素可能是( )
s = "p2y0t2H3on1*c"
t =""
for ch in s:
if "A”<= ch <="Z":
ch = chr (ord(ch) + 32)
if "a”<= ch <="z”:
t=t+ch
print (t)
运行该程序段,输出结果是
i=6
Do While i>= 1
t= Int(Rnd * 10)+ 1
If t Mod 2=i Mod 2 Then a(i)=t: i=i-1
Loop
For i=1 To 2
k=-1
For j=1 To 5-i
If a(j) * k>a(j+2) *k Then
temp= a(i): a(j)=a(j+2): a(j+2)= temp
End If
k=-k
Next j
Next i
执行该程序段后,数组元素a(1)到a(6)值可能是( )
Dim a(1 To 5) As Integer, i As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
Next i
Text1 Text = Str(a(i - 1))
该程序段运行后,文本框Text1中显示的内容是( )