Private Sub Command1_Click()

  n = 6

  x = 1

For i =1 To n

  x = x * i

Next

End Sub（   ）

Dim a(1 to 5) as integer, i as integer, c as integer

a(1)=2: a(2)=1: a(3)=3: a(4)=4: a(5)=5

c=0

for i=3 to 5

 if a(i-2)+a(i-1) =a(i) then c=c+1

next i

text1.text = str(c)

该程序运行后，文本框text1中显示的内容是（   ）

绘制函数图象y=x²的VB源代码如下，请补充完整。

以上的VB计算机语言是{#blank#}3{#/blank#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）

①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；

②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺

序出牌，同一牌型从小到大出；

③最后出炸弹，若有多个炸弹，从小到大出。

设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。

num = input("请输入数字串：")

c = 0

   ⑴  

for i in range(1,len(num)):

    if     ⑵     and f == False:

        f = True

    elif    ⑶     and f == True:

        c = c + 1

        f = False

print("该数字串中有", c, "个拐点")

方框(1)(2)(3)的代码由以下部分组成：

①f = True    ②f = False    ③num[i-1] > num[i]    ④num[i-1] < num[i]

下列选项中代码顺序正确的是（   ）

输入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#}）