某VisualBasic程序如下：PrivateSubCommand1_Click()Dima(1To10)AsIntegerDimiAsIntegera(1)_刷题宝

题干

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

A．5

B．10

C．15

D．21

上一题下一题 0.99难度选择题更新时间:2016-03-10 07:35:08

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

同类题1

下列文件中属于工程文件的是（）

A．五子棋.frm

B．五子棋.exe

C．五子棋.vbp

D．五子棋.caption

同类题2

VB中窗体文件的扩展名为( )

同类题3

输入一正整数并判断是奇数还是偶数的算法描述如下图所示：

该流程图中，语句“x mod 2 = 0？”，应加的框图为( )

同类题4

编写VB程序，要求实现功能是：在文本框Text1中输入一个a的分数值，单击“查询”按钮Command1，在文本框Text2输出等级。界面如图1所示：

1．在设计界面时，为使窗体的标题如图1显示，应在图2所示的属性窗口中设置Form1的________属性。
2.有如下Visual Basic程序，请根据题意将程序补充完整：
Private Sub Command1_Click()
a＝________
If a＞＝90 Then
Text2.Text＝“优秀”
ElseIf a＞＝80 Then
Text2.Text＝“良好”
ElseIf a＞＝70 Then
Text2.Text＝“中等”
ElseIf a＞＝60 Then
Text2.Text＝“及格”
Else
Text2.Text＝“不及格”
________
End Sub

同类题5

如果要保持上程序的算法（输出结果）不变，下面说法正确的是( )

A．这行If x < y Then t =" x:" x =" y:" y = t可去掉；

B．这行a =" x:" b = y可去掉，MsgBox (Str(a * b / s))改成MsgBox (Str(x * y / s))就可以了；

C．输出结果是a,b的最大公约数；

D．上面说法都错；

相关知识点