【加试题】有如下VB 程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As String, n As Integer, s As String
s = "abcdefghijklmn"
n = 4
List1.Clear
For i = 1 To n
k = Mid(s, i + 1, i)
For j = 1 To Len(k)
k = k + Mid(s, j, 1)
Next j
List1.AddItem k
Next i
End Sub
该程序运行后，在列表框List1中显示的是（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As String, n As Integer, s As String
s = "abcdefghijklmn"
n = 4
List1.Clear
For i = 1 To n
k = Mid(s, i + 1, i)
For j = 1 To Len(k)
k = k + Mid(s, j, 1)
Next j
List1.AddItem k
Next i
End Sub
该程序运行后，在列表框List1中显示的是（ ）
A． | B． |
C． | D． |
更新时间：2020-02-24 23:21:34
|
相似题推荐
选择题
|
适中
(0.65)
名校
【推荐1】下列Visual Basic表达式的值等于100的是（）
| A．Va1("96")+4 | B．Len("40")+60 |
| C．Sqr(81)+19 | D．Str(20)+"80" |
您最近一年使用：0次
选择题
|
适中
(0.65)
名校
【推荐2】下列表达式的运算结果与其他选项不同的是（ ）
| A．Len("123")+2^2 | B．Abs(Int(-6.8)) |
| C．Asc(Mid("789",1,1)) | D．Val("9")-sqr(4) |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐1】以下不适合使用解析算法求解的问题是（ ）
| A．已知三角形的底边和高，求三角形的面积 |
| B．已知两个整数a和b，求它们的最大公约数 |
| C．已知两个电阻的阻值，求它们并联后的总阻值 |
| D．已知两点坐标，求两点之间的距离 |
您最近一年使用：0次
选择题
|
适中
(0.64)
【推荐2】一位顾客购买了土豆X 千克、西红柿 Y 千克、辣椒 Z 千克，其中土豆 3.5元/千克、西红柿4.3元/千克、辣椒6.6元/千克。计算该顾客消费总价的算法如下：
输入三种蔬菜的重量X,Y,Z
用公式计算总价 S=3.5*X+4.3*y+6.6*z
输出总价S
结束
以上算法属于（ ）。
输入三种蔬菜的重量X,Y,Z
用公式计算总价 S=3.5*X+4.3*y+6.6*z
输出总价S
结束
以上算法属于（ ）。
| A．枚举算法 | B．解析算法 | C．排序算法 | D．查找算法 |
您最近一年使用：0次
