程序界面如图所示,左边列表框List1中显示的是部分职工的卡号和余额,在文本框Text1中输入职工的IC卡号,单击“查询余额”按钮(Command1)后,如果找到此卡号,则在标签Lab3中显示“此卡号余额为”和对应的余额值,如果未找到则显示“找不到此卡号,请重新输入”。
解决此问题的部分程序段如下:
Const n=500' 设卡号总数为500
Dim zg(1 To n) As Long
Dim ye(1 To n) As Single
Private Sub Form1_Load()
' 此过程用于对数组zg和数组ye进行初始赋值,代码略
End Sub
Private Sub Command1_Click()
Dim x As Long, i As Long, j As Long, m As Long, find As Boolean
x=Val(Text1.Text)
i = 1 : j = n : find = False
Do While ‘改错
m = Int((i + j) / 2
If x = zg(m) Then
①
Else If ② Then
j = m - 1
Else
i = m + 1
End If
Loop
If find = true Then
Lab3.Caption=″此卡号余额为″+Str(ye(m))+″元″
Else
Lab3.Caption=″找不到此卡号,请重新输入″
End If
End Sub
程序中①画线处应填入。
程序中②画线处应填入。
For i = 1 To 10 ‘i控制*的行数
For j = 1 To i ‘j控制每行*的个数
Print "*"; ‘输出*
Next j
Print ‘输出换行
Next i
运行结果是:( )
B .
C .
D .
<div class="movies_title">
<h1>冰雪奇缘2</h1>
<h2>Frozen II<h2>
</div>
要采集到“冰雪奇缘2”这几个字符,请完善以下爬虫程序( )
all_title = soup.find_all(' ① ', class_=" ② ")
for j in all_title:
soup_title = bs4.BeautifulSoup(str(j), "html.parser",)
title.append(soup_title. ③ .string)
s ="waste" : n = Len(s)
s1 = Text1.Text : flag = False
For i=1Ton
If Mid(s,i,1) = Mid(s1, 1,1) Then
flag = True
For j = 2 To Len(s1)
If Mid(s1, j, 1)<>Mid(s, (j+i-2) Mod n + 1, 1) Then flag = False: Exit For
Next j
If flag Then Exit For
End If
Next i
执行该程序段后,若flag变量值为True,则文本框Text1中输入的内容不可能的是( )
s=0
For i=1 To 5 Step 2
s=s+i
Next i
s=s+i
Label1.Caption=Str(s)
该程序段运行后,标签Label1上显示的内容是( )
Dim a(0 To 25)As Integer
s=Text1.Text
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>=“a” And ch<=“z” Then
m=Asc(ch)-97
a(m)=a(m)+1
End If
Next i
已知数组a中元素的初值为0,若文本框Text1中输入的内容是“One of the most important questions;”,执行该段程序后,数组元素a(14)的值为( )
xx=[35,29,28,42,21,38,17,44,18,19]
sum=0
for i in :
sum=sum+i
print("信息学科平均分为:"+str(ave))
xx=[35,29,28,42,21 ,38,17,44,18,19]
ty=[29,31,26,38,40,41,26,41,21,33]
c=0
for i in :
if :
c=c+1
print("技术学科分数大于等于80分的学生有:"str(c)+"个"
Private Sub Comand1_Click( )
Dim s As String, c As String
Dim t As Integer, I As Integer
Dim a(1 To 26)As Integer
s=Text1.Text
For i=1 to 26
a(i)=0
Next i
i=1
Do While i<=Len(s)
c=Mid(s, i, 1)
If ① Then
t=Asc(c)-96
Else
t=Asc(c)-64
End If
If a(t)=0 Then
a(t)=1
Else
②
End If
i=i+1
Loop
Label1.Caption=s
End Sub
① ②
如:输入十进制数35,将其转换为二进制数为100011,其中最长连续数字是3个“0”。程序运行界面如图所示。

Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, m As Integer
Dim s As String, ch As String, ch1 As String, ch2 As String
n = Val (Text1. Text)
Do While n<>0
s=CStr(n Mod 2)+s ‘CStr将数字转化为字符串,但不会有前导空格
Loop
ch1 = Mid(s, 1, 1): ch = ch1
i=2:j=1:m=0
For i=2 To Len(s)
ch2 = Mid(s, i, 1)
If Then
If i-j> m Then
m=i-j
ch = ch1
End If
ch1 = ch2
End If
Next i
![]()
Text2. Text = Str(m) & “个”& ch
End Sub
s = 123456
i = 10: t = 0
Do While s > 0
Loop
Text1.Text = str(t)
方框中的代码由以下三部分组成:
①i = i * 100
②s = s \ 10
③t = t * 10 + s Mod 10 + (s Mod 10) * i
顺序正确的是( )
Private Sub Command1_Click ()
Dim a(1 To 10) As Integer,i As Integer
For i=1 To 10
a(i)=i^i
Next i
List1.AddItem Str(a(i))
End Sub
运行程序,单击命令按钮Command1后,出现的错误提示为( )
def convert(s):
m=0
le=len(s)
key=s[le-1]
if key=="B":
n=2
elif key=="D":
①
else:
n=16
i=0
while i<=le-2:
c=s[le-1-i]
if c>="0"and c<="9":
a=ord(c)-ord("0")
elif c>="A"and c<="F":
a=ord(c)-ord("A")+10
②
i+=1
return m
s=input("请输入算式")
result=0;suanfu1="";suanfu2="";s1=""
for i in range(len(s)):
c=s[i]
if c=="+" or c=="-" or c=="=":
③
suanfu1=suanfu2
suanfu2=c
if suanfu1=="":
result=t
if suanfu1=="+":
result=result+t
if suanfu1=="-":
result=result-t
s1=""
else:
s1=s1+c
print("计算结果为"+str(result)+"D")
① ② ③
Dim dd(0 To 100) As Integer '记录所有订单的取件距离
Dim fp(0 To 100) As Integer '存储第x个快递员取件的最远距离
Dim xs(0 To 100) As String
Private Sub Command1_Click()
Dim n As Integer,i As Integer,k As Integer,s As String
Dim left As Integer,right As Integer,m As Integer
Dim x As Integer,r As Integer
Randomize
s = Text1.Text: n = 1: i = 1
Do While i <= Len(s)
k = i: ch = Mid(s, k, 1)
Do While
k = k + 1: ch = Mid(s,k,1)
Loop
dd(n) = Val(Mid(s,i,k - i))
i = k + 1: n = n + 1
Loop
x = 1: fp(x) = dd(1)
For i = 2 To n - 1
left = 1
right = x
Do While left <= right
m = (left + right) \ 2
If Then
right = m - 1
Else
left = m + 1
End If
Loop
fp(r) = dd(i)
If r = x + 1 Then x = x + 1
Next i
Label2.Caption = "第" + Str(i - 1) + "件快递将由第" + Str(r) + "号快递员收取"
'列表框List1中显示每位快递员的收取情况,代码略
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
lena =
End If
Loop
s = ""
For i = 1 To lena
s = s + Str(a(i))
Next i
Text2.Text = s
End Sub
例如有如下比分记录:
"fffffffffffffwwwffffffffwwwfwfwfwffwwwfffwwffwwffffwwwwffwwwwffwwwfffwwwwwffwwwwffww"。
采用11分制,各局比分为: 0 : 11,6 : 11,10 : 12,11 : 5,11: 7。采用21分制,各局比分为: 3 : 21,21 : 16,14 : 9。
def check(a,b,fz):
flag=False
if :
flag=True
return flag
s=input("输入比赛记录:")
a=[0]*1000
b=[0]*100
c=[0]*100
j=0;k=0;x=-1
f1=0;f2=0;h1=0;h2=0
for i in range(len(s)):
if s[i]=="w":
a[i]=1
n=len(s)
for i in range(n):
if a[i]==1:
f1=f1+1
else:
f2=f2+1
h1=h1+a[i]
if check(f1,f2,11):
b[j]=f1;b[j+1]=f2
j=j+2
f1=0;f2=0
if check(h1,h2,21):
c[k]=h1;c[k+1]=h2
k=k+2
a
x=i
#输出二种分制下各局比分,代码略
|
m = int(input("请输入一个正整数:")) x = m y = m for i in range (9):n = int(input("请输入一个正整数:")) if n<x : x = n if n<y : y = n print(x, y) 程序运行后,依次输入:12 35 9 11 23 88 13 19 29 55 |
运行结果是:
from microbit import * #引用 micro:bit 库
while True:
print(temperature()) #向串口发送当前环境温度的浮点数值
① #延时 0.5 秒
Web登录界面开发代码内容如下:
from flask import Flask #导入 Flask 库
from flask import render_template app=Flask( name )
@app.route("/") #路由本地默认路径
def index():
return "Index Page"
@app.route("/hello")
def hello():
return "Hello World!"
@app.route("/user/<name>")
def user(name):
return "hello," + name + "!" if name__==" main ":
app.run( )②
用户名和密码读取代码如下:
from flask import Flask,request app=Flask( name )
③
def user(): user=request.args.get("name") psd=request.args.get("psd")
return "用户名:"+user+"密码"+psd if name__==" main ":
app.run()
用户名和密码获取的运行界面如下图所示:
ls=[23,45,67,87]
def is_prime(n):
for i in range(2,n):
if n%i==0:
return False
return True
sum=0
for x in ls:
if is_prime(x):
sum=sum+x
print(sum)
运行结果是
s=input("请输入字符: ")
Max=0
c=1
for i in range(1,len(s)):
if s[i]==s[i-1]:
c+=1
if c>Max:
else:
print(Max)
程序代码如上所示,其中①和②处的应填入的代码是( )