单击命令按钮时，下列程度段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=2:b=4:c=6 Call S1(a,B) Print "a="; a; "b="; b; "c="; c Call S2(a,B) Print "a ="; a; "b ="; b; "c="; c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal y As Integer) Dim e As Integer x=2*x:y=y+2:c=x+y End Sub -题库考试答案搜索网

单击命令按钮时，下列程度段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=2:b=4:c=6 Call S1(a,B) Print "a="; a; "b="; b; "c="; c Call S2(a,B) Print "a ="; a; "b ="; b; "c="; c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2x:y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal y As Integer) Dim e As Integer x=2x:y=y+2:c=x+y End Sub

单选题

2022-07-12 00:32

A、a=4 b=6 e=6 a=4 b=6 e=6
B、a=8 b=6 c=6 a=8 b=6 c=6
C、a=4 b=6 e=6 a=8 b=6 e=6
D、a=8 b=6 c=6 a=4 b=6 c=6

查看答案

正确答案

试题解析

解析：在定义子过程的参数时，如果在参数前加上ByVal，表示是“传值”参数，主调函数中参数的值不被改变，否则表示是“传地址”参数，参数值会被调用的子过程改变。题中S1过程的参数是“传地址”，因此调用后a、b、c的值都改变了，分别为4、6、6； S2过程的参数中a是“传地址”参数，b是“传值”参数，因此调用后a值改变，b值不变，因为c是过程变量，所以也没有变化，因此输出的值为8、6、6。

标签：

感兴趣题目

在窗体上添加一个命令按钮，然后编写其单击事件过程为： Fori=lT0 3x=4Forj=1 T0 4x=3Fork=lT0 2x=x+5NextkNextjNextiMsgBoxX则单击命令按钮后消息框的输出结果是（）。

窗体上有一个命令按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果是( )。 Private Sub Command1_Click() List1.AddItem"China" List1.AddItem"Great" List1.AddItem"Is",1 List1.AddItem"!",3 Print List1.List(2) End Sub

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。

有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

下列代码运行后输出结果是( )。 Defstr C-F Private Sub Command1_Click() C$="123" D="456" Print C+D$ End Sub

下列代码运行后输出结果是 Defstr B-E Private Sub Command1_Click() B$="123" C="456" Print B+C$ End Sub

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

单击命令按钮时，下列程度段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=2:b=4:c=6 Call S1(a,B) Print "a="; a; "b="; b; "c="; c Call S2(a,B) Print "a ="; a; "b ="; b; "c="; c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal y As Integer) Dim e As Integer x=2*x:y=y+2:c=x+y End Sub

在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。

在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） Private Sub Command1_Click（） x=InputBox（"请输入整数"）a=F1（Val（x）） Print a End Sub Function F1（ByRef b As Integer） If b Mod 2=0 Then F1=0 Else F1=1 End If End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。