①放大、缩小②上色、裁剪③扭曲、变形④叠加、分离
则该文件可能是( )
所谓“同选”是指学生在3门课的选择中最喜欢一起选的两门课,比如A同学选了124,B同学选了134,则同选最多的两门课为14。请回答以下问题:
course=["排球","篮球","足球","羽毛球","乒乓球","网球","健身操","游泳","太极"]
xk=[] #存储选课信息,用数字1~9表示9门课程
f=[0]*9 #存储9门课程的选课人数
d=[0]*100 #存储两门课程同选的次数,如d[26]=50表示篮球和网球被50个同学同选
def relation(y): #计算列表y中各数据项的同选次数
for i in range(1,10):
for j in range(i+1,10):
if str(i) in y and str(j) in y: #课程i,j均在列表y中出现
d[10*i+j]+=1 #第i和第j门课程同选次数加1存储在列表d中
file=open("xk.txt","r") #打开文件
line=file.readline()
while line: #读取文件数据到列表xk中,数据样式详见第(1)小题图所示
line=line.split()
xk.append(line)
line=file.readline()
file.close()
for y in xk: #对列表xk中的各数据项进行处理
relation(y) #调用定义函数统计y中各门课程同选次数,存储到列表d中
for x in y: #遍历数据项y中的元素,统计每门课程的选课人数
for i in range(9):
print(course[i],"选课人数:",,"人") #输出每门课程的选课人数
maxd=max(d)
print("同选最多的两门课程是:")
for k in range(100):
if d[k]==maxd:
print(course[k//10-1],) #根据列表d的索引计算两门同选课程索引
Private Sub strlink_Click( )
Dim a As String, b As String
a = “100”
b = “200”
Text1.Text = a + b
End Sub
下列说法正确的是( )

图1

图2


Const maxn = 500005
Dim n As Long, a As Long, b As Long
Dim f(1 To maxn) As Long
Dim i As Long, tby As Long
Private Sub Command1_Click()
tby = 1
n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)
For i = 1 To n
f(i) = Getin()
Next i
Dim l As Long, r As Long, m As Long
l = 0: r = n
Do While l <= r
m = (l + r) / 2
If Then
r = m - 1
Else
l = m + 1
End If
Loop
Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
Dim y As Long
y = x
For i = 1 To n
Dim tmp As Long
If tmp > 0 Then
If y < 0 Then
check = True
Exit Function
End If
Next i
check = False
End Function
Function Getin() As Long
Dim aaa As String
aaa = Mid(Text4.Text, tby, 1)
If aaa = " " Then tby = tby + 1
aaa = Mid(Text4.Text, tby, 1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby <= Len(Text4.Text)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(Text4.Text, tby, 1)
Loop
Getin = bbb
End Function