请补充完成上述横线处程序:、
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值:" +
End Sub
s = ""
For i = 2 * n - 1 To 1 Step -1
If i <= n Then
S=
Else
S=
End If
Next i
上述程序段方框处的语句分别为:( )
Private Sub Command1_Click()
Dim i As Integer, count As Integer, length As Integer
Dim ch As String, key As String, s As String
s= Text1.Text
length=
key= Mid(s,1,1)
i= 2 : count= 1
Do While i <= length
ch= Mid(s,i,1)
If ch = key Then
Else
Text2.Text = Text2.Text + Str(count) + key
count= 1
key= ch
End If
Loop
Text2.Text = Text2.Text + Str(count)+ key
End Sub
N=0
For i=1 to 25
If i mod 5= 0 then n=n+i
Next i
s=0
for i in range(1, 101):
if i%2== 0:
s+=i
该程序段被执行后,变量s中存储的是1~100之间的( )
s = "": k = 0
For i = 1 To 20 Step 3
If i Mod 7 = 0 Then
k = 1
ElseIf i Mod 5 = 0 Then
k = 2
End If
If i Mod 2 = 0 Then k = 3
s = s + Str(k)
Next i
Label1.Caption = s
该程序段运行后,标签框label1上显示的内容是( )
代码中ragsatastop,tep)函数表示从start开始到stop结束的范围内,进行步长step的变化。标号5所在行代码表示设置音乐的频率,并循环改变,则每次循环音乐频率的变化是( )
Dim a(1 To 6) As Integer
a(1) = 6
For i = 2 To 6
a(i) = Int(Rnd * 30 + 1) * 3
If a(i) Mod 2 = 1 And i Mod 2 = 0 Then
i = i - 1
ElseIf a(i) > 60 Then
a(i) = a(i) - a(i - 1)
End If
Next i
执行该段程序后,a(1)~a(6)中的值可能是 ( )
s= "abcde"
m=0
L=Len(s) :n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s,1,m-1)+ Mid(s,m+1,L) +Mid(s,m,1)
n= n-1
Loop
执行该程序段后,变量s的值是( )
t(1) = 1: t(2) = 1
For i = 3 To 5
t(i) = t(i - 1) + t(i -2)
Next i
Key =13
i=1: j=8: k=6
Do While i <=j
m = i+t(k-1) ‘①
If Key = d ( m ) Then Exit Do ‘Exit Do表示退出循环
If d(m) > Key Then
j= m - 1
k=k-1
Else
i = m + 1
k=k-2
End If
Loop
运行该程序段后,①处的赋值语句共执行( )
1)这两项运动在记录中必须连续出现,不能被其他运动打断,如“1,2,2,1,2”是一种可能的结果;“1,2,2,1,2,3”则不是可能的结果;
2)这两项运动在记录中出现的次数必须是最多的一种组合。
运动记录 |
1,1,2,3,2,3,2,3,3,1,1,4,3 |
||||
序号 |
① |
② |
③ |
④ |
⑤ |
两项运动 |
1,1,2 |
2,3,2,3,2,3,3 |
3,3,1,1 |
1,1,4 |
4,3 |
从上表分析可知,小张在一段时间内连续进行的两项运动有5种不同组合,其中组合②中的两项运动持续时间最长,所以最“喜爱”的两项运动为2和3,共连续进行了7次。
根据算法思想,编写VB程序实现如下功能:程序初始化时读取小张记录的一段时间内的所有运动项目,以逗号间隔显示在文本框Text1中,单击“寻找运动项目”按钮Command1,在标签Label4上显示最喜爱的两项运动编号,在文本框Text2中显示这两项运动最长持续的次数。程序运行界面如图所示。
Dim a(1 To 100) As Integer, n As Integer
Private Sub Form_Load( )
'读取已有记录项目总数n
'读取记录的每次运动项目存入数组 a,并在文本框Text1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer 'x, y分别表示当前记录中两个不同项目
Dim c1 As Integer, c2 As Integer 'c1,c2 分别表示两个项目在当前统计过程中出现的次数
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer, ans As Integer
i = 1: j = 1
Do While j <= n And a(i) = a(j)
j = j + 1
Loop
x = a(i): y = a(j)
c1 =
c2 = 1
ans = j - i + 1
Do While j < n
j = j + 1
If a(j) = x Then
c1 = c1 + 1
ElseIf a(j) = y Then
c2 = c2 + 1
Else
Do While
If a(i) = x Then c1 = c1 – 1 Else c2 = c2 - 1
i = i + 1
Loop
If Then
y = a(j)
c2 = 1
Else
x = a(j)
c1 = 1
End If
End If
If ans < j - i + 1 Then
ans = j - i + 1
m1 = x
m2 = y
End If
Loop
Label4.Caption = Str(m1) + "和" + Str(m2)
Text2.Text = Str(ans)
End Sub
k=0
while k<=10:
k=k+2
print(k)
km =”物化生政史地技”
combs =[]
for i in range(128) :
t=
c=0
s=“”
for j in range(7):
c=
if t % 2=1:
s += km[j]
t =t//2
if c=3:
combs.append(s)
print (combs)
import random
a = [0] * 6
for i in range(0,6):
a[i] = random.randint(1,5) * 2 + 1
i = 0
while i < 5:
if a[i] > a[i+1]:
a[i],a[i+1] = a[i+1],a[i]
else:
a[i] += 1
i += 1
print(a)
执行以上程序后,列表变量a可能的是 ( )
sentence=input('请输入一段文字:')
for i in sentence:
if i=='密':
continue
print(i,end='')
①请填空完善该程度,实现功能:某种编码由六位二进制码组成,前三位表示方向,后三位表示距离。输入一组六位二进制,将编码翻译成方向和距离,距离值为每组编码后三位二进制转换为十进制的值。
某种编码由六位二进制码组成,前三位表示方向,后三位表示距离。
输入一组六位二进制码,将编码翻译成方向和距离,距离值为每组编码后三位二进制码转换为十进制数的值。
②编写完成后原名保存并关闭应用软件。
s =input("输入六位二进制:")
n = len(s)
i = 0
while i <= n-1:
c =s[i:i+3]
if c == "000":
d = "东"
elif c == "001":
d = "东南"
elif c == "010":
d = "南"
elif c == "011":
d = "西南"
elif c == "100":
d = "西"
elif c == "101":
d = "西北"
elif c == "110":
d = "北"
else:
d = "东北"
b1 = int(s[i + 3])
b2 = int(s[i + 4])
b3 = int(s[])
v= #实现三位二进制编码到十进制的转化
print( +" " + str(v)) #按格式要求打印输出,如:东 7
#调整i的值