的是 ( )
下列说法正确的是( )
1)将n乘以3后加1产生一个新的数
2)对产生的新数循环执行如下操作:新数是偶数时,用新数除以2;新数是奇数时,用新数乘以3后加1
譬如,以2为初始值,则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示,回答下列问题:
Private Sub Command1_Click()
Dim n As Integer, t as Integer ,m as Integer ,s as String
t = n * 3 + 1
m = 1
s = ""
Do While
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现!"
End If
End Sub
a=2
b=5
If a<b Then
m=a
Else
m=b
End If
该程序段运行后,变量m的值为( )。
Dim a(1 To 10) As Integer, f(1 To 10) As Boolean
'f 数组各元素的初值设为 False,代码略
For i = 1 To 10
t = Int(Rnd() * 20 + 1)
If Not f(t) Then
a(i) = t
⑴
Else
⑵
End If
Next i
For i = 1 To 20
If flag(i) Then List2.AddItem ⑶
Next i
上述程序中 3 处下划线应填入的程序代码是
下列说法正确的是( )

单击“计算”按钮Command1后,则在文本框Text2中显示的内容是,在文本框Text3中显示的内容是。
Private Sub Command1Click()
Dim s As Integer, t As Integer, n As Integer
n = Val(Text1.Text)
t = 0
s = 0
For i = 1 To n
If Int(Sqr(i)) = Sqr(i) Then
s = s + i
t = t + 1
End If
Next i
Text2.Text = Str(t)
Text3.Text = Str(s)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c = 0: n = 10
For i = 1 To 10 Step 2
If n Mod i = 0 Then
c = c * i
Else
c = c + i
End If
Next i
Text1.Text = Str(c)
End Sub