下面程序运行后，窗体中显示[ ]。

Private Sub Command1_Click) ( )

aS ="*" :b$ ="$"

F．or k = 1 To 3

x$ =Strings (Len(a$) +k,b$ )

Print x $;

Next

Print

E．nd Sub

[单选题]下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd SubA．*** ** ***B．*＄*＄*＄C．1*＄2*＄3*＄D．＄＄＄＄＄＄＄＄＄

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

[试题]执行下面的程序段，x的值为[ ]。Private Sub Command1_Click()F．or i=1 To 9a=a+iNextx=Val(i)MsgBox xE．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() ListRemoveItem3 End Sub Private Sub Form_Load() ListAddItem "拉瓦锡" ListAddItem "道尔顿" ListAddItem "汤姆森" ListAddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。A．拉瓦锡B．道尔顿C．汤姆森D．门捷列夫

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

[单选题]当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() x=10 y=1 Print x+y=101； End SubA．11B．101C．110D．False

[单选题]（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 ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9