试题 试卷
题型：解答题 题类：常考题 难易度：普通
【bj】高中信息技术综合库——循环语句2
Private Sub Form_Click()
Dim As Integer, j As Integer, x As Integer
For i=1 To 100
x=0
For j=1 To i-1
If i Mod j=0 Then x=1
Next j
If x=0 Then Print x
Next i
End Sub
s="ABCDEFGH"
i=1
Do While i<=Len(s)
If i mod 2=0 then
s=mid(s, i+1, len(s)-i) & mid(s, 1, i-1)
End If
i=i+1
Loop
Text1.text=s
比如：仓库存储情况列表 a=["0", "A", "A", "B", "B", "A", "0", "0", "0"]，其中"0"表示空位，"A", "B"表示位置上货物种类 , 现需从中取出一件B货物，则应从右侧取出，取完后，仓库存储列表更新为a=["0", "A", "A", "B", "A", "0", "0", "0", "0"]。
n=int(input())
{#blank#}1{#/blank#}
for i in range(n+1):
flag=False
if i%7==0:
flag=True
m=i
while {#blank#}2{#/blank#}:
if m%10==7:
m//=10
if {#blank#}3{#/blank#}:
sum=sum+i*i
print(sum)
输入a，b两个整数，如果a为大数，则进行交换，然后分别输出大数、小数的值。
a＝int（input（"请输入a："））
b＝int（input（"请输入b："））
if {#blank#}1{#/blank#}： #如果a为大数
a, b＝b, a
print（"大数是"，{#blank#}2{#/blank#} ，"小数是"，{#blank#}3{#/blank#}）
试题篮
