提示:本题“除 2 取余倒排法”的方法将十进制转化为二进制,算法如下: 例如十进制数“97”转化为二进制的过程如右图所示:
因此“97”二进制值为:1100001
Dim a As Integer, c As Integer, w As Integer, i As Integer
Dim s As String, k As String
c = 0
For m = 1 To 100
k = ""
i = 2 * m
Do While i > 0
a=i Mod 2
k = str(a) + k
Loop
For n = 1 To Len(k)
s = Mid(k, n, 1)
If s = "1" Then w = w + 1
Next n
If w = 4 Then
c = c + 1
End if
Next m
Text1.Text = Str(c) End Sub
Dim i As Integer,s As String
Dim a(1 To 10)As Integer,b(1 To 10)As Integer
a(1)= 82:a(2)= 96:a(3)= 68:a(4)= 93:a(5)=87
a(6)=95:a(7)=84:a(8)=91:a(9)=80:a(10)=98
For i=1 To 10
b(a(i)\10)= b(a(i)\10)+1
Next i
For i=1 To 10
If b(i)> 0 Then
s=s &Str(b(i))&" "
End If
Next i
Text1.Text=s
运行该程序后,在文本框Text 1中显示的内容为( )
Private Sub Command1_Click()
Dim s As Integer,m As Integer,i As Integer
m=5:s=0
For i=1 To m
s=s + add(i)
Next i
Text 1.Text=Str(s)
End Sub
Function add(n As Integer)As Integer
If n=1 Or n=2 Then
add=1
Else
add=2*(add(n-1)+ add(n-2))
End Function
运行该段程序后,标签 Textl 中显示的值是 ( )
Dim a(1 To 6) As String
For i = 6 To 2 Step -1
k = i
For j = 1 To i - 1
If a(j) > a(k) Then k = j
Next j
If k <> i Then
End If
Next i
已知数组元素a(1)~a(6)的值依次为“35”,“12”,“35”,“110”,“47”,“123”,下列说法不正确的是( )
Key = Val(Text1.Text): i = 1: j = 10
Do While i <= j
m = (i + j + 1) \ 2
t(m) = 2
If Key <= a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
For i = 1 To 10
s = s + t(i)
Next i
数组元素t(1)至t(10)初值均为0,数组元素a(1)至a(10)的值依次为“4,7,9,11,16,19,22,24,28,29”,在文本框Text1中输入待查找数,执行该程序段后,下列选项中,s的值可能的是( )
s=[1,3,5,7,9]
s.insert(2,6)
print(s)
info=[3,7,4,9,11,23,6]
sum=info[1]+info[6]+info[-4]
print(sum)
listl.pop(3)
print(listl) 的值为()