算法思路:从乘数的最后一位开始逐个取出来与被乘数相乘,例如635的最后一位5,取出来与被乘数5相乘,得到25,个位数5作为结果存入s字符串,十位数2作为进位,留着加入下一次的乘积中,然后取出3,与5相乘,得到15,但是要加上刚才的进位,所以应该是17,个位数7作为结果存入s(此时结果是75),十位数作为进位1,留着加入下一次乘积…… 。
Private Sub Command1_Click()
dim s as string,s1 as string,s2 as string
dim i as integer,jinwei as integer,d as integer,t as integer
s1 = Text1.Text
s2 = Text2.Text
s = ""
jinwei = 0
For i = Len(s1) To 1 Step -1
d = Val(Mid(s1, i, 1))
t =
s =
jinwei = t \ 10
Next
If jinwei<> 0 Then s =
List1.AddItem s1 &"*"& s2 &"="& s
End Sub
n=int(input(“请输入数字:”))
if n>5 :
print(4*n)
else :
print(7*n)
如果输入5,则程序运行的结果为( )
Const n = 10
Dim d(n) As Integer, c As Integer
Private Sub Form_Load()
Dim i As Integer, j As Integer, f As Boolean, s As String
Randomize
c = n
For i = 1 To n
f = False
d(i) = ' 随机生成个位数为“9”的两位数
For j = 1 To i - 1
If Then f = True
Next j
If f Then c = c - 1
Next i
'原始数据在文本框Text1中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim cnt As Integer,t As String, s As String
d(0) = 100
cnt = Val(Text2.Text)
If cnt > c Then
Text3.Text = "输入筛选的个数太大,请重新输入!"
Exit Sub 'Exit Sub表示退出过程
End If
For i = 1 To cnt
k = i
For j = i + 1 To n
If d(j) < d(i - 1) And(
)Then k = j
Next j
If k <> i Then
t = d(i): d(i) = d(k): d(k) = t
End If
Next i
For i = 1 To cnt
s = s + Str(d(i)) + ","
Next i
Text3.Text =
End Sub
最佳方案为初始时所有人聚集在2号房间,此时花费的最小能量为7×0+8×1+6×2+4×3+4×4=48。
实现上述功能的VB代码如下,但加框处代码有误,请改正。
Dim a(1 To 100)As Integer ‘依次存储编号为1到100的房间的最多居住人数
Private Sub Form_Load( )
‘产生n的值
‘本过程从数据库中依次读取编号为1到n的房间的最多居住人数,并存储在数组a中
‘代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,w As Integer
Dim t As Long,ans As Long
ans=32767
For i=1To n
t=0
For j=0 To n-1
‘①
If w=0 Then w=n
‘②
Next j
If t<ans Then ans=t
Next i
Text2.Text=Str(ans)
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①;②。
H=float(input("输入身高,单位为米:"))
If h<1.2:
print("免票")
elif :
print("请购半价票")
else:
prin("请购全价票")
①给定24小时内的租赁起始时间和结束时间:输入租赁开始的时间和结束的时间。注:时间的输入格式为hh:mm:ss,如10:23:11。
②计算租车时间time:计算租车起始时间和结束时间的时间差time。
③计算租车费用pay:若time小于等于1,则pay为0;若,则pay为time;若time大于10, 则pay为10。
Stime=input('租车开始时间:')
etime=input('租车结束时间:')
#stime.split(":")[0]切出的是租车开始时间的时
#stimespli(":")[1]切出的是租车开始时间的分
#stime.split(":")[2]切出的是租车开始时间的秒
if int(etime. split(":")[0])>=int(stime.split(":")[0]):
time=int(etime. split(":")[0])-int(stime.spilt(":")[0])
if int(etime.split(":")[1]>int (stime.split(":"))[1):
time=time+1
elif int (etime.split(":")[1])= int(stime.split(":")[1]) and int(etime.split(":")[2]>= int(stime.split(":")[2]):
time= time+1
if time<=1:
pay=0
elif
pay=time
else:
print(pay)
If y > 0 Then y = -y
D . y = xIf x < 0 Then y = -x
import random
num=random.randint(1, ① )
mynum=int(input('请输入mynum='))
n=1
while not( ② ):
n= n+1
if mynum<num:
print("输入的数小了")
elif mynum>num:
print("输入的数大了")
print("输入不正确,请再次输入")
mynum=int(input('请输入mynum='))
print("你猜对了!","一共用了",n,"次")
input("运行完毕,请按回车键退出...")
下列说法正确的是( )
Text1.text="相同":j=1
Do while j<=len(s2)
If mid(s1, 1, 1)=mid(s2, j, 1) then
s1=mid(s1, 2, len(s1)-1)
s2=mid(s2, 1, j-1)+mid(s2, j+1, len(s2)-j)
Else
If
Text1.text="不相同"
End if
End if
Loop
方框中的代码由以下三部分组成:
①j=j+1 ②j=1 ③j=len(s2)+1
则(1)、(2)、(3)中代码顺序正确的是( )
1)初始时,建立一个空字典,把26个小写字母加入字典中。26个小写英文字母编码为1-26,字母“a”的编码为1,字母“b”的编码为2,其它字母的编码依次增加。
2)从字符串第一个位置开始扫描,若遇到空格(空格用“*”表示),则得到一个单词,截取该单词并存入变量中。
3)若该单词在字典中,则取出该单词在字典中的编码值;否则,依次取出该单词中各字母在字典中的编码值,(编码值之间用一个空格分隔),同时产生该单词的编码(编码为字典中的最大编码值加1),加入字典中。
4)继续扫描字符串,截取单词,并按照步骤(3)的方法进行处理,直至整个字符串编码完毕。字符串“abab”LZW编码过程如图所示。
Dim pos As Integer, a(1 To 100)As String
Private Sub Form_Load( )
'将字母“a”至“z”依次存入数组元素a(1)到a(26)
End Sub
Function judge(ss As String) As Integer '判断字典中是否有ss这个单词
Dim i As Integer judge = 0
For i = 27 To pos
If a(i) =Then judge = i
Exit For
End If
Next i
End Function
Private Sub Command1_Click( )
Dim s As String, i As Integer, j As Integer, k As Integer, ch As String, word As String, result As String, Dim id As Integer, idletter As Integer
s = Text1.Text pos = 26: i = 1
Do While i <= Len(s)
j = i
Do While Mid(s, j, 1) <> " " j = j + 1
If j > Len(s) Then Exit Do
Loop
word = Mid(s, i, j - i)
If Len(word) = 1 Then '单个字母的单词
result = result + Str(Asc(word) -Asc("a") + 1)
Else
id = judge(word)
If id = 0 Then '新的单词
For k = 1 To Len(word) '依次处理该单词中的各个字母编码
ch = Mid(word, k, 1)
Next k
pos = pos + 1 '对该单词编码
a(pos) = word
Else '词典中存在该单词
result = result + Str(id) End If
End If
If j < Len(s) Then result = result + " *"
Loop
Text2.Text = result
End Sub
m = Text1.Text
For i= 1 To Len(m)
c= Mid(m,i, 1)
If c>= "0" And c<= "9" And i Mod 2 = 0 Then k=1 Else k= 2
a(k)= a(k)+ 1
Next i
数组a各元素的初始值都为0,文本框Text1上输入内容为“9+ ILM2019IT”(不包含双引号)。该程序段运行后,a(2)的值为( )
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
s1 = s1 + Mid(s, i, 1)
Else
s1 = Mid(s, n - i + 1, 1) + s1
End If
Next i
Text1.Text = s1
执行该程序段后,在文本框Text1中显示的是( )
def s(x):
if x<=2:
y=x
else:
y=s(x-1)+s(x-2)
return y
a=int(input("请输入正整数:"))
result=s(a)
print(result)
运行程序,输入值为6,则输出结果为( )
s="abcababcababcab" : n= Len(s)
For t=1 To n\ 2
If n Mod t=0 Then
For i=t+1To n
If
<>Mid(s, i, 1) Then Exit For
Next i
If i =n+1 Then ans =
: Exit For
End If
Next t
Text1.Text= ans
上述程序段2个方框处的表达式分别为( )
sentence=input('请输入一段文字:')
for i in sentence:
if i=='密':
continue
print(i,end='')
实现上述功能的VB代码如下,请回答下列问题:
Const n= 10
Dim a(1 To n) As Integer
Private Sub Form_ load( )
'数组初始化,生成1~20之间的随机整数并赋值给数组a,代码略
End Sub
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom= n
For i=1 To bottom-1
For j= bottom To i+1 Step -1
If
Then '①改错
t=a(j) : a(j)=a(i) : a(i)=t
ElselIf a(j)=a(i) Then
'②填空
bottom= bottom- 1
End If
Next j
Next i
Text2. Text=" "
For i=1 To bottom
Text2. Text= Text2. Text+Str(a(i))
Next i
End Sub
m= Text1. Text: s=" "
If m>= "a" And m<= "z" Then init= Asc("a")
If m>= "A" And m<= "Z" Then init= Asc("A")
n= Asc(m) - init +1
For i=1 To
If i <= n Then
s=s+
Else
s=s+
End If
Next i
Label2. Caption=s
上述程序中方框处可选语句为:
①12*n-1 ②2*n ③Chr(Asc(m)+i-n) ④Chr(init+2 * n- i- 1)
则(1)(2)(3)处语句依次是( )
x=int(input("请输入正整数x:"))
y=int(input("请输入正整数y:"))
while x <> y:
if x > y:
x = x - y
else:
y = y - x
若输入8、24,则x、y的值分别为( )
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”并运行程序,输出结果是( )