如下程序段执行后，i的值和y的值分别是（）DimyasInteger，iasintegery=0Fori=1To10Step2y=y+1NextiA．10_刷题宝

题干

如下程序段执行后，i的值和y的值分别是（）
Dim y as Integer，i as integer
y=0
For i=1 To 10 Step 2
y=y+1
Next i

A．10、25

B．10、36

C．11、16

D．11、25

上一题下一题 0.99难度选择题更新时间:2020-04-01 04:12:38

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

同类题1

将十进制数转化为二进制数的 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
代码顺序正确的选项是

同类题2

下列VB程序段运行完毕后，变量x的值为
x="2" : y=64
Do while x<= Sqr(y)
x=x+3
Loop

同类题3

有一种数字加密算法如下：将该数位与其位置相加得到X，X除以10的余数即为编号，若余数为0，编号取10，再从密码表中找出与编号对应的加密字符，其密码表如下：

编号	1	2	3	4	5	6	7	8	9	10
加密字符	H	o	w	A	r	e	Y	O	U	?

例如：数字2018加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	12 mod 10=2
加密字符	w	o	A	o

按照上述方法，设计一个字符加密的VB程序，运行程序时，在文本框Text1中输入明文数字，单击加密按钮Command1，程序将明文加密，并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

（1）将命令按钮上显示的文本Command1”改为“加密”，可在其属性窗口中将____属性的属性值修改为“加密”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
（3）若密文是“YwUH”,则明文是____________________。

同类题4

（加试题）有VB编写的程序如下：
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim t as Long
t = Val(Text1.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
End Sub
若在文本框Text1中输入10242048，则程序执行后，变量x的值为（）

同类题5

有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3

For j=i＋1 To 6

If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If

Next j

Textl.Text=Str(d(i))+Text1.Text
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（）

相关知识点