单项选择题

有下列两个过程： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer,y As Integer) Dim t As Integer t=x x=y y=t End Sub 则下列叙述中正确的是( )。

A．用过程S1可以实现交换两个变量的值的操作，S2不能实现
B．用过程S2可以实现交换两个变量的值的操作，S1不能实现
C．用过程S1和S2都可以实现交换两个变量的值的操作
D．用过程S1和S2都不能实现交换两个变量的值的操作

<上一题目录下一题>

热门试题

单项选择题

在窗体上画1个名为Text1的文本框和1个名为Label1的标签，再画4个名为Op1的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图 2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。Option Base 1Dim sales(12) As LongPrivate Sub Form_Load()open c: sales.txt For Input As #1For k=1 To 12Input #1,sales(k)Next kClose #1End SubPrivate Sub ______ (Index As Integer)Dim sum As Long,k As Integex,month As Integersum=0month=Index*______For k=1 To 3month=month+1sum=sum+sales(month)Next kLabel1.Caption=______.Caption & 销售总额: Text1=sumEnd Sub

A．Op1_Click 3 Op1(Inde
B．Op1_Click 0 Option1(Inde
C．Option1_Cliek 1 Op1(Inde
D．Option1_Click 2 Option1(Inde

单项选择题

编写下列事件过程和函数过程：Private Sub Commandl Click()Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num())End SubPrivate Function p2(ByVal n As Integer,number()As Single)As Integerp2=number(1)For j=2 To nIf number(j)＜p2 Then p2=number(j)Next jEnd Function程序运行后，在窗体上输出( )。

A．-56
B．0
C．103
D．190

相关试题