在紫外分光光度法中，供试品溶液的浓度应使吸光度的范围在A．0．1～0．3B．0．3～0．5C．0．3～0．7D．0．5～0

（14 ）执行以下程序后输出的是

Private Sub Command1_Click()

Ch$= ” AABCDEFGH ”

Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)

End Sub

A)CDEFGH

B)ABCD

C)FG

D)AB

vate Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

【题目描述】

执行以下程序后输出的是。

Private Sub Commandl_Click

ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2)

End Sub

A．CDEFGH

B．ABCD

C．FG

D．AB

【我提交的答案】：

【参考答案与解析】： 正确答案：D

答案分析：

各函数的意思

【题目描述】

执行以下程序后输出的是。

Private Sub Commandl_Click

ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2)

End Sub

A．CDEFGH

B．ABCD

C．FG

D．AB

【我提交的答案】：

【参考答案与解析】： 正确答案：D

答案分析：

不知道题目的意思，能不能解读一下

执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub

A．1

B．2

C．8

D．0

执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub

A．2

B．3

C．1

D．0

A、CDEFGH

B、ABCD

C、FG

D、AB

9.程序执行结果s的值是 [9] 。

Private Sub Commandl_Click()

i = 0

Do

i = i + l

s = i + s

Loop Until i > = 4

Print s

End Sub

下列程序输出的结果为【 】。

Private Sub Commandl_Click()

Dim a As Boolean

a = True

If a Then GoTo 11 Else GoTo 22

11:

Print "VB";

22:

Print "VC"

End Sub