Dim i As Integer, m As Integer ,flag as Boolean

m = {#blank#}1{#/blank#}

flag= {#blank#}2{#/blank#}

For  i = 2  To  int(sqr(m)) 

If {#blank#}3{#/blank#}   Then

 flag=false

 Exit For

End if

Next  i 

If flag=true Then 

Text2.Text = str(m) +"是素数" 

Else 

Text2.Text = str(m)  +"不是素数"

End if

⑴将n乘以3后加1产生一个新的数

⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1

譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示，回答下列问题：

假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）∧年数

假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）∧n>12000，求最小的n。

（参考程序）

Dim s as single

Dim r as single

Dim n as integer

s=10000

r=0.03

n=0

Do while            

    n=n+1

    s=s*(1+r)

Loop

Print n;“年后”:“连本带利超过”；s

根据上述回答下列问题：

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while     ①    :

t=i

s=""

c=0

    for j in range(4):

       if t%2==1:

          s=   ②      

c+=1

            ③      

    if     ④      :

       combs.append(s)       # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)

实现功能：键盘上输入任意一个正整数，将其按冰雹猜想的规则进行拆解，输出每一步拆解的值和总步数，验证其是否符合冰雹猜想。

冰雹猜想是指：一个正整数，如果是奇数就乘以3再加1，如果是偶数就对它除以2（如下图），这样经过若干次，最终回到1。无论这个过程中的数值如何庞大，就像瀑布一样坠落，在经过若干次的变换之后也必然会到纯偶数：4－2－1。

N变为

x＝{#blank#}1{#/blank#}(input("请输入任一正整数："))

n＝0

while({#blank#}2{#/blank#})：

    if (x%2 ！＝ 0)：

        x＝{#blank#}3{#/blank#}

   else：

        x＝int(x/2)

    print({#blank#}4{#/blank#}, end＝" ")