编写以下程序段：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〉

相似考题

1.设有如下程序：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

2.执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=Str&Mid(S，i，1)Next iMsgBox StrEnd Sub

3.执行以下程序段 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

4.运行以下程序段后，输出结果为【 】。For I=1 To 3CisPrint"I=",I;Next

更多“编写以下程序段:PrivateSubForm_Click()ForI=1To3PrintString(I,"▼")NextIEndSu ”相关问题

  • 第1题：

    执行以下程序段 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．ABC

    B．BBABBA

    C．ABBABA

    D．AABAAB


    正确答案：B
    解析：本题综合字符串函数与For循环。由于Print语句在For循环后，而不在 For循环内，故只有For循环执行完毕后，Print方法才输出最终的z值。当i=z时，For循环执行最后一次循环体。此时Mid(a,2,2)表示返回a$从第2个字符开始向右的第2个字符，即“bb”；Left(a,2)表示返回a$左边的两个字符，即“ab”；Right(a,2)表示返回a$右边两个字符，即“ba”。所以“X&Y&z”的值为“bbabba”，Ucase返回字符串的大写形式，所以本题正确答案为B。

  • 第2题：

    设有如下程序：

    Private Sub Form_Click()

    Cls

    a$=”123456”

    For i=1 To 6

    Print Tab(12-i)；_____

    Next i

    End Sub

    程序运行后，单击窗体，要求结果如图所示，则在_____处应填入的内容为

    A．Left(a$，i)

    B．Mid(a$，8-i，i)

    C．Right(a$，i)

    D．Mia(a$，7，i)


    正确答案：A
    解析：本题显示内容为：从字符串左侧取字符，每次比上一次多取一个，用Left函数就可以实现，随着i的增加，取得的字符越来越多，因此本题答案为A)。

  • 第3题：

    9）设有如下程序：

    Private Sub Form_Click( )

    Cls

    a$="ABCDFG"

    For i=1 To 6

    Print Tab(12-i); 【9】

    Next i

    End Sub

    程序运行后，单击窗体，结果如图所示，请填空。


    正确答案：

    （9）【答案】Right(a $,i)
    【解析】Right函数用于从字符串右边返回指定数目的字符。格式为：Right（string,length）.其中，参数string 为字符串表达式，其最右边的字符被返回。

  • 第4题：

    执行以下程序段 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．ABA

    B．BBABBA

    C．ABBABA

    D．AABAAB


    正确答案：B
    解析：此题考查Left函数，Right函数，Mid函数和Ucase函数的知识，执行For循环后最后一个循环时i=2，X=bb，Y=ab，z=ba，使用Ucase函数将X & Y & z联成的字符串中所有字母变为大写字母，结果为BBABBA，选项B正确。

  • 第5题：

    下面程序段的运行结果是( )。 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 Sub

    A．***** *** *

    B．* *** *****

    C． * *** *****

    D． * *** *****


    正确答案：A

相关内容