VB中，mid（"A2B4"，2，1）的值是（）

以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。

Private，Sub Command1_Click（　　）

If Not Check(Combo1．Text)Then

MsgBox("输入错误")

Exit Sub

End If

For k=0 To Comb01．ListCount-1

If Comb01．Text=Combo1．List(k)Then

MsgBOX("添加项目失败")

Exit Sub

End If

Next k

Cornbol．AddItem Combo1．Text

MsgBOX("添加项目成功")

End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch)

For k=1 To n

c$=Ucace(Mid(ch，k，1))

If c<"A"Or c>"Z"Then

Check=False

Exit Function

End If

Next k

Check=True

End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（　　）。A.显示“输入错误”

B.显示“添加项目失败”

C.显示“添加项目成功”

D.没有任何显示

B。【解析】该题对输入到组合框的编辑区内的字符串先进行检查如果不是A到Z或者a到z之间，则显示添加失败，接着再检查组合框中是否已经含有该字符串，如果含有，显示“添加项目失败”。

有如下程序：  Private Sub Command1_Click()  a$="A WCIRKER IS HERE"  x=Len(a$)  For i=1 To x-1  b$=Mid$(a$,i,3)  If b$="WOR"Then S=S+1  Next  Print S  End Sub  单击命令按钮，程序运行结果为A．1

B．2

C．3

D．5

根本没看懂什么意思哎

A.A.1

B.2

C.3

D.4

（1）BC边上的高所在直线方程；

（2）AB边中垂线方程；

（3）∠A平分线所在直线方程。