单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click()Dima As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c,b,A)End SubFunction FirProc(x As Integer，y As Integer，z As Integer)FirProc=2*x+y+3*z+2End FunctionFunction SecProc(x As Integer，y As Integer，

题目

单击命令按钮时，下列程序的执行结果是

Private Sub Command1_Click()

Dima As Integer，b As Integer，c As Integer

a=3:b=4:c=5

Print SecProc(c,b,A)End Sub

Function FirProc(x As Integer，y As Integer，z As Integer)

FirProc=2*x+y+3*z+2

End Function

Function SecProc(x As Integer，y As Integer，z As Integer)

SecProc=FirProc(z，x，y) +x+7

End Function

A．20

B．25

C．37

D．32

相似考题

1.在窗体上有一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(5) As StringFOR i=1 To 5a(i) =Chr(Asc("A") +(i-1))NextFor Each b In aPrint b；NextEnd Sub程序运行后，单击命令按钮，输出结果是A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

2.在窗体上有一个命令按钮,然后编写如下事件过程。Private Sub Command1_Click()Dim a(5)As StringFOR i=1 To 5a(i)=Chr(Asc("A")+ (i-1))NextFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

3.在窗体上一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl一Click()Dim a(10)As IntegerFor k=10 To 1 Step-1a(k)=20—2*kNext kk=k+7Print a(k—a(k))运行程序．单击命令按钮，输出结果是A．1 8B．12C．BD．6

4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a（5） As StringFor i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

更多“单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()Dima As Integer,b As Intege ”相关问题

  • 第1题：

    在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1Click（ ） Dim a(5)As String For i=1，To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是（ ）。

    A.ABCDE

    B.1 2 3 4 5

    C.abcde

    D.出错信息


    正确答案：A
    A。【解析】Asc(字符)将字符转换为其ASCII码值，Chr(数字)将数字转换为ASCII相对应的字符。本程序首先定义一维字符串数组a(5)，然后将字符“A”的ASCII码值分别加上0、1、2、3、4，转换为字符串存入a(5)。其值为ABCDE。

  • 第2题：

    在窗体上有一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是

    A．ABCDE

    B．1 2 3 4 5

    C．abcde

    D．出错信息


    正确答案：A
    解析：本题考查了数组的赋值操作以及 For Each…In循环语句。本程序段首先定义了一个一维数组变量，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65， Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc(“A”)+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是“A，B，C，D，E”。For Each…In用于输出a中元素的值，所以正确答案是选项A。

  • 第3题：

    在窗体上有一个命令按钮，然后编写如下事件过程：

    Private Sub Command1Click（ ）

    Dim a(5)As String

    For i=1，To 5

    a(i)=Chr(Asc("A")+(i-1))

    Next i

    For Each b In a

    Print b；

    Next

    End Sub

    程序运行后，单击命令按钮，输出结果是（ ）。

    A.ABCDE

    B.1 2 3 4 5

    C.abcde

    D.出错信息


    正确答案：A
    A。【解析】Asc(字符)将字符转换为其ASCII码值，Chr(数字)将数字转换为ASCII相对应的字符。本程序首先定义一维字符串数组a(5)，然后将字符“A”的ASCII码值分别加上0、1、2、3、4，转换为字符串存入a(5)。其值为ABCDE。

  • 第4题：

    在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

    A． ABCDE

    B．1 2 3 4 5

    C．abcde

    D．出错信息


    正确答案：A
    解析：语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第i个元素。循环结束后，arr的5个元素分别为字符ABCDE。Print方法输出项的最后用分号结束，使得输出不换行。

  • 第5题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。

    A．ABCDE

    B．1 2 3 4 5

    C．abcde

    D．出错信息


    正确答案：A

  • 第6题：

    在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是______。

    A．ABCDE

    B．1 2 3 4 5

    C．abcde

    D．出错信息


    正确答案：A
    解析：语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组alt的第i个元素。循环结束后，alt的5个元素分别为字符ABCDE。Print方法输出项的最后用分号结束，使得输出不换行。

相关内容