计算机二级
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程Option Base 1Private Sub，Command1 Click（ ）Dim a(5，5)ks IntegerFor i=1 To jFor j=1 To 5a(i，j)=(i+j)*5＼10Next jNext iS=0For i=1 To js=s+a(i，i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A.15B.13C.11D.9
题目
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click（ ）
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i+j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s+a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A.15
B.13
C.11
D.9
相似问题和答案
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第2题：
（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是（ ）。
A）1234
B）12
C）34
D）4321
（30）【答案】A)
【解析】s=4×1+3×10+2×100+1×1000=1234.
第3题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click（）
Dim a（5.5） As Integer
For i=1 To 5
a（I,j）*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a（i,i）
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．15
B．13
C．11
D．9
第4题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A．空白
B．错误提示
C．北京
D．上海
解析：OptionBase0约定了数组下标从0开始，city(1)则为数组的第二个元素，即显示的内容为“上海”。
第5题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的值是( )
A. 4
B. 5
C.6
D. 7
第6题：
（ 33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click （）
Dim a （ 5.5 ） As Integer
For i=1 To 5
For j=1to5
a （ i+j ） *5\10
Next j
Next i
s=0
For i=1 To 5
s=s+a （ i,i ）
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）
A ） 15
B ） 13
C ） 11
D ） 9
第7题：
（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
程序运行后，单击命令按钮后，其输出结果是
A ） 4321
B ） 1234
C ） 34
D ） 12
第8题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click（）
Dim a
a= Array（1,2,3,4,5）
For i=1 To UBound（a）
a（i）= a（i）+i-1
Next
Print a（3）
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。
A．4
B．5
C．6
D．7
第9题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．空白
B．错误提示
C．北京
D．上海
解析：使用Array函数创建的数组的下界是由OptionBase语句指定的下界而确定的，在本题中，下界被OptionBase语句指定为0，所以city(0)的值为“北京”，而city(1)的值为“上海”。
第10题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是
A．123.45
B．12345.00
C．12345
D．00123.45
解析：解题的关键是掌握对格式说明字符的理解。0表示一个数字位，0的个数决定了显示区段的长度，多余的位以0补齐；小数点与O结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。由于本题中变量a为12345，并没有涉及小数，故可以直接在其后补两个0。