|
图a | 图b |
Text1.Text = "0"
For i = 2 To 9
k = 0
For j = 1 To i -1
If a(j) < a(i) Then k = k +1
Next j
Text1.Text = Text1.Text + "," + Str(k)
Next i
已知数组a的数据序列为2,10,3,4,5,7,0,9,12,则该程序段运行后,文本框Text1中显示的内容是 ( )
Key=Val(Text1.Text)
i=1:j=9
Do While i<=j
m=Int((i+j)/2)
If Key <a(m)Then j=m-1 Else i=m+1
Loop
若数组元素a(1)到a(9)的值分别为“10,13,13,15,18,18,18,25,28”,且在文本框Text1中输入的是18,执行该程序段后,变量j的值是( )
|
图a |
|
图b |
问题:输入一个正整数n,判断n是否为素数。要判断n是否为素数,最简单的方法是:统计2到n-1之间能整除n的整数个数s,若s大于0,则n不是素数,否则就是素数。根据以上方法,完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to
If n Mod i = 0 then
s= ‘统计因数个数
End If
Next i
IfThen
Print n &“是素数”
Else
Print n &“不是素数”
End If
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i=1 to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub

请回答下列问题:
a = 3
a = a * 3 + 1
print(a)