有如下程序，要使Label1中显示的值是30，划线处应该填(　　)DimiAsInteger，sAsIntegers＝0Fori＝2To________Step_刷题宝

题干

有如下程序，要使Label1中显示的值是30，划线处应该填(　　)
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
　s＝s＋i
Next i
Label1.Caption＝Str(s)

A．8

B．9

C．10

D．12

上一题下一题 0.99难度选择题更新时间:2019-04-07 10:41:02

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

同类题1

在VB中，如果要在标签Lab上显示文字“高中信息技术考试”，则下列语句正确的是（）

A．Label.Caption=“高中信息技术考试”

B．Lab.Text=“高中信息技术考试”

C．Lab.Caption=“高中信息技术考试”

D．Label.Width=“高中信息技术考试”

同类题2

以下VB代码运行结果为。
Dim s as long
Dim k as integer
Dim j as integer
s=0
for k = 1 to 3
for j = 1 to k
s=s+1
next
next
print s

同类题3

下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i = 1 To 10
③ s = i
Next i
④ Label1.Caption = Str(s)
错误在_________处，改为____________。

同类题4

将十进制数转化为二进制数的 VB 程序段如下：
Dim y As Integer,s As String,r As Integer
y=Val(Text1．Text) '输入十进制数
s= ""
Do While y <> 0

Loop
Text2．Text = s '显示出二进制数
方框中的代码由以下三部分组成：
① s =CStr(r) +s 'CStr(r)是将变量Rr内容转换为字符串（字符串前没有空格）
② y= y\2
③ r= y Mod 2
代码顺序正确的选项是

同类题5

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

相关知识点