有如下VB程序段：Dima(1To10)AsInteger,iAsInteger,jAsIntegera(1)=1:a(2)=1Fori=3To5a(i)=1F_刷题宝

题干

有如下VB程序段：
Dim a(1 To 10) As Integer, i As Integer, j As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = 1
For j = i - 1 To 2 Step -1
a(j) = a(j) + a(j - 1)
Next j
Next i
Text1.Text = Str(a(3))
该程序段运行后，在文本框Text1中显示的内容是

A．1

B．3

C．4

D．6

上一题下一题 0.99难度选择题更新时间:2019-05-07 11:22:00

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

同类题1

如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用（）。

A．将这个数据声明为字符串型常量，用一个常量标识符代表它

B．将这个数据声明为字符串型变量，用一个变量标识符代表它

C．将这个数据声明为单精度型常量，用一个常量标识符代表它

D．将这个数据声明为单精度型变量，用一个变量标识符代表它

同类题2

下列能作为Visual Basic变量名的是（）

同类题3

重新定义动态数组若保留原有数组元素值时需有关键字（______________）

同类题4

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

1图 2图
（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将属性的属性值修改为“___________”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If     ①     Then '(选填字母,从下列A.B.C.D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While ②     '(选填字母,从下列A.B.C.D四个选项中选取一项）
f =" i" * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:
A.i <= t2 B.f <= t2 C.t1 > t2

同类题5

“水仙花数”就是一个 n（n≥3）位的自然数，它的每个位上的数字的 n 次幂之和等于
它本身。如 153=1³+5³+3³。在编写 VB 程序验证某个三位数 x 是否是“水仙花数”的
过程中要提取出这个数的个位、十位、百位分别存储在变量 a、b、c 中，以下语句能
够用来提取十位上的数的是

A．b="x\10" mod 10	B．b=x\100
C．b="x/100" mod 10	D．b="x" mod 10

相关知识点