【加试题】某VB 程序代码如下：
Function arr(x As Integer) As Boolean
Dim s As Integer, i As Integer
s = 1
For i = 2 To x \ 2
If x Mod i = 0 Then s = s * i
Next i
If s = x Then
arr = True
Else
arr = False
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 2 To 10
If arr(i) Then List1.AddItem str(i)
Next i
End Sub
单击Command1 按钮后， List1 中显示的结果是（ ）
Function arr(x As Integer) As Boolean
Dim s As Integer, i As Integer
s = 1
For i = 2 To x \ 2
If x Mod i = 0 Then s = s * i
Next i
If s = x Then
arr = True
Else
arr = False
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 2 To 10
If arr(i) Then List1.AddItem str(i)
Next i
End Sub
单击Command1 按钮后， List1 中显示的结果是（ ）
| A．2、3、4、5、6 | B．2、4、6 | C．4、6、8 | D．6、8、10 |
更新时间：2020-02-24 23:21:34
|
相似题推荐
选择题
|
适中
(0.65)
【推荐1】python中表达式4**3=( )。
| A．12 | B．1 | C．64 | D．7 |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐2】在VB语言中表示“x属于区间（0,1]”的正确表达式是（ ）
| A．0<x and x<=1 |
| B．0<x<=1 |
| C．x>0 and x<1 |
| D．x>0 or x<=1 |
您最近一年使用：0次
改写成VB表达式，正确的是
选择题
|
适中
(0.65)
名校
【推荐1】通过调查发现，人们普遍认为带有数字2、6、8的车牌比较吉利，而带有数字4的车牌则不吉利。小石想通过编写程序来计算车牌的吉利值:其中数字2吉利值为1，数字6吉利值为2，数字8吉利值为3，数字4的吉利值为-2、其他数字吉利值为0。如车牌号“浙H94286”的吉利值为4。程序代码如下:：
dic={ "2":1，"6":2，"8":3，"4":-2 }
cp=input(”请输入车牌号(格式如“浙H94286”):")
count=0
for i in range(2，① )：
为实现功能，划线处代码应为( )
dic={ "2":1，"6":2，"8":3，"4":-2 }
cp=input(”请输入车牌号(格式如“浙H94286”):")
count=0
for i in range(2，① )：
x=cp[i]
if x in ["2","4","6","8"]:
count+= ②
print("该车牌号的吉利值为:",count)为实现功能，划线处代码应为( )
| A．①len(cp)-1 ②dic[x] | B．①len(cp) ②dic[int(x)] |
| C．①len(cp)-1 ②dic[int(x)] | D．①len(cp) ②dic[x] |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐2】某VB程序代码如下：
For i = 1 To 3
For j = 5 To i Step -1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
List1.AddItem Str(a(i))
Next i
数组元素 a(1)到 a(6)的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框 list1 中显示的内容是（ ）| A．9 7 6 | B．1 3 5 | C．9 7 6 1 5 3 | D．9 7 6 5 3 1 |
您最近一年使用：0次
