某VB程序的一个事件过程如下：PrivateSubCommandl_Click()DimiAsInteger,jAsInteger.sAsStringDima(_刷题宝

题干

某VB程序的一个事件过程如下：
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i="1" To 10
j="Int(Rnd*6)+1"
a(j)=a(j)+1
Next i
For i="1" To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )

A．j=Int(Rnd*6)+1	B．a(j)=a(j)+1
C．s=Str(a(i))	D．List1.AddItem s

上一题下一题 0.99难度选择题更新时间:2015-08-19 03:10:49

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

同类题1

下列VB程序运行时，单击命令按钮Command1后，在文本框Text1中输入“1024”，语句“a(i)=a(i+1)/2”共被执行了________次。
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i="8" to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub

同类题2

下列VB程序运行时，单击命令按钮command1后，在列表框 list1 中输出的是_______________。
Private Sub Command1_Click()
Dim I as integer
For i=1 to 10 step 2
If i>=5 then
List1.additem str(i-3)
Else
List1.additem str(i)
Next i
End Sub

同类题3

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　 fx = 1
　Else
　　 fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

D．fx(x-1)*(x-1)

同类题4

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）
（2）
（3）
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t ) （3）
End Sub

同类题5

以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（）

A．穷举法、公式法	B．循环法、递归法
C．查找法、函数法	D．枚举法、解析法

相关知识点