问题详情

在窗体上画两个标签和一个命令按钮，其名称分别为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中显示的内容分别是： ______。

A、ABCD和10

B、1234和100

C、ABCD和100

D、1234和10

时间：2022-03-03 21:11 关键词：

答案解析

D
解析：单击命令按钮后变量a赋初值a=10，通过Call调用函数后，Label1.Caption="1234"，而由于参数a是按值传递的，所以调用完函数后变量a的值在单击事件中并没有改变，所以执行语句Label2．Caption=a后， Label2中显示的值仍为10。

相关问题

在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： OptionBase1 PrivateSubCommand1_Click（） Dima s=0 a=Array（1,2,3,4）;j=1 Fori=4To1Step-1 s=s+a（i）*j j=j*10 Nexti Prints EndSub 运行上面的程序，单击命令按钮，其输出结果是（　　）。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： PrivateSubCommand1_Click（） n=Val（Text1.Text） Fori=2Ton Forj=2ToSqr（i） IfiModj=0ThenExitFor Nextj Ifj>Sqr（i）ThenPrinti Nexti EndSub 该事件过程的功能是（　　）。
在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是（　　）。{Page}
设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_____
假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1,命令按钮组是一个容器对象,其中包含Command1 和Command2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的value属性值,下面哪个式子是正确的?( )。