import math
a=float(input("请输入方程系数a:"))
b=float(input("请输入方程系数b:"))
c=float(input("请输入方程系数c:"))
d=b*b-4*a*c
if :
x1=(-b+math.sqrt(d))/(2*a)
x2=(-b-math.sqrt(d))/(2*a)
print("方程有两个不同的解",x1,x2)
elif :
x1=-b/(2*a)
print("方程有两个相同的解",x1)
else:
print("方程无解")
Private Sub Command1_Click()
Dim s As String, ch As String
Dim n As Integer, t As Integer, c As Integer
s = "Go-2020-12"
n = Len(s):t = 0
For i = 1 To n
ch = Mid(s,i,1)
If ch >= "0" And ch <= "9" Then
t = t + Val(ch)
Else
c = t: t = 0
End If
Next i
Label1.Caption = Str(c)
End Sub
执行完以上程序段后,标签Label1上显示的内容为( )
s= Text. Text
For i =1 To Len(s)
ch= Mid(s,i,1)
nk=Asc(ch)-i
If nk <0 Then nk nk+127
Text2. Text= Text2 Text Chr(nk)
Next i
已知大写字母A的ASCII码值为65,小写字母a的ASCII码值为97,在文本框Text1中输入内容“yhT5”,执行程序段后,文本框Text2显示的内容为( )。
Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = ⑴
For j = ⑵
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
⑶
Next i
Text2.Text = s
End Sub
print(ord(65+i),end=",")
B . for i in [1,2,3]:print(chr(65+i),end=",")
C . i = 0while i < 3:
print(chr(i+65), end= “,”)
i += 1
continue
D . i = 0while i < 3:
print(ord(i+65),end= “,”)
i += 1
i =1 : j=10 : s="" : n=0
key = 10+int(Rnd*20)
Do While i<=j
n=n+1
m=(i+j)\2
s =s+ str(m)
If key = a(m) Then Exit Do 'ExitDo表示退出循环
If key < a(m) Then j=m-1 Else i=m+1
Loop
a(1)~a(10)中的值依次是5,8,16,23,29,30,42,51,57,69执行程序后,以下说法正确的是:( )
1)根据字符串长度构建一个最小的n*n矩阵,将字符串中每个字符从左到右,自上而下顺序填入矩阵,不足部分用字符“*”代替;
2)将矩阵转置(行列对换),然后将奇数行字母内码加上1,偶数行字母内码减1,字符为a、z或A、Z时做循环处理。比如,字符a减1为z;字符Z加1为A。
3)按从左到右,从上而下依次取出字符,形成新的字符串。如图a为字符串“Go to the zoo.”的加密过程。编写VB程序,在文本框Text1中输入字符串,点击“加密”按钮,在文本框Text2中输出加密后的字符串。程序运行结果如图b所示。
|
图a | 图b |
Dim a(1 To 100) As String, b(1 To 100) As String, n As Integer
Private Sub Command1_Click()
Dim s1 As String, s2 As String,i As Integer, j As Integer, m As Single
s1 = Text1.Text
m = Sqr(Len(s1))
If m > Int(m) Then n = Int(m) + 1 Else n = m
For i = 1 To n * n
If i <= Len(s1) Then a(i) = Mid(s1, i, 1) Else a(i) = "*"
Next i
For i = 1 To n
For j = 1 To n
b((i - 1) * n + j) = ‘将矩阵转置
b((i - 1) * n + j) = jm(i, j) ‘内码变换
Next j
Next i
s2 = ""
For i = 1 To n * n
s2 = s2 & b(i)
Next i
Text2.Text = s2
End Sub
Function jm(x As Integer, y As Integer) As String
Dim s As String
s = b((x - 1) * n + y)
If s <= "Z" And s >= "A" Or s <= "z" And s >= "a" Then
If x Mod 2 <> 0 Then
If s <> "Z" And s <> "z" Then
s = Chr(Asc(s) + 1)
Else
s = Chr(Asc(s) - 25)
End If
Else
If s <> "a" And s <> "A" Then
s = Chr(Asc(s) - 1)
Else
s =
End If
End If
End If
End Function
请输入你的性别:
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 encrypt(st1): st2="" for s in stl: st2 += chr(ord(s)+5) return st2 print(encrypt("ktocji")) |
运行结果是
n=input(“请输入一个实数:”)
n2= math. floor(float(n))
print(n2)
补充程序段划线处代码。
a=input()
b=input()
c=int(a+b)
d=int(a)+int(b)
print(c,d)
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知数组flag各元素的初值为False,运行以上程序段程序,数组元素a(1)到a(5)的值可能为( )
①请填空,完善该程序实现功能:输入一串字符串(message)和一个数字(key)。对这串字符进行加密(向后移位Key位,只对26个英文字母加密)
注:程序修改时,请把下划线及序号删除,不能删除注释语句。
import math
import random
import os
#定义加密函数,对字母进行加密,即向后移动key位,其他字符不加密。
def cipher(befmessage, key):
aftmessage = ''
for char in befmessage:
if char.isupper(): #对大写字母进行加密
code = ord('A')+(ord(char)-ord('A')+key) % 26
aftmessage = aftmessage+chr(code)
elif char.islower(): #对小写字母进行加密
code = +(ord(char) - ord('a') + key) % 26
aftmessage = +chr(code)
else:
aftmessage = aftmessage+char #字母以外的其他字符不进行加密
return aftmessage
#主程序
message = input('请输入明文:')
key = (input('请输入密钥(整数):')) # 输入数字密钥
secret = cipher(message, )
print('加密后的密文是:',)
# 结束
②编写完成后,原名保存并关闭应用软件。