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

Private Sub Command1_Click()

C．h$= ” AABCDEFGH ”

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

E．nd Sub

A．)CDEFGH

B．)ABCD

C．)FG

D．)AB

[单选题]下列程序执行的结果是______。 Private Sub Command1_Click() x=25 If x＞0 Then y=1 If x＞10 Then y=2 If x＞20 Then y=3 If x＞30 Then y=4 Print y End SubA．1B．2C．3D．4

[单选题]以下语句的输出结果是______。 Private Sub Command1_Click() x=10 y=1 Print x+y=101； End SubA．11B．101C．110D．False

[主观题]下面程序运行后，窗体中显示[ ]。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"F．or k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintE．nd Sub

[试题]执行下面的程序段，x的值为[ ]。Private Sub Command1_Click()F．or i=1 To 9a=a+iNextx=Val(i)MsgBox xE．nd Sub

[单选题]当VB执行下面语句后，A的值为（）Private Sub Command1_Click（）Dim a As Integera=10If a＞0Then a=a+1If a＞1Then a=0Print aEnd SubA . 0B . 1C . 2D . 3

[单选题]设有如右图所示的窗体和下列程序：Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。A．文本框

[单选题]窗体上有一个列表框，编写下列程序： Private Sub Command1_Click() ListRemoveItem3 End Sub Private Sub Form_Load() ListAddItem "拉瓦锡" ListAddItem "道尔顿" ListAddItem "汤姆森" ListAddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。A．拉瓦锡B．道尔顿C．汤姆森D．门捷列夫

[单选题]执行以下程序,在窗体上输出()。Private Sub Command1_Click()D．im a(20)As IntegerF．or j = 1 To 20 Step 2a(j)= jNext jPrint a(1)+ a(2)+ a(3)AAAAAAAAaE．nd SubA． 4B． 5C． 6D． 7

[单选题]（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For

[单选题]运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End SubA．一条折线B．两条分离的直线段C．一个伞形图形D．一个十字形图形