下列程序执行的结果是______。 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 Sub

A．1

B．2

C．3

D．4

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

[单选题]（ 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

[试题]执行下面的程序段，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

[单选题]设有如右图所示的窗体和下列程序：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．文本框

[单选题]当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

[单选题]（25）下面程序的执行结果是Private Sub Command 1 Click()a=10F．or k=1 To 5 Step-1a=a-kNext kPrint a; kE．nd SubA．）-5 6B．）-5 -5C．）10 0D．）10 1

[单选题]窗体上有一个列表框，编写下列程序： 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_lick()F．or i= 1 To 4x= 4F．or j =1 To 3x =3F．or k=1 To 2X= K+5Next kNext jNext iPrint xE．nd Sub

[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()B．T 4E．nd SubPrivate Sub BT(x As Integer)x=x*2 + 1If x < 6 ThenC．all BT(x)E．nd Ifx=x  2Print x;E．nd SubA．15B．16C．17D．18