S = 0
i = 5
Do While i < 12
If s <6 Then s = s+i else s = s-3
i = i+1
Loop
执行以上程序后,变量i和s的值分别为( )
s = 0
For i = 1 To 30
If i Mod 5 = 0 Then
s = s + i
i = i + 6
End If
Next i
运行后,变量s的值是( )
S=0
For i=1 To 3
s=s+2
Next i
Print s
s=0
For i=1 To 10
t=1
for j=1 to i
t=t*j
next j
s=s+t
Next i

a=3
b=5
a=a+b
b=a-b
a=a-b
Print a,b
a(1) = 1: s = 0
For i = 2 To 6
s = 0
For j = 1 To i – 1
s = s + a(j)
Next j
a(i) = s + 1
Next i
执行该程序段后,a(6)的值为( )
n=int(input(“请输入数字:”))
if n>5 :
print(4*n)
else :
print(7*n)
如果输入5,则程序运行的结果为( )
Private Sub Command1_Click( )
Dims As String, c As String,d As String
Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer
s=Text1.Text:n=Len(s):i=1
Do While i<=n
c=Mid(s,i,2)
If c="00"Then
d="东"
ElseIfc="01"Then
d=“南"
ElseIf c="10" Then
d="西(vi)"
Else
d="北"
End If
b1=Val(Mid(s, i+2, 1))
b2=Val(Mid(s ,i+3, 1))
v= ①
List1.AddItemd+""+Str(v)
②
Loop
End Sub
① ②
程序描述: 所谓角谷猜想,是指对于任意一个正整数,如果是奇数,则乘3加1,如果是偶数,则除以2,得到的结果再按照上述规则重复处理,最终总能够得到1。如,假定初始整数为5,计算过程分别为16、8、4、2、1。
程序要求输入一个正整数(不为1),将经过处理得到1的过程输出来。代码如下:
x=int(input('输入一个正整数:'))
while ①
if ②
x=x/2
③
else:
④
③
if x==1:
⑤
if (a%3=0) Or (b%3=0) :
c = a * b
else:
c = a + b
执行后变量c的值为( )
Sub Command1_Click()
x=4
For i=1 To 10 step 3
If x<i Then x=x+i
End If
Next i
Text1.Text=str(x)
End Sub
该程序运行结束,文本框 Text1 中显示( )
s="R255:G122:B221:End"
c=1
For i=1 To Len(s)
t=Mid(s,i,1)
If t>="0" And t<="9" Then
a(c)=t+a(c)
Else
c=c+1
End If
Next i
已知数组a各元素的初始值均为空字符串,执行该程序段后,字符串122存储在数组( )中。
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
s = Text1.Text:n = Len(s)
'按s中字符顺序从左到右依次存入到数组a中,代码略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
Private Sub Command1_ Click()
Dim d As Integer, k As Integer, r As Integer
Dim s As String, c As String
d= Val(Text1. Text)
k= Val(Text2. Text)
s=" "
Do While d>0
r=d Mod k
If r>=10 Then
c= Mid(“ABCDEF”,,1)
Else
c=str(r)
End If
s=
d=d\ k
Loop
Label1. Caption=“结果为:”+s
End Sub
s="491053”
For i=1 To 3
n=Len(s)
k=1
For j=2 To n
If Mid(s, k, 1) > > = Mid(s, j, 1) Then
k=j
Else
Exit For 'Exit For表示退出循环
End If
Next j
s= Mid(s, 1, k-1)+ Mid(s, k+1, n- k)
Next i
Label1.Caption= s
执行该程序段后,标签Labe1中显示的值是( )
a="hello"
b=2
print(a+b)