（加试题）某一过程算法的VB程序段如下:PrivateSubCommand1_Click()DimnAsIntegern=Val(text1.Text)Call_刷题宝

题干

（加试题）某一过程算法的VB程序段如下:
Private Sub Command1_Click()
Dim n As Integer
n = Val(text1.Text)
Call prsj(n) '调用自定义过程
End Sub
Sub prsj(c As Integer) '自定义过程，可以用Call语句来调用该过程
Dim i As Integer, j As Integer, k As String
List1.Clear
For i = 1 To c
k = ""
For j = 1 To i
k = k + "*"
Next j
List1.AddItem k
Next i
End Sub
在文本框Text1输入3，执行该程序段后,在列表框List1中显示的是

A．

B．

C．

D．

上一题下一题 0.99难度选择题更新时间:2019-04-16 11:27:12

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

同类题1

反转字符串，如输入字符串为“123ABCD"，则输出字符串为“DCBA321"。部分程序如下所示，划线处的正确语句是
s＝Text1.Text：n=Len(s)
’按s中字符顺序从左到右依次存入数组a中，代码略
i＝1
Do While i<n
t＝a(i)
For j=i＋1 To n
①
Next j
a(j－1)=t
②
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text＋a(i)
Next i

A．①a(j＋1)＝a(j) ②n＝n－1	B．①a(j)＝a(j＋1) ②n＝n＋1
C．①a(j－1)＝a(j) ②n＝n－1	D．①a(j－1)＝a(j) ②n＝n＋1

同类题2

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i

同类题3

某对分查找算法的VB程序段如下:
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（）

A．变量i的值为3

B．变量j的值为5

C．变量m的值为3

D．变量n的值为3

同类题4

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

同类题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输出的内容是（）

相关知识点