当VB执行下面语句后，A的值为（）

Private Sub Command1_Click（）

Dim a As Integer

a=10

If a＞0Then a=a+1

If a＞1Then a=0

Print a

End Sub

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

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

[单选题]（ 14 ）执行以下程序后输出的是Private Sub Command1_Click()C．h$= ” AABCDEFGH ”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)E．nd SubA．)CDEFGHB．)ABCDC．)FGD．)AB

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

[单选题]下列程序执行的结果是______。 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() 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．文本框

[单选题]（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() ListRemoveItem3 End Sub Private Sub Form_Load() ListAddItem "拉瓦锡" ListAddItem "道尔顿" ListAddItem "汤姆森" ListAddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。A．拉瓦锡B．道尔顿C．汤姆森D．门捷列夫

[单选题]执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

[单选题]当VB执行下面语句后，A的值为 ( ) A＝1 If A＞0 Then A=A+1 If A＞1 Then A＝0A．0B．1C．2D．3