单选题程序运行后，单击窗体，则在窗体上显示的内容是（）. 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 Nex

题目

单选题

程序运行后，单击窗体，则在窗体上显示的内容是（）. 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

9 8 7 6 3 2

2 3 6 7 8 9

9 8 7 6 3

2 3 6 7 8

相似考题

1.设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 – I);Next IEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。A.4321B.5432C.6543D.7654

2.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click（）Text1.Text = "VB程序设计"End SubPrivate Sub Text1_Change（）Picture1.Print "VB Programming"End Sub程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是_____。

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

4.在窗体中添加一个命令按钮，名称为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

参考答案和解析

正确答案： B

解析：本题考查循环程序的分析。程序主要包括两条循环语句，一条为两层循环的嵌套语句，内层循环找到当前i到n之间的最小元素的下标，退出内循环则把最小元素放到a(i)的位置，i从1变化到n-1；另外一条循环语句为输出数组中的所有元素，即把排序以后的结果输出。

更多“程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1”相关问题

第1题：

设有如下程序：
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(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后，单击窗体，则在窗体上显示的是
A．15
B．16
C．20
D．25

正确答案：C
解析：i=1时，ary(1)=1+1=2，sum=O+2=2，i=2时，ary(2)=2+1=3，sum=2+3=5，i=3时，ary(3)=3+1=4，sum=5+4=9，i=4时，ary(4)=4+1=5，sum=9+5=14，i=5时，ary(5)=5+1=6，sum=14+6=20。因此本题答案为C)。
第2题：

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是。

正确答案：VB Programming、VB 程序设计
【解析】单击窗体触发Form的Click事件，执行“Text1.Text="VB Programming"”语句，在文本框Text1中显示“VB Programming”；此时文本框Text1的Text属性发生了变化，因此触发Text1的Change事件，执行“Picture1.Print"VB程序设计"”语句，在图片框中显示“VB程序设计”。
第3题：

设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是
A．#2=2 #3=3
B．#2=2 #3=5
C．#；2=2 #；3=3
D．#；2=2 #3；=5

正确答案：B
解析：由于Print方法中的分号表示前后字符之间的连接，并不显示在窗体中，同时由于Function过程以Static定义，在I=3时，Fac(1)的值为5。
第4题：

有下列程序： 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”。
第5题：

设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。
A.4 3 2 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4

正确答案：C
C。【解析】OptionBase0指示程序中数组下标从0开始，因此在For循环中打印的数组元素分别为第6、5、4、3个元素，结果为6、5、4、3。
第6题：

编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．ABCDE
B．96
C．65
D．abcde

正确答案：A
解析：利用For循环依次将字母ABCDE分别写到examp文件中，然后再用Input函数一次将10个字母读出，并显示在屏幕上。
第7题：

设有如下程序： 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。
第8题：

运行下列程序：
Private Sub Form_Click( )
a$ = 2
b$ = 1
Call abcd(a, b, c$, d$)
Print c; d
End Sub
Private Sub abcd(x$, y$, z$, s$)
z = x + y
s = x - y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.3 1
B.1 3
C.211
D.显示出错信息

正确答案：C
第9题：

运行下列程序：
Private Sub Form_Click( )
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.5
B.1 2 3 4 5
C.19
D.7

正确答案：C
第10题：

在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序： 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．0
B．5
C．6
D．7

正确答案：B
解析：当一数字用函数Str转换成字符串时，总会在前头保留一个空位来表示正负。如果数字为正，返回的字符串包含一个空格，暗示有一个正号(+)。
第11题：

在窗体上画一个文本框和一个图片框，然后编写口下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
PicturePrint"VB programming"
End Sub
程序运行后，单击窗体，则在本框中显示的内容是【】，而在图片框中显示的内容是【】。

正确答案：VB程序设计VB programming
VB程序设计,VB programming 解析：文本框内容是因窗体的Click事件而改变，而PictureBox内容是因文本框内容的改变而改变的。
第12题：

设有如下程序： Private Sub Command1_Click（） Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9） For I=0 To 3 Print a（5-I）； Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
- A、4321
- B、5432
- C、6543
- D、7654
正确答案:C
第13题：

设有以下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
End Select
Next i
End Sub
打开窗体运行后，单击窗体，则消息框的输出内容是( )。

正确答案：5
5 解析：本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行case语句中的a=a+1；第二次i的值为2，故此执行case语句中的a=a+2；第一次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。
第14题：

设有如下程序：
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。
第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题：

设有如下程序： 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。
第17题：

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

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

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub
A．3
B．9
C．5
D．6

正确答案：B
第19题：

运行下列程序: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
第20题：

运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x

运行下列程序：
Private Sub Form_Click( )
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.10 20
B.30 60
C.10 30
D.20 60

正确答案：B
第21题：

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。
A．4 3 2 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4

正确答案：C
解析：不要把下标和数组元素值相混淆。函数Array将初值赋给数组a，在循环中将下标为5、4、3、2的数组元素值打印出来，即6、5、4、3。
第22题：

设有如下程序： Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A．4 3 2 1
B．54 3 2
C．6 5 4 3
D．7 6 5 4

正确答案：C
解析：注意，由于"OptionBase0"，故数组的下标下界为0，所以a(5)应该是数组a的第六个元素"6"，以此类推，可知正确答案为C。
第23题：

设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
- A、4；3；2；1
- B、5；4；3；2
- C、6；5；4；3
- D、7；6；5；4
正确答案:C
第24题：

单选题
设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
A
4；3；2；1
B
5；4；3；2
C
6；5；4；3
D
7；6；5；4

正确答案： C
解析：暂无解析

题目

相似考题

参考答案和解析

更多“程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（ ） Dim a(1”相关问题

相关内容

更多“程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1”相关问题