itgle.com

在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:Sub S(x As Integer,Y As Integer)Static z As Integery=x*x+zz=yEnd SubPrivate Sub Command1_Click()Dim i As Integer,z As Integerm=0z=0For i=1 To 3S i,zm=m+zNext iLabel1.Caption=Str(m)End Sub程序运行后,单击命令按钮,在标签中显示的

题目

在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:

Sub S(x As Integer,Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer,z As Integer

m=0

z=0

For i=1 To 3

S i,z

m=m+z

Next i

Label1.Caption=Str(m)

End Sub

程序运行后,单击命令按钮,在标签中显示的内容是

A.50

B.20

C.14

D.7


相似考题
参考答案和解析
正确答案:B
解析:当i=1时,z=1*1+0=1,当i=2时,z=2*2+1=5,当i=3时,z=3*3+5=14,然后将三次z的值求和得20,因此本题答案为B)。
更多“在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:Sub S(x As ”相关问题
  • 第1题:

    在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Command1,然后编写如下两个事件过程:

    Private Sub Commandl_Click()

    S$=InputBox(”请输入一个字符串”)

    Textl.Text=S$

    End Sub

    Private Sub Textl Change()

    Label1.Caption=UCase(Mid(Text1.Text,7))

    End Sub

    程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是【 】。


    正确答案:BASIC
    BASIC 解析:MID返回文本字符串中从指定位置开始的特定数目的字符,其格式为:MID(text,start num,hum—chars),Text包含要提取字符的文本字符串。Start—num文本中要提取的第一个字符的位置。因此,本题是要截取“VisualBasic”从第7个字符起右侧的所有字符。UCase函数将小写字母转换为大写字母。

  • 第2题:

    在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入Visual,则在标签中显示的内容是

    A.空

    B.Visual

    C.Vis

    D.ual


    正确答案:D
    解析:当用户向文本框中输入新信息或当程序将Text属性设置为新值从而改变文本框的Text属性时,将触发Change事件,即执行“Text1.Text=strText”语句时,就触发了Change事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符,Right(字符串,n)将返回“字符串”的最后n个字符。字符串Visual最右边的3个字符为ual。

  • 第3题:

    在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编写如下程序代码: Option Base 0 Private Sub Command1_Click() Dim a(5) As Integer, n As Integer For i = 0 To 5 a(i) = i n = n + a(i) Next i Label1 = n End Sub 运行程序,单击命令按钮,在标签中显示的内容是________。

    A.5

    B.10

    C.15

    D.20


    B

  • 第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题:

    在窗体上画两个名称分别为Label1和Label2的标签,再画一个名称为Command1的命令按钮,然后编写如下事件过程:

    运行上面的程序,单击命令按钮.其输出结果是

    A.8 9

    B.8 18

    C.64 9

    D.64 18


    正确答案:C
    解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程,所以虽然是传值,但在过程Subl中可见,因此在该过程中使用了窗体变量X,这个“x=a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量,与过程Sunl中的变量y没有关系,标签Label2显示的是本过程的Y值,即9。正确答案为c。