下载APP
举一反三
【多选题】诚实信用原则的主要内容主要包括（）。
A.
任何一方都不得强使对方接受自己的意志
B.
当事人在进行民事活动时须将有关债权债务的真实情况无保留地告知对方
C.
当事人就债权债务关系达成协议后，必须按照协议确定的义务履行，不得在履行过程中反悔当初约定的义务
D.
当事人必须保证履行已承诺的义务
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【多选题】诚实信用原则的功能有（）。
A.
在法无明文规定时，可依诚信原则弥补法律漏洞
B.
能指导当事人更好地行使权利、履行义务
C.
当双方约定产生异议时，可依诚信原则予以确定
D.
在与法律条文相抵触时，可依诚信原则排除该法条的适用