设有如下通用过程：PublicSubFun(a(), x AsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Te_刷题宝

题干

设有如下通用过程：
Public Sub Fun(a(), x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（）

A．10

B．15

C．25

D．24

上一题下一题 0.99难度选择题更新时间:2019-09-06 12:28:18

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

同类题1

根据下列程序段运行后a的值，划线处应该填入的合理数据类型为（）
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i

同类题2

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click( )

Dim X, N As Integer
Dim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

Next N

Label1.Caption = str (count)

End Sub

同类题3

有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
x = 1
For i = 1 To 5 Step 2
x = x + i
Text1.Text = Str(x)
Next i
End Sub
则该程序运行后，文本框Text1中显示的数据个数是

同类题4

编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

（1）观察上图，该程序中的窗体对象名为________________（单选，填字母：

A．求所有子串/

C．子串.frm/

D．工程1.vbp）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command3_Click()
Dim s As String, t As Integer, j As Integer
s = Text1.Text
t = Len(s): Sum = 0
For i = 1 To t
For j = i To t
List1.AddItem ①_________________________________
Sum = Sum + 1
Next j
Next i
List1.AddItem "总共有" + ②_______________________________ + "个子串"
End Sub
（3）如果输入的字符串是“abcdefg”，则输出中有____________个子串

同类题5

读下面VB程序段，
Dim j As Integer, k As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（）

A．输出1到100以内的所有的质数

B．输出1到100以内的所有的奇数

C．输出1到100以内的所有的偶数

D．输出1到100以内所有的完全平方数

相关知识点