Dim a( 1 To 100) As Integer
Dim n As Integer
Function dq(s As String, L As Integer) As String ‘自定义对齐函数
‘在输入的字符串s前加若干空格,输出长度为L的字符串,代码略
EndFunction
Private SubCommand1_Click() '生成数字矩阵
‘随机生成n^2个数字,存储在数组a中,代码略
‘以一行n个,共n行的格式显示在List 1中,代码略
End Sub
Private Sub Command2_Click() '数字矩阵排序
Dim i As Integer, k As Integer, j As Integer, s As String
Dim f As Boolean
List 2.Clear
f=True
For i=1 To n^2 Step n
s=“”
For j=i To
k=n^2
Do While ①
If a(k) <a(k-1) Then
t=a(k):a(k)=a(k-1):a(k-1)=t
End If
k=k-1
Loop
If f=True Then
s=s+“”+dq(Str(a(j) ) , 2)
Else
s=“”+dq(Str(a(j) ) , 2) +s
End If
Next j
List 2.Add Items
②
Next i
End Sub
① ②
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n=2: m=0
Do While m<3
n=n+2
If fun(n) Then
Print n
m=m+1
End If
Loop
End Sub
Function fun(x As Integer) As Boolean
fun=False
If x/2=Int(x/2) Then
fun=fun(x/2)
Else
If x=1 Then fun=True
End If
End Function
import math
def pay(w,p):
if w>20:
①
return money
else:
returm 0
weight = int(input("行李重量:"))
price = int(input("机票价格:"))
extra = ②
print("超重量行李费为:"+str(extra))
① ②
1)授权码由10位字符组成,前8位为日期的密文,后2位为验证码;
2)从右往左依次取日期的每一位字符,若该字符第一次出现,则直接取其对应的加密字符,否则取下一个不重复的加密字符。按此操作,依次取出该日期余下各位对应的加密字符;如日期为20201223,则依次取出的字符为“3、2、2、1、0、2、0、2”。
3)求出所有日期字符数值的和,将和除16取余加1得到一位验证码字符;若和不小于16,则将和除16取整加1得到另一位验证码字符,否则另一位验证码字符为小写字母“x”。取出验证码重复时,处理规则与(2)相同。
加密(验证码)字符对应表如下:
|
值(十进制) |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
|
加密(验证码)字符 |
A |
K |
p |
j |
L |
t |
W |
b |
m |
a |
P |
F |
Z |
q |
y |
c |
设计一个生成8位日期(YYYYMMDD格式)授权码的VB程序。程序功能如下:在文本框text1中输入一个8位有效日期,单击“授权码”按钮comand1,在标签label2中显示出该日期的授权码。运行效果如图所示。

Dim f(0 To 15)As Integer
Const code = "AKpjLtWbmaPFZqyc"
Private Sub Comand1_Click()
Dim rq As String, sq As String
Dim c As Integer, i As Integer, d As Integer
For i = 0 To 15
f(i)= 0
Next i
rq = Text1. Text
sq="":d= 0
If Len(rq) <> 8 Then
Labe12. Caption ="请重新输入8位日期"
Else
For i = 1 To 8
c = Val(Mid(rq,i,1))
d =d + c
sq =
Next i
If d >= 16 Then
yz = getchar(d Mod 16 + 1) + getchar(d \ 16 + 1)
Else
yz = getchar(d Mod 16+ 1) + "x"
End If
Label2. Caption = sq + yz
End If
End Sub
Function getchar(x As Integer) As String '获取不重复的加密字符
Dim flag As Boolean
flag = False
Do while flag = False
f(x)=f(x)+ 1
If f(x)= 1 Then
getchar =
f(x)=f(x)+ 1
flag = True
Else
End If
Loop
End Function
代码中ragsatastop,tep)函数表示从start开始到stop结束的范围内,进行步长step的变化。标号5所在行代码表示设置音乐的频率,并循环改变,则每次循环音乐频率的变化是( )
from flask import Flask, render_ template #导入Flask库
app = Flask(_ name_ )
①
def index( ):
#获取数据库中传感器采集的数据,并存储在变量temp中,代码略
![]()
if ②
app.run(host= ③ )
① ② ③
(问题求解)下面的python程序实现的功能是判断方程是否有实数根。请阅读如下python程序,在空白处填写适当的表达式或语句,使程序完整。
import math
a=int(input("请输入a的值:"))
b=int(input("请输入b的值:"))
c=int(input("请输入c的值:"))
d= #将表达式b2-4ac的值赋给变量d
if
print("x1=",(-b+math.sqrt(d))/(2*a)) #输出方程的其中一个实数根
print("x2=",() #输出方程的另一个实数根
else:
#输出“方程无实数根”
i=1
Do While i<=6
a(i)= Int(Rnd * 9)+1
If a(i) mod 3=1 then
a(i)=a(i)+i mod 3
Elself a(i) mod 2=1 then
a(i)=a(i) mod 3
End If
i=i+1
Loop
执行该程序段后,以下选项中a(1)~a(6)的值不可能是( )
def exchange(a,b):
a,b=b,a
return(a,b)
x=10
y=20
x,y=exchange(x,y)
print(x,y)
程序代码如下:
Dim x As String
Dim y As String
Dim c(1 To 100) As String
Private Sub Command1_Click()
Dim z As String
x = Text1.Text
y = Text3.Text
z = f(x,y)
Text2.Text = z
End Sub
Function f(x As String, y As String) As String
Dim i, w, achar As Integer
Dim mm As String
w = Asc(y)
For i = 1 To Len(x)
achar = Asc(Mid(x, i, 1))
c(i) = Chr(x Xor y) ‘
Next i
For t = 1 To Len(x)
mm = mm+achar ‘
Next t
f = mm
End Function
程序代码有2处错误,请在画线处写上正确代码。
s= Text1.Text
s1=" "
For i=1 To Len(s)
c= Mid(s, i, 1)
If c>="A" And c<="Z" Then
t=(Asc©-asc("A")+25)Mod 26
c=Chr(t+ Asc("A"))
End If
s1=s1+c
Next i
Text2.Text=s1
s1=s1+c
在文本框Text1中输入“ABcd2XY”,执行上述程序段后,文本框Text2中输出( )
import jieba
str="热烈庆祝建党100周年"
fc=jieba.lcut(str)
print(fc)
for i in fc[::1]:
print(i)
已知分词之后的文本输出fc为:['热烈庆祝', '建党', '100', '周年'],则程序运行结束后的结果是( )
建党
100
周年
C . 热烈庆祝建党100周年 D . 年周001党建祝庆烈热def f(x):
#定义方程
return x**3-x**2+x-1
a=float(input("请输入解区间的左边界:"))
b=float(input("请输入解区间的右边界:"))
while abs(b-a)>1e-6:
x0=(a+b)/2
if ( ① ):
b=x0
if ( ② ):
a=x0
if ( ③ ):
break
print("解为:",x0)
input("运行完毕,请按回车键退出...")
①请填空完善该程序,实现功能:求1到100之间所奇数的和。
注:程序修改时,请把下划线及序号删除;不能删除注释语句。
s=0 #s中存放1-100之间所有奇数的和
for i in range(, 100, ):
s =
print(s)
②编写完成后原名保存并关闭应用软件。
def jiami(x):
if "A"<=x<="Z":
y=chr(ord(x)+32)
elif "0"<=x<="9":
y=str((int(x)+1)%10)
else:
y=x
return y
mingwen=input("请输入明文")
miwen=""
for x in mingwen:
miwen=miwen+jiami(x)
print("密文为:",miwen)
输入“Abc@789”并运行程序,输出结果是( )