程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next

题目

程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next i For i=1 To n Print a(i) Next i End Sub

  • 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
相似考题

1.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For I=1 To 2For J=1 To IPrint String(I，"Hello")；Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．H HH HHB．H HHHHC．HHHHHD．H HH HHHH

2.在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7

3.在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承

4.有如下事件过程： Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x\100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。A．123B．3C．5D．579

更多“程序运行后，单击窗体，则在窗体上显示的内容是（）. Priva”相关问题

  • 第1题：

    下面对程序段运行结果叙述正确的是( )PrivateSubForm_Click()Caption="鼠标单击&quo

    下面对程序段运行结果叙述正确的是( )

    PrivateSubForm_Click()

    Caption="鼠标单击"

    Picture=LoadPicture(App.Path+"\window.jpg")

    Print"欢迎使用VB"

    EndSub

    PrivateSubForm_DblClick()

    Caption="鼠标双击"

    Picture=LoadPicture("")

    Print"结束使用VB"

    EndSub

    A.单击窗体时窗体的标题为"鼠标单击"，窗体上显示"结束使用VB"

    B.双击窗体时窗体的标题为"鼠标双击"，窗体上显示"结束使用VB"

    C.双击窗体时窗体的图片还在

    D.单击窗体时窗体的图片删除


    正确答案：B

  • 第2题：

    设有如下程序：

    Private Sub Form. Click（ ）

    Dim ary(1 To 5)As Integer

    Dim i As Integer

    Dim sum As Integer

    For i=1 To 5

    ary(i)=i+l

    sum=sum+ary(i)

    Next i

    Print sum

    End Sub

    程序运行后，单击窗体，则在窗体上显示的是（ ）。

    A.15

    B.16

    C.20

    D.25


    正确答案：C
    C。【解析】本题中因为i是从l～5递增，当i=1时，ary(1)=1+i=2，sum=sum+2----2，当i=2时，ary(2)=1+i=2+1=3，sum=sum+3=2+3=5，同理当i=3时，ary(3)=4，sum=9，当i=4时，ary(4)=5，sum=14，当i=5时，ary(5)=6，sum=20，所以答案选择C。

  • 第3题：

    程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是______。

    A．MouseDown

    B．MouseUp

    C．Load

    D．Click


    正确答案：C
    解析：在窗体上单击鼠标，分别触发窗体的MouseDown、MouseUp和Click事件过程，不会触发Load事件过程。

  • 第4题：

    在名为Form1的窗体上绘制3个名称分别为Cmd1、Cmd2和Cmd3，标题分别为“加法”、“减法”和“乘法”的命令按钮。编写适当的事件过程，使程序运行后，‘若单击“加法”按钮，则在窗体上显示“50+30=80”；如果单市“减法”按钮，则在窗休上显示“50-30=20”；如果单击“乘法”按钮，则在窗体上显示“50*30=1500"。程序的运行情况如下图所示。

    注意：

    程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为 execise117.frm，工程文件名为execise117.vbp。


    正确答案：

  • 第5题：

    设有以下窗体单击事件过程：

    打开窗体运行后，单击窗体，则消息框的输出内容是( )。


    正确答案：5
    5 解析： 本题考查的是VBA中的控制结构。SelectCase结构运行时，首先计算“表达式”的值，它可以是字符串或者数值变量或表达式。然后会依次计算测试每个Case表达式的值，直到值匹配成功，程序会转入相应Case结构内执行语句。本题中，当i=1和3的时候，执行a=a+1，当i=2时，执行a=a+2，所以a=1+1+2+1=5。

  • 第6题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A. 机床

    B. 车床

    C. 钻床

    D. 轴承


    正确答案：C
    本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第7题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：程序运行后，如果单击命令按钮，则在面体上显示的内容是（ ）。


    正确答案：A
    A)    【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。

  • 第8题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A．

    B．H

    C．

    D．


    正确答案：A
    【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。

  • 第9题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A)机床

    B)车床

    C)钻床

    D)轴承


    正确答案：C
    本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。

  • 第10题：

    在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display。编写适当的事件过程，使程序运行后，若单击命令按钮，则在窗体上显示ViSBa1 Basic；如果单击窗体，则命令按钮消失。程序运行情况如下图所示。

    注意：

    在程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise16.vbp，窗体文件名为execise16.frm。


    正确答案：

  • 第11题：

    设有如下程序

    该程序运行后，单击窗体，则在窗体上显示的内容是：a＝（ ）和b＝（ ）。


    正确答案：
    30，70
    【解析】对a而言，只有pl是传址的，所以a＝30。对b而言，只有p2是传址的，所以b＝70。

  • 第12题：

    程序运行后，如果单击命令按钮则，在窗体上显示的内容是（）.

    • A、VVV
    • B、ll
    • C、sic
    • D、Vis

    正确答案:C

  • 第13题：

    在窗体上画一个名称为Cl的命令按钮，然后编写如下事件过程：

    程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是（ ）。

    A)5

    B)6

    C)9

    D)10


    正确答案：D
    本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1234=10次。

  • 第14题：

    在Form1的窗体土绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示VisualBasic。程序运行情况如下图所示。

    注意：

    程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise114.vbp，窗体文件名为execise114.frm。


    正确答案：

  • 第15题：

    在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：

    Private Sub Form_Click()

    Text1.Text="VB程序设计"

    End Sub

    Private Sub Text1_Change()

    Picmml.Print"VBProgramming"

    End Sub

    程序运行后，单击窗体，则在文本框中显示的内容 [9] ，而在图片框中显示的内容是 [10] 。


    正确答案：VB程序设计VB Programming
    VB程序设计,VB Programming

  • 第16题：

    有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

    A．Microson

    B．错误提示

    C．Visual

    D．Basic


    正确答案：A
    解析：使用Array函数创建的数组下界是由OphonBase语句指定的下界而确定的，在本题中，下界被OptionBase语句指定为0，所以x(0)的值为“Visual”，x(1)的值为“Basic”，x(2)的值为“Microsoit”，x(3)的值为“Programming”。

  • 第17题：

    设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是

    A．6

    B．5

    C．4

    D．3


    正确答案：B
    解析：本题是对多分支结构和循环结构的综合考查。i为1时，执行了第一个 Case后的语句A＝A+1得A的值为2。i为 2时，执行的是第二个Case后的语句A＝A+ 2(注意，此时右边的A值应保留了上一次循环的结果值2)即A＝2+2得A的值为4。i为3时，又一次执行了语句A＝A+1即A＝4 +1得A的值为5。故最后执行语句Print A后，窗体上显示的内容是5。

  • 第18题：

    设有如下程序：程序运行后，单击窗体，则在窗体上显示的是（ ）。

    A. 4 3 2 1

    B. 5 4 3 2

    C. 6 5 4 3

    D. 7 6 5 4


    正确答案：C
    C)    【解析】本题考查变体数组。题中定义了一个下标从0开始的变体数组a，然后利用Array函数初始化数组a中的数据，最后通过For循环输出数组中a(5)、a(4)、a(3)、a(2)四个元素的值，分别为：6 5 4 3。

  • 第19题：

    在窗体上放置一个命令按钮Commandl，并编写其单击事件的程序，如下：

    程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。

    A．10

    B．12

    C．16

    D．20


    正确答案：B
    【解析】程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：①当i--1时，x(i)=2；d=d-c＝-6；②当i--2时，x(i)=4：d＝d-c=-12；③当i＝3时，x(i)=6：d=d-c=18；④当i=4时，X(i)8;d=d+X(i)=-10；c=8；⑤当i=5时，x(i)=10；d=d十x(i)-O；c=10；⑥当i=6时，x(i)=12；d=d+x(i)=12；c=12。

  • 第20题：

    在窗体上画一个名称为cl的命令按钮，然后编写如下事件过程： Private Sub Cl_Click（ ） a=0n=InputBox（‘‘‘‘）Fori=lTonForj=lToia=a+lNextjNextiPrint aEnd Sub程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是（ ）。

    A.5

    B.6

    C.9

    D.10


    正确答案：D
    D．【解析】本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题是循环共执行多少次。已知外循环共执行4次，每次外循环中内循环都执行i次，内循环共执行次数为1+2+3+4=10次。

  • 第21题：

    在Form1的窗体上建立一个主菜单，标题为“操作”，名为vbOp，该菜单有两个菜单项，其标题分别为“显示”和“清除”，其名称分别为vbDis和vbClear。编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在窗体上显示Visual Basic：如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如下图所示。

    注意：

    文件必须存放在考生文件夹中，工程文件名为execise41.vbp，窗体文件名为 execise41.frm。


    正确答案：

  • 第22题：

    运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu

    运行下列程序：

    Private Sub Form_Click( )

    Dim x As Integer, y As String, z As String

    y = "12345"

    For x = 1 To Len(y)

    z = Mid(Left(y, x), 1)

    Next x

    Print z

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.1

    B.11111

    C.55555

    D.12345


    正确答案：D

  • 第23题：

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）

    • A、BBCCCDDDDEEEEE
    • B、ABBCCCDDDD
    • C、BCCDDDEEEE
    • D、AABBBCCCCDDDDD

    正确答案:A

  • 第24题：

    单选题
    假定有如下的窗体事件过程：程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（　　）。
    A

    Microsoft Visual

    B

    Microsoft

    C

    Basic

    D

    5


    正确答案： B
    解析：
    MsgBox的格式为MsgBox（prompt[，buttons][，title][，helpfile，context]），其中显示在对话框标题栏中的是title。如果省略title，则将应用程序的名称显示在标题栏中。字符串b$为“Basic”，字符串c$是Microsoft，MsgBox的标题是字符串b的内容。

相关内容