基本语句 知识点题库
a=98
b=63
r=a%b
while r!=0:
a=b
print('a的值是'，a)
b=r
print('b的值是'，b)
r=a % b
print('r的值是'，r)
程序描述：输入三个正整数（a、b、c），将其中最小的那个数赋值给变量min并输出。
代码如下：
a=int(input("请输入第1个正整数："))
b=int(input("请输入第2个正整数："))
c=int(input("请输入第3个正整数："))
if a<b:
①
else:
②
if ③ :
④
print("最小数为："，min)
-
（1） ①处的语句是A . b=a B . a=b C . min=a D . min=b
-
（2） ②处的语句是A . b=a B . a=b C . min=a D . min=b
-
（3） ③处的语句是A . b<c B . b>c C . min>c D . a>c
-
（4） ④处的语句是A . c=b B . min=a C . min=b D . min=c
1)将原始数据按升序分成若干有序段。
2)将第1段和第2段进行合并，使得合并后的数据依旧有序，得到新的有序段。
3)将新的有序段再次和下一个有序段进行合并。
4)重复上述操作，直到全部数据变成一个有序段为止，排序结束。
如数据：1、3、9、4、5、7、2、6，第1段为1、3、9，第2段为4、5、7，将第1段和第2段合并，得到新的第1段为1、3、4、5、7、9。继续和下一段2、6进行合并，合并后段数变为1段，则排序结束。
编写VB程序，实现分段排序功能：在文本框Text1中输入数据总量，单击“数据生成”按钮Command1后，在列表框List1中显示原始数据，然后单击“分段排序”按钮Command2，在列表框List2中显示排序后的结果。程序运行界面如图所示。
请回答下列问题：
-
（1） 若要清空列表框List1，下列代码正确的是(单选，填字母：
A .List1.Clear / B .List1.List="" / C .List1.Text="" / D .List1.Caption="空白" )。
-
（2） 实现分段排序功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()
'输入数据总量n，随机生成n个数据保存在数组
'a(1)~a(n)中，并在List1中显示数据，代码略
End Sub
Private Sub Command2_Click()
Dim b(1 To 10000) As Integer
Dim p1 As Integer, p2 As Integer, t1 As Integer, t2 As Integer
Dim t As Integer, k As Integer, i As Integer, j As Integer
p1 = 1
t1 = leng(p1)
p2 = p1 + t1
Do While p2 <= n
i = p1: j = p2: t = 1
Do While i < p2 Or j < p2 + t2
If j >= p2 + t2 Or i < p2 And a(i) < a(j) Then
b(t) = a(i): i = i + 1
Else
b(t) = a(j): j = j + 1
End If
t = t + 1
Loop
For k = 1 To
a(k) = b(k)
Next k
t1 = t1 + t2
Loop
'在List2中输出数组a(i)的值，代码略
End Sub
Function Leng(ByVal p As Integer) As Integer
'该函数返回数组a中数组下标p开始的升序有序段的长度，代码略
End Function
-
（3） 程序中加框处代码有错，请改正。
-
（1） 结合上述功能描述和下面的程序，“获取”按钮的名称是。
-
（2） 实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub GetInfo_Click()
Dim x(1 To 100) As String '存储读取的奇数段二进制
Dim y(1 To 100) As String '存储读取的偶数段二进制
Dim c As String
Dim n As Integer
Dim k As Integer
c = Text1.Text
n = Len(c): i = 1: k = 1: j = 1
v = ""
Do While i <= n
ch = Mid(c, i, 1)
If ch = "|" Then
If k Mod 2 = 1 Then
Else
y(k \ 2) = v
List1.AddItem x(k \ 2 + 1)+ " " + y(k \ 2)
End If
v = ""
k = k + 1
Else
End If
i = i + 1
Loop
End Sub
-
（3） 加框处的代码有误，请修改。
请回答下列问题：
-
（1） 若要清空列表框List1，能实现该功能的语句是（单选，填字母：A .List1.Caption= “” / B .List1.Text = “” /C .List1.Clear）。
-
（2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim ty(1 To 100) As Integer Dim name(1 To 100) As String Dim cj(1 To 100) As Integer Dim n As Integer
Private Sub Form_Load()
'本过程读取类型、名称和票数的数据分别存储在数组 ty，name和cj中，
'并在List1中显示，代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer, j As Integer, m As Integer,t1 As Integer, t2 As String
i = 1
Do While i <= n – 1 '先将类型1的节目进行排序
For j = n To i + 1 Step -1
If ty(j) = 1 Then
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
End If
Next j
IfThen m = m + 1
i = i + 1
Loop
For i = 1 To 2
List2.AddItem Str(ty(i)) + name(i) + " " + Str(cj(i))
Next i
For i =
For j = n To i + 1 Step -1
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
Next j
List2.AddItem Str(ty(j)) + name(j) + " " + Str(cj(j))
Next i
End Sub
-
（3） 程序中加框处代码有错，请改正。
编写VB程序，实现上述合并功能。运行程序时，将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后，在文本框Text1中输出最小的体力耗费值。请回答下列问题：
-
（1） 若要清空文本框Text1中的内容，能实现该功能的语句是(单选，填字母：A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。
-
（2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Form_ Load( )
‘将n堆果子的重量从数据库导入到数组a，代码略。
End Sub
Private Sub Command1_Click( )
Dim f As Boolean
Dim last As Integer
Dim a(1 To n) As Integer
i= 1
Do While i<n And Not f
f=True
For j=n To i+1 Step-1
If a(j)<a(j- 1) Then
t= a(j): a(j)=a(j- 1): a(j-1)=t
last= j
f= False
End If
Next j
Loop
For i= 1 To n-2
tmp=a(i)+a(i+1)
j=
Do While a(j)< tmp
a(j-1)= a(j)
j=j+1
If j=n+ 1 Then Exit Do
Loop
Min=Min+tmp
Next i
Text1.Text = Min
End Sub
-
（3） 程序中加框处代码有错，请改正。
file=open('ceshi.txt','w')
file.write("python is a programming language.")
file.close( )
file=open('ceshi.txt','r')
print(file.read( ))
该代码段运行后，输出的结果为（ ）
a=‘2021’
b=‘告诉自己，不曾辜负这么美好的时光。’
print(a，b)
a=int(input())
b=int(input())
c=a+b
print(a,"+",b,"=",c)
程序运行时，通过键盘分别输入23和3，输出的结果是。
>>>a="123"
>>>print("123"+a)
