下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub

题目

下面程序运行后，窗体中显示【 】。

Private Sub Command1_Click) ( )

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

For k = 1 To 3

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

Print x $;

Next

Print

End Sub

相似考题

1.下面程序运行后，窗体(Form1)中输出的结果是( )Privatesubform_load()form1.autoredraw=truex=3:y=5Printx;yendsubA.TrueTrueB.35C.窗体无显示D.x=3y=5

2.在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是A．20B．32C．44D．78

3.在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。A．100B．10C．121D．出错信息

4.在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。A．400B．20C．441D．出错信息

更多“下面程序运行后,窗体中显示【】。 Private Sub Command1_Click) ( ) aS ="*" :b$ ="$" For k = 1 To ”相关问题

  • 第1题：

    下面程序的运行结果是在窗体中显示的：

    运行后窗体上显示的是______。


    正确答案：2 4 6 0.5
    2 4 6 0.5 解析：“k=3 then a=2*k”的语句其作用已经覆盖了“k=1 then a =2+k”和“k=2 then a=2-k”的语句，所以当k=1、2、3时，a分别为“a=2*k=2、4、6”。当“k=4”时，“a=2/4=0.5”。该题的难点就是关系运算符的应用。

  • 第2题：

    下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd Sub

    A．*** ** ***

    B．*＄*＄*＄

    C．1*＄2*＄3*＄

    D．＄＄＄＄＄＄＄＄＄


    正确答案：D
    解析：本题的难点是了解生成字符函数String＄()和计算字符函数Len()，“a＄="*"”的作用只是被用来计算字符串长度，没有被打印出来。打印分隔符为“；”时，字符串之间没有空格。空打印Print操作是换行。

  • 第3题：

    运行下列程序，单击窗体后显示结果为（）。 Private Sub Form_Click（) Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc（3); Next End Sub

    A．31 31 4 31

    B．31 31 32 32

    C．4 31 5 32

    D．32 32 5 32


    33

  • 第4题：

    下面的程序运行时，单击窗体后，窗体上显示的结果是（ ）。

    A．9 8 7 6 3 2

    B．2 3 6 7 8 9

    C．9 8 7 6 3

    D．2 3 6 7 8


    正确答案：B
    【解析】本段程序的主要部分是两个嵌套的for循环，内层的循环，循环变量j从i+1开始到n结束，控制数组中的元素a(j)与a(i)进行比较，并用min1变量记录值最小的元素的下标；然后用三个语句将a(i)与a(min1)交换；外层循环控制从第一个数组元素到倒数第二个数组元素依次进行查找比较，最终实现将数组a的元素按照从小到大的顺序排序，所以正确答案为B)

  • 第5题：

    设有如下程序:OptionBase1PrivateSubForm_Click()Dima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k＋P(i)*2NextiPrintkEndSub程序运行后,单击窗体,则在窗体上显示的是( )

    A、33

    B.35

    C.37

    D.38


    正确答案：A

相关内容