编写以下程序段：PrivateSubForm_Click()ForI=1To3PrintString(I,▼)NextIEndSub其中〈CR〉表示换行和回车当单击窗体时，显示的图形为( )A.▼▼▼▼〈CR〉B.▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉C.▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼〈CR〉D.▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉
编写以下程序段：
PrivateSubForm_Click()
ForI=1To3
PrintString(I,"▼")
NextI
EndSub
其中〈CR〉表示换行和回车
当单击窗体时，显示的图形为( )
A.▼▼▼▼〈CR〉
B.▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉
C.▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼〈CR〉
D.▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉
相关考题：
设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
执行以下程序段 a$="abbacddcba" For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) Z=Right(a,i) z=UCase(XYz) Next i Print z 输出结果为( )A．ABCB．BBABBAC．ABBABAD．AABAAB
执行以下程序段 a$ ="abbacddcba" For i = 6 To 2 Step - 2 X = Mid(a， i，i) Y=Left(a， i) z=Right(a，i) z=UCase(X Y Z) Next i Print z 输出结果为A．ABCB．BBABBAC．ABBABAD．AABAAB
执行以下程序段 a$=“abbacddcba” For i=6 To 2 Step－2 X=Mid(a，i，i) Y=Left(a，i) z=Right(a, i) z=Ucase(X Y z) Next i Print z 输出结果为A．ABAB．BBABBAC．ABBABAD．AABAAB
设有如下程序：Private Sub Form_Click()Clsa$=”123456”For i=1 To 6Print Tab(12-i)；_____Next iEnd Sub程序运行后，单击窗体，要求结果如图所示，则在_____处应填入的内容为A．Left(a$，i)B．Mid(a$，8-i，i)C．Right(a$，i)D．Mia(a$，7，i)
下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End SubA．***** *** *B．* *** *****C． * *** *****D． * *** *****
9）设有如下程序：Private Sub Form_Click( )Clsa$="ABCDFG"For i=1 To 6Print Tab(12-i); 【9】Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。