listque=[] #定义列表listque存储订单
x=0
while(x!=4): #当x=!4时,执行循环
print('1. 添加订单')
print('2. 发货')
print('3. 查看订单列表')
print('4. 退出')
x=int(input("输入你的选择:")) #输入选择项
if ① :
y=input("输入订单编号:") #输入订单编号
② #在列表listque中添加订单号
elif x==2:
③ #如果订单列表为空
print("订单列表为空")
else:
print("发货单号:"+listque.pop(0))
elif x==3:
print("等待发货:",listque) #查询列表listque中的订单号
print()
input("运行完毕,请按回车键退出...")
① ② ③
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
n = Asc(ch2)-Asc(“a”)
If n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If Then m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub
例如:字符串“2021xuankao", 去重为“201xuanko".
Dim c(0 To 35) As Integer
s = Text1.Text: res =
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>="0" And ch<="9" Then
k = Val(ch) + 26
Else
![]()
![]()
End If
![]()
If c(k)=1 Then res=res+ch
Next i
Text2.Text = res
上述程序段中方框处可选语句为:
①k = Asc(ch) - Asc("a") ②k = Ase(ch) - Ase("A") ③e(k) = c(k) + 1 ④c(k) = 1 ⑤If k =0 Thenk=k+ 32 ⑥If k>= 32 Then k=k-32
则①②③处语句依次可为( )
例如:42、50、14、16、22、10、34、10、12、38这10个数中,最大的d为50,50=12+16+22。请回答下列问题:
Dim a(1 To 20) As Integer
Const n = 10
Private Sub Command1_ Click)
Dim i As Integer
Randoni ze
For i=1Ton
a(i) =
Text1.Text = Text1. Text + Str(a(i))
Next i
End Sub
Private Sub Command2_ Click ()
Dim i As Integer, j As Integer,t As Integer
Dim left As Integer, right As Integer
Dim ans As Integer, flag As Boolean
flag = True
'对数组a进行升序排序,代码略
i=n
Do While i >= 1 And flag
j=i-1
Do While j >= 1 And flag
left = 1
right = j- 1
Do While ![]()
If ans > a(left) + a(right) Then
left=left+1
ElseIf ans < a(left) + a(right) Then
right = right-1
Else
Text2. Text = Str(a(i))
flag = False
End If
Loop
j=j-i
Loop
Loop
If flag Then
Text2. Text ='no solution'
End If
End Sub
p = Val(Text1.Text)
t = 0: j = 2: flag = True
s = Text1.Text + "="
Do While p > 1 And flag
If p Mod j = 0 Then
t = t + 1
p = p \ j
s = s + Str(j) + "*"
Else
If t = 1 Then flag = False
t = 0: j = j + 1
End If
If p = 1 And t = 1 Then flag = False
Loop
If flag Then
Text2.Text = Mid(s, 1, Len(s) - 1)
Else
Text2.Text = Text1.Text + "不是漂亮数"
End If
执行该程序段,在文本框Text1中输入6,则文本框Text2中显示的内容为( )
①从左往右扫描,若其中存在连续上升数字字符,则进行压缩。其中,数字字符串“91”也算连续上升。连续上升的数字字符不超过9个,若超过9个则该数字字符串分成两段。例如:“12324789123456789”可以压缩成“1-3247-67-9”
②对压缩后的数字字符进行加密,其中,数字字符“1”-“9”用加密字符“A”-“I”表示,未经压缩的数字字符原样输出。例如:“1-3247-67-9”加密后是“A-C24G-FG-I”。
程序界面如图所示。

Private Sub Command1_Click()
Dim s As String, k As Integer, i As Integer, t As Integer
Dim sjg As String, mw As String, start1 As Integer, end1 As Integer Dim a(1 To 100) As Integer
mw = "ABCDEFGHI"
![]()
t = 1
a(1) =
For i = 2 To Len(s)
a(i) = Val(Mid(s, i, 1))
If Then
t = t + 1
Else
If t > 1 Then
start1 =
end1 = a(i - 1)
sjg = sjg + Mid(mw, start1, 1) + "-" + Mid(mw, end1, 1)
Else
sjg = sjg + CStr(a(i - 1)) ‘CStr 函数将表达式转换为字符串,并去除前导空格
End If
t = 1
End If
Next i
Text2.Text = sjg
End Sub
For i = 1 To 5
a(i)= Int(Rnd * 10)
Next i
For i = 2 To 5
If a(i) < a(i -1) And a(i) Mod 2 = 1 Then
a(i) = a(i) + 1
ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then
a(i) = a(i -1) -1
End If
Next i
执行程序后,a数组各元素不可能是( )
Dim a(1 To 6) As Integer, i As Integer
a(1) = Int(Rnd() * 5) + 95
For i=2 To 6
a(i)=a(i-1)-Int(Rnd()*5)
If i Mod2=0 Then a(i) = a(i) + a(i) Mod 2
Next i
程序运行后,a(1)-a(6)中可能的值是( )
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)
运行该程序段,输出结果是
import math
def Isprime(x):
for i in range(2, int(math.sqrt(x))+1):
if ① :
return False
return True
n=int(input(“请输入一个大于2 的偶数:”))
for p in range(2,n-1):
q=n-p
if ② :
print(n,"=",p,"+",q)
break
下列选项中能实现该代码程序功能的是( )
a(0)= Int(Rnd() * 6+95)
For i=1 to 5
a(i)=a(i-1)-Int(Rnd() * 6)
If i Mod 2=0 then
a(i)=a(i)+a(i) Mod 2
End if
Next i
执行该程序段后,在下列选项中,a(0)~a(5)各元素值可能是( )
请填空完善该程序,实现功能:按程序提示依次输入行和列的数字,则按行列打印由“*”组成的矩形。例如,按提示输入:
请输入行数:3
请输入列数:5
屏幕将打印以下图形:
a=int(input("请输入行数:"))
b= ①
for i in range( ② ):
for j ③
print( ④ , end=' ') #end=' '表示接上一个输出项后输出,不换行
print( )