例如:n=10,原文字符串为“ABCXYEFDOK”,m=4时,处理过程如下:
其中,第1段中字母“X”后移4位后超过字母“Z”的ASCII码值,用“b”表示,第2段中字母“Y”后移2位用“a”表示用VB编写程序,程序运行时,在文本框Text1中输入原文字符串,在文本框Text2中输入每段个数,单击“加密”按钮Command1后,在文本框Text3中显示加密结果。程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
Dim a(0 To 50) As String, b(1 To 50) As Integer
Private Sub Command1_Click ()
Dim i As Integer, j As Integer, k As Integer, m As Integer, max As Integer
n = Len(Text1. Text)
For i=1 To n
a(i) = Mid(Text1.Text, i, 1)
b(i) =
Next i
m=Val (Text2. Text)
max=1
For k=1 To n\m
For i=(k-1)*m+2 To k*m
j=i
Do while
b(i)=b(i)+1
j=j-1
Loop
If b(i)>max Then
max = b(i)
End If
Next i
For i=(k-1)*m+1 To k*m
s =s+ mingtoni (a(i), max)
Next i
max=1
Next k
If n Mod m <> 0 Then
For i=(n\m)*m+1 To n
s=s+ a(i)
Next i
End If
Text3.Text = s
End Sub
Function mingtomi(e As String, d As Integer) As String
If Ase(c) + d > Asc("Z") Then
Else
mingtomi = Chr(Asc(c) + d)
End If
End Function
B .
C .
D .
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("运行完毕,请按回车键退出...")
① ② ③
x=5:y=2
If x>y Then
y=y+6
If y>9 Then y=x*y
Else
y=y+2
y=x+y
End If
Text1.Text=Str(y)
程序运行后,文本框Text1上显示的内容为。
编写一个验证哥德巴赫猜想的VB程序,程序运行时,在文本框Text1中输入一个大于或等于4的偶数,单击“验证”按键Command1后,如果猜想验证成功,则在文本框Text2中显示“Yes”,并在列表框List1中显示用两个素数表示该偶数的等式;否则显示“No”。程序运行界面如图所示。
实现上述功能的VB代码如下,但加框处代码有误,请改正。
Function judge(x As Integer) As Boolean
Dim j As Integer
judge=True
j=2
Do While j<=x-1 And judge=True
If x Mod j=0 Then
judge=False
Else
j=j+1
End If
Loop
End Function
Private Sub Command1_Click()
Dim n As Integer, p As Integer
Dim q As Integer, flag As Boolean
n=Val(Text1. Text)
p=1
flag=False
Do While
And p<n ‘①
p=p+1
‘②
If judge(p) And judge(q) Then
Text2. Text="Yes"
flag=True
List1. Addltem Str(n)+"="+Str(p)+"+"+Str(q)
End If
Loop
If flag=False Then
Text2.Text="No"
End If
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①;②。
①将该字符的ASCII码加密钥后,转换成对应的8位二进制;
②将对应的8位二进制数进行按位取反(1变0,0变1);
③将最后产生的8位二进制数转换成对应的十六进制数;
④将得到的十六进制数码交换顺序后连接,即为该明文的密文。
例如,明文大写字母“A",输入的密钥数值为25,得到的密文为5A,信息加密过程如图所示。

小李编写了加密算法的VB程序,在文本框Text1中输入明文,单击“加密”按钮Command1。程序对明文数据依次进行加密处理,加密后生成的密文将显示在文本框Text2中。程序运行界面如图所示。

Function btoh(m As String)As String ‘将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim st As String
st="0123456789ABCDEF"
s=0
For i=1 To 4
s=s*2 +Val(Mid(m,i,1))
Next i
①
End Function
Private Sub Command1_Click( )
Dim ans,ch,s,ret,s1,s2 As String
Dim a,b,c As Integer
s= Text1.Text
c= Val(Text2.Text)
For i = 1 To Len(s)
ch=Mid(s,i,1) ‘取出第i个字符存入变量ch
a=Asc(ch)
b=a+c
ret = " "
For m=1 To 8 ‘完成加密步骤①和步骤②
n=(b+1)Mod 2
ret =str(n)+ ret
②
Next m
s1 = btoh(Mid(ret,1,4)) ‘完成加密步骤③和步骤④
s2 = btoh(Mid(ret,5,4))
ans=ans +s2+s1
Next i
Text3.Text=ans
End Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。
Const n = 20
Dim a(1 To n) As Integer
Dim lena As Integer
'数组a的实际长度
Dim s As String
Private Sub Form_Load()
'生成lena个长度的非递减序列,并输出到文本框text1中,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i < lena
If a(i) <> a(i + 1) Then
i =
Else
For j = i + 1 To lena
a(j - 1) =
Next j
End If
Loop
s = ""
For i = 1 To lena
s = s + Str(a(i))
Next i
Text2.Text = s
End Sub
print("请输入3个数:")
x=int(input("x= "))
y=int(input("y= "))
z=int(input("z= "))
temp=0
if x>y:
temp=y
y=x
x=temp
if x>z:
temp=z
z=x
x=temp
If y>z:
temp=z
z=y
y=temp
print(x, y, z)
① ② ③ ④ ⑤
import ①
a=float(input("请输入方程系数a(!=0):"))
b=float(input("请输入方程系数b:"))
c=float(input("请输入方程系数c:"))
d=b*b-4*a*c
if d>0:
x1=(-b+ ② )/(2*a)
x2=(-b- ② )/(2*a)
print("方程有两个不同的解",x1,x2)
elif ③ :
x1=-b/(2*a)
print("方程有两个相同的解",x1)
else:
print("方程无解")
下列选择错误的是( )
map =“ 01234567890123456789012345”
tel = Text1.Text
For i = 1 To Len(tel)
c = Mid(tel, i, 1)
If c >=“ 0” And c <=“ 9” Then
s = s + c
ElseIf c >“ A” And c <=“ Z” Then
s = s + Mid(map, Asc(c) - Asc(“A”) + 1, 1)
End If
Next i
在text1 文本框中输入“hi,NICETOSEEYOU-2016”,程序执行完后s 的结果是( )
Private Sub Command1_Click()
Const n = 20
Dim i As Integer, j As Integer
Dim a(1 To n) As Integer
For j = 1 To n
a(j) = 0
Next j
For i = 1 To n
For j = 1 To n
Ifthen
End If
Next j
Next i
For j = 1 To n
If a(j) = 0 Then list1.AddItem Str(j)
Next j
End Sub
为了实现程序该功能,在画线处填写正确代码。
1)查找相邻两个非降序数据段:在未处理的数据区域中,从前往后找出第一个最长非降序数据段。若该数据段后面没有元素,则本轮处理完毕:否则在第1个数据段的后面,从前往后找出数组中第二个最长非降序数据段。
2)合并两个数据段:借助数组tmp.将查找到的两个相邻数据段合并成一个非降序数据段,然后将合并后的数据依次存回到原数组中。
3)若数组中还有未处理的数据,则重复(1)(2)步骤。每一轮数据处理完毕后,重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理,则说明n个数据已构成非降序数据段,数据处理结束。

Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'读取n个整数保存到数组a中,并在文本概Text1中显示,代码略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中输出这一轮合并后的数据,代码略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer, flag As Boolean, p1 As Integer, p2 As Integer
Dim low1 As Integer, high1 As Integer, high2 As Integer
flag = False: low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1:p2=high1+1
i = low1
Do While
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1):p1=p1+1
Else
tmp(i)=a(p2):p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
Loop
Merge = flag
End Function
Private Sub Text1_Changeo( )
Dim k As Integer, i As Integer
k=Val(Text1.Text)
For i=1 To 3
If k<=9 Then k=k+i
Next i
Text1.Text=Str(k)
End sub
list=['a','b','c','d','e','f','g']
list1=[]
list2=[]
for i in range(7):
if i%2==0:
list1.append(list[i])
else:
list2.append(list[i])
print(list1)
print(list1)
请在划线处填入合适的代码
f=open("支出.txt","r")
mx=f.read()
print(mx)
t="";s=0
for i in mx:
if :
t=t+i
flag=True
elif flag:
s=s+int(t)
t=""
flag=False
if flag:
print("一共支出:",str(s),"元")
编写一个VB程序实现如下功能:程序运行后自动读取数据库中关于食堂套餐的相关数据,在文本框Text1中输人查找套餐的关键词,搜索到的套餐信息在列表框List1中显示,程序计算套餐平均评分(四舍五入保留一位小数)和推荐指数,并显示在套餐信息下方。程序运行界面如图所示。

Const n = 50
Dim food(1 To n) As String
Dim price(1 To n) As Integer
Dim score(1 To n) As Single
Private Sub Form_ Load()
‘读取数据库中套餐名称、套餐价格和套餐评分信息分别存储于数组food、price和score中,代码略。
End Sub
Private Sub Command1 _Click()
Dim food(1 To n) As String, s As String
Dim price(1 To n) As Integer
Dim judge(1 To n) As Boolean
Dim score(1 To n) As Single, sum As Single, ave As Single
Dim i As Integer, j As Integer, t As Integer, q As Integer
Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single
s = Text1.Text : q= 0
For i=1 To n
①
j= 1
Do While True
If j+Len(s)-1<=t Then
If s = Mid( food(i), j, Len(s)) Then
judge(i) = True
q=q+1
Else
②
End If
End If
If
Then
Exit Do
End If
Loop
Next i
For i=1 To n-1
For j=n To i+1 Step -1
If Not judge(j-1) And judge(j) Then
w1 = judge(j): judge(j) = judge(j-1): judge(j-1) = w1
w2 = food(j): food(j) = food(j - 1): food(j-1) = w2
w3 = price(j): price(j) = price(j -1): price(j-1) = w3
w4 = score(j): score(j) = score(j-1): score(j -1) = w4
End If
Next j
Next i
For i= ③
List1. AddItem food(i) +Str( price(i))+"元"
sum =sum+score(i)
Next i
ave = Int(sum/ q * 10 +0.5) / 10
‘根据平均评分ave 的值给出推荐指数。若平均评分高于4.5分显示推荐指数"* **",若平均评分高于4.0分显示推荐指数"* *",4.0分以下的显示推荐指数" *",代码略。
End Sub
①②③
i = 1: j = 6: s = ""
Key = Val(Text1.Text) Randomize
Do While i <= j
m = Int(Rnd * (j - i + 1) + i) s = s + Str(a(m))
If a(m) < Key Then j = m - 1
ElseIf a(m) > Key Then i = m + 1
Else
Exit Do
End If
Loop
数组元素 a(1)到 a(6)的值依次为“88、76、64、25、24、12 ”,文本框 Text1 中输入 key 值,执行该程序段,s 值不可能的是( )
学期末,李老师要根据学生的总成绩给出相应的等级:成绩90分及以上(包含90分)等级为“优秀”,成绩在90和75(包含75分)之间等级为良好,成绩在75和60(包括60)之间等级为“合格”,60分以下为不合格。其中信息技术课的“总成绩=0.3*平时成绩+0.7*期未成绩",(注意:平时成绩和期末成绩的满分均为100分
请填空完善该程序,实现功能:输入平时成绩和期末成绩,输出学生的成绩等级。
#此程序功能是实现输出成绩等级。
pscore=int(input("请输入平时成绩:")) #输入平时成绩
qscore= #请输入期末成绩
score= #计算总成绩
if score>100 or score<0:
print("你的成绩输入有误")
elif : # 优秀等级的条件
print("优秀")
elif score>=75:
# 输出相应等级
elif score >= 60:
print("合格")
:
print("不合格")
from microbit import *
while True:
n=temperature()
if 34<=n<=36.5:
print('体温为'+str(n)+',体温偏低')
if 36.5<n<=37.5:
print('体温为'+str(n)+',体温正常')
if 37.5<n<=40:
print('体温为'+str(n)+',体温偏高')
sleep(2000)
如果小明的体温为36.8℃,则输出结果为。
A. 轻量级 B. 独立性,没有依赖,无序安装 C.对大小写有严格的区分