对下列程序段的说法正确的是（）PrivatesubCommand1_Click()Dims,iAsIntegers=0i=1Fori="1"to4 ste_刷题宝

题干

对下列程序段的说法正确的是（）
Private sub Command1_Click()
Dim s, i As Integer
s=0
i=1
For i="1" to 4 step 2
s=s+i^2
Next i
Print "s=";S
End Sub

A．该程序段执行后s的值为10

B．该程序段执行后s的值为30

C．该程序段执行后i的值为4

D．该程序段执行的结果为s=10

上一题下一题 0.99难度选择题更新时间:2016-03-03 08:00:26

答案(点此获取答案解析）

同类题1

有如下VB程序段：
Dim x As Integer, y As Integer, s As Integer
x=3:y=4
If x<y And y<0 Then
s=x Mod y
ElseIf y>0 and y<x Then
s=x*y
ElseIf x=0 Or y=0 Then
s=x+y
Else
s=0
End If
该程序段运行之后，变量s的值为（）

同类题2

Visual Basic程序设计语言属于（）。

A．汇编语言

B．自然语言

C．高级语言

D．机器语言

同类题3

小王基于选择排序算法编写了一个VB程序，功能如下：在文本框 Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

请回答下列问题
（1）要使程序运行后，命令按钮 Command1的 Caption属性值自动变为“排序”，可在_____（单选，填字母：

A．Text1 Cick()/

B．Fom_Load()/

C．Command1_Cick()）事件过程中添加语句：Command1 Caption=“排序”。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form Load ()
‘数组初始化,生成1~20之间的随机整数并赋值给数组a
Randomize '随机数初始化
For i=1 To n
a(i) =①_______
Next i
End Sub
Private Sub Command1 _Click()
Dim 1 As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom = n
For i=1 To bottom -1
For j = bottom To i + 1 Step -1
If ②_______ Then
t = a(j):a(j) = a(i):a(i) = t
ElseIf a(j) = a(i) Then
③_______
bottom = bottom -1
End if
Next j
Next i
Text2. text = ""
For i=1 to bottom
Text2. Text = Text2. Text + str(a(i))
Next i
End sub

同类题4

（）不是程序设计中的高级语言。

同类题5

若变量a=2，b=1，则逻辑表达式：
not(a> -b) or (a+b="3)" and (a<b)的值为_______。

相关知识点