违法和不良信息举报 联系客服
免费注册 登录

在窗体上画一个名称为Labell的标签,然后编写如下事件过程:Option Base 1Private Sub Form_Click(

题目

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．400

B．20

C．441

D．出错信息

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个名称为Coml的命令按钮，然后编写如下事件过程：

该事件过程的功能是计算s=l 1/2！ 1/3 1 … 1/n!的值。请填空。


正确答案：
(1/i)【解析】本题考查循环的知识。本程序首先置q为1，sum为0；经过l0次循环使q每次都乘以1/i，实现了1/n!的求法；每次循环后都加q，把结果再赋给$tllTl，循环结束，slim的值即为所求。

第2题：

在窗体上绘制一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 arr(i，j)=i*j Next i Next i Labell.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12

B．13

C．14

D．15


正确答案：B
解析：多重循环属于考试难点，考生应该注意多重循环中环应该按照先进后出、后进先出的原则，不能交叉。按照这个原则将循环层次分清楚就不容易出错。程序运行后在标签中显示的内容是13，选项B正确。

第3题：

在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12

B．13

C．14

D．15


正确答案：B
解析：本题具有一定的迷惑性，其实分析一下易知arr(i,j)的值即为i*j，所以an(2，2)+arr(3， 3)就是求2*2+3*3=13。注意： For…Next循环控制结构适用于指定循环次数的循环程序。其格式为：
  For循环变量二初始值To终值Step步长
  Next
  其中，当步长为正时，初始值要小于终值；当步长为负时，初始值要大于终值。注意：For…Next循环控制结构。

第4题：

在窗体上画一个名称为CommRnd1的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：

Private Sub Command1 Click()

s=0

For i=1 TO 15

x=2*i-1

if x Mod 3；0 Then s=s+l

Next i

Labe11.Caption=s

End Sub

程序运行后，单击命令按钮，则标签中显示的内容是上【 】。


正确答案：5
5 解析：本题是一个简单的For-Next循环。在循环中加入了If判断语句，也就是只有在x能够被3整除的条件下，s才能进行累加。考生如果忽略了If条件，认为s一直在累加，那就会得出15。

第5题：

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．100

B．10

C．121

D．出错信息


正确答案：D
解析：一维数组a的下标在1～10之间。而循环结束后k值为11，故产生下标越界的错误。

第6题：

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：

程序运行后，单击命令按钮，其输出结果为__________。


正确答案：
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。

第7题：

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A． 12

B．13

C．14

D．15


正确答案：B
解析：本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。

第8题：

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。

A．27

B．28

C．29

D．30


正确答案：C
解析：程序中各部分值的运算过程为：
  Text1.Text="28.653"
  Val(Text1.Text)=28.653
  Val(Text1.Text)+0.5=29.153
  Int(Val(Text1.Text)+0.5)=29
  x=29
  str(x)="29"

第9题：

在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。

A．1

B．5

C．27

D．45


正确答案：B

相关内容