类的属性的定义，其语法规则为为（ ）。
A: Class…End Class
B: Property…End Property
C: Sub…End Su
D: Function…End Function
A: Class…End Class
B: Property…End Property
C: Sub…End Su
D: Function…End Function
举一反三
- ______ the class, the teacher praised us for our homework. A: By the end of B: At the end of C: In the end of D: To the end of
- The class walked down the long hallway to the gym with Mr. Smith()of the line. A: in end B: at end C: at the end D: in the end
- 下列计算最大公约数的递归过程，正确的是___________。 A: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub B: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub C: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function D: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function
- 将十进制正整数d转换成r（2～9）进制的字符串，下列递归函数正确的是__________。 A: Function Trans$(ByVal d%, ByVal r%) If d = 0 Then Trans = "" Else Trans = Trans(d \ r, r) & (d Mod r) End If End Function B: Function Trans$(ByVal d%, ByVal r%) If d = 0 Then Trans = "" Else Trans = (d Mod r) & Trans(d \ r, r) End If End Function C: Function Trans$(ByVal d%, ByVal r%) If d = 0 Then Trans = Trans(d \ r, r) & (d Mod r) Else Trans = "" End If End Function D: Function Trans$(ByVal d%, ByVal r%) If d = 0 Then Trans = (d Mod r) & Trans(d \ r, r) Else Trans = "" End If End Function
- 下列程序： Private Sub Form_Click () Dim load As Integer Load ＝ InputBox(″请输入一个整数″) fee ＝ Wei(load)－load Print fee，load End Sub Function Wei(load) If load < 20 Then Money ＝ load/2 Else Money ＝ 10 ＋ load End if Wei ＝ Money End Function 运行时从键盘为变量load提供的数据为20，输出结果是( )。