niusouti.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

相似考题

1.在窗体上画一个名称为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．1B．5C．27D．45

2.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。A．11B．12C．16D．20

3.在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Lubd2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Commandl_Click()X=5：Y=3Call proc(X，Y)Labell．Caption=XLabel2．Caption=YEnd SubPrivate Sub proc(a As Integer，ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A．25和3B．5和3C．25和6D．5和6

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

参考答案和解析
正确答案：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。

相关内容