有如下VB程段：PrivateSubCommand1_Click()Constn=8DimiAsInteger,aAsInteger,sAsStringRand_刷题宝

题干

有如下VB程段：
Private Sub Command1_Click()
Const n = 8
Dim i As Integer, a As Integer, s As String
Randomize
i=1
s = s + Str(Int(Rnd * 19) + 1)
Do While i < n
a = Int(Rnd * 19) + 1
If a Mod 2 = i Mod 2 Then
s = s + Str(a)
i = i + 1
End If
Loop
Text1.Text = s
End Sub
运行程序后，文本框 Text1 中可能出现的是（）

A．4 13 20 9 14 19 4 9	B．7 8 19 8 7 18 3 1
C．6 19 12 19 16 11 10 11	D．15 18 7 18 19 12 5 11

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

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

同类题1

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（）

同类题2

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

同类题3

下列VB程序段执行后变量n、s的值为( )
n=1: s=0
Do while s<20
s=s+n
n=n+2
Loop

同类题4

以下程序段中循环体执行的次数是（）

s = 0

i = 0

Do While s < 10

i = i + 1

s = s + i * i

Loop

同类题5

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：
(1)代码“Private Sub Command1_Click()”中的Command1_Click()属于_________(单选，填字母：

D．事件过程)。

(2)请在划线处填入合适的代码。
(3)若将加框处代码改为“1 To i”，则__________(选填：会/不会)影响程序结果。
Private Sub Command1_Click()
Dim a (20) As Long
Dim I As Integer，j As Integer，s As String
List1.Clear
n＝Val(Text1.Text)
a(1)＝1
List1.AddItem Str(a(1))
For i＝2 To n
s＝""
For j＝i To 1 Step－1
a(j)＝_____
s＝s＋Str(a(j))
Next j
_____
Next i
End Sub

相关知识点