Dim a(10 to 20) as integer
则此数组中元素的个数为。
Private Sub Command1_Click( )
Dim i As Integer, n As Integer
Dim s As Integer ‘s为A类数的个数
Dim t As Integer ‘t为二进制数中 “1”的个数
Dim k As Integer ‘k为二进制数中 “0”的个数
s=0
For=1 To 1000
n=i:t=0:k=0
Do While n>0
If ① Then t = t+1
Else k = k+1
②
Loop
If t > k Then
List1. Additem Str(i)
s=s+1
End If
Next i
Text1.Text=str(s)
End Sub
① ②
Dim a(0 To 9)As Integer, t As Integer, x As Integer t = Val(Text, Text)
Do While t<>0
a(t Mod 10) = 1
t = t\10
LooP
For i = 0 To 9
x = x + a(i)
Next i
在Text1中输入20181230,执行该程序段后,x的值为( )
For i = 1 To 9 Step 2
b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next i
s = 0
For i = 0 To 9 Step 3
s =s + b(i)
Next i
数组b各元素初始值为0, 数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为( )
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
n=0
s=0
Do While s<=10
n=n+3
s=s+n
loop
s = 2: k = 1
If Not k = s Then s = s + k Else s = 0
Text1.Text = Str(s)
a="zhedzfjiang"
c=Mid(a,Len(a\2-1,3)
Text1.Text=c
End Sub
该程序段运行后,在文本框Text1上显示的是( )
问题:输入一个正整数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