有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim a(8) As String For i = 1 To 8 a(i) = LCase(Chr(Asc("A") + (i - 1))) Next i For i = 1 To 8 Print UCase(a(i)); Next i End Sub
A.
1 2 3 4 5 6 7 8
B.
abcdefgh
C.
ABCDEFGH
D.
出错信息
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
微信内点击右上角“…”即可分享
反馈
参考答案:
举一反三
【单选题】You are the network administrator for your company. The network consists of a single Active Directory domain. The company has an internal network and a perimeter network. The internal network is prote...
A.
Import Baseline1.inf into the Default Domain Policy Group Policy object (GPO).
B.
Create a task on each application server that runs Security and Configuration Analysis with Baseline1.inf every day.
C.
Create a task on each application server that runs the secedit command with Baseline1.inf every day.
D.
Create a startup script in the Default Domain Policy Group Policy object (GPO) that runs the secedit command with Baseline1.inf.
【简答题】写出下面程序的运行结果: open class Base() { var a = 1 private var b = 2 protected open val c = 3 internal val d = 4 protected fun e() { } } class Derived: Base() { override val c = 9 } fun main(args: Array) { va...
【简答题】下面的程序中,那些语句是错误的?在答案中写出错误的语句和错误的原因。 open class Base() { var a = 1 private var b = 2 protected open val c = 3 internal val d = 4 protected fun e() { } } class Derived: Base() { override val c = 9 } fun ...