常见数据类型、数组 知识点题库
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
a(5)=Val(Text1.text)
For i=4 To 1 Step -1
a(i)=a(i+1)\2
Next i
Label1.caption=str(a(1))
End sub
在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（ ）
参赛班级用数字1，2，3，4……number表示，依次存入数组a(1)～a(number)，若1号班级的编号为5，则a(1)=5。
-
（1） 若有15个参赛学生，分别来自于6个不同的班级，从左到右排列，班级编号依次为2，3，6，3，5，5，3，1，4，2，3，2，5，1，6，则最小的区间长度为。
-
（2） 请在划线处填入合适的代码。
Dim a(1 To 50) As Integer, T As Integer, Number As Integer, Total As Integer
Private Sub Form_Load()
’产生Number的值，表示参赛人数，产生Total的值，表示包含的班级数’产生Number个编号为1－Total的班级编号，并存储在数组a中’代码略
Private Sub Command1_Click()
Dim mid As Integer
i=Total: j=Number
Do While i<=j
mid=(i+j)\2
If pd(mid)= ① Then
j=mid-1
ans=mid
Else
i=mid+1
Dim b(1 To 100)As Integer
Dim T As Integer
pd=False
For i=1 To Number-M+1
For j=i To i+M-1
②
Next j
T=0
For j=1ToTotal
T=T+b(j)
EndIf
Loop
Text1.Text=Str(ans)
End Sub
Function pd(M As Integer)As Boolean
Next j
If T=③ Then pd=True: Exit Function
Next i
End unction
①全0块“0000”，可以化简为“0”
②连续多个全0块，可以化简为“：：”
③一个IPv6地址中只能出现一个“：：”，出现多个全0块时，“：：”要化简最长的一段，没有最长的就将最左侧的一段化简为“：：”
④“：：”可以出现在地址开头或结尾
具体示例如下：
程序界面如图所示：
实现上述功能的VB程序如下，请回答下列问题：
-
（1） IPv6地fit：：3BCD：0000：0000：ABCD：0000：0000：0000：6789，则化简后为。
-
（2） 请在划线处填入合适的代码，并且加框处代码有错，请改正。
Private Sub Text1_Change()
Dim a(1 To 8) As String, ipstr As String, ips As String
Dim lenth As Integer, max_lenth As Integer, start As Integer
ipstr = Text1.Text
For i=1 To 8
① ‘将IPv6分段存储
Next i
'对数组进行处理，如果字母或非零数字开头，则不用处理；如果全是数字，则压缩成0，
如果前导为0，则去掉，处理完毕存回数组。///-----处理过程略-----/////
'如果只有一串，则将该串"0"用“：：”代替，如果不止一串，则将最长的一串"0"简化为“：：”，如果有连续0，则将左边的一串零简化，右侧保留。
max_lenth=0
For i=1 To 7
If a(i)<> "0" Then ‘②
lenth= lenth + 1
Else
If lenth > max_lenth Then
max_ lenth = lenth: start= i - lenth: lenth = 0
End If
End If
Next i
If lenth > max_ lenth Then max_lenth = lenth:start = i-lenth
‘根据连续0串的位置确定输出简化后的结果
① ② ③
a(1)=1:a(2)=1
B(1)=1:b(2)=2
For i=3 to 5
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+a(i)
Next i
执行该程序后，数组元素b(5)的值为（ ）
程序界面如图所示。
实现上述功能的VB程序如下，请在画线处填入合适的代码。
Dim a（1 To 7）As Integer
Dim b（1 To 7）As Integer
Private Sub Form_Load( )
List1.AddItem "面值 张数"
‘在数组a中从小到大存储7种钱币面值的整数值
End Sub
Private Sub Command1_Click( )
Dim n, num, k As Integer
n=Val（Text1.Text）
k=7
Do While n>0
If n>=a（k）Then
①
b（k）=b（k）+1
Else
②
End If
Loop
For i=1 To 7
If b（i）<>0 Then
num=num+b（i）
List1.AddItem Str（a（i））+" "+Str（b（i））
End If
Next i
List1.Addltem"最少"+Str（num）+" 张"
End Sub
以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。
a(1) = 68: a(2) = 88: a(3) = 76: a(4) = 60: a(5) = 98
a(6) = 100: a(7) = 64: a(8) = 85: a(9) = 99: a(10) = 59
For i = 1 To 9
b(i) = Abs(a(i + 1) - a(i))
c(b(i) \ 10) = c(b(i) \ 10) + 1
Next i
For i = 0 To 10
If c(i) > 0 Then Label1.Caption = Label1.Caption + " " + Str(c(i))
Next i
数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（ ）
day=input("请输入年月日（格式举例：2000-01-05）：")
year=int(day[:4])
month= ①
sun=int(day[8:10])
print(year,month,sun)
f_run=[31,28,31,30,31,30,31,31,30,31,30,31]
tall_day=0
if ② :
for i in range(month-1):
tall_day +=f_run[i]
③
else:
for i in range(month-1):
tall_day +=f_run[i]
tall_day += sun
print(day+"是当年的第"+str(tall_day)+"天")
-
（1） 将程序横线处补充完整
① ② ③
-
（2） 如输入“2020-4-19”为当年的第天。
lst=list(range(1,6,2))
print(lst)
