更多"运行下列程序: Private Sub Form Click( )"的相关试题:
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click( )
Dima
a=Array("天天向上","清华大学","天上人间","程序设计")
forI=Lbound(a,1) to Ubound(a,1)
ifleft(a(i),1)="天"then print a(i);
nextI
End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click( )
x="a":y="b"
z=1:u=2
Debug.Print x;y,z;u
Debug.Print z;x,y;u
End Sub
A. ab 12
B. ab 12
C. ab 12
D. ab 12
[填空题]阅读下列程序
Option Base 1
Private Sub Form_Click( )
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x (j,k)=1
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x( ))
End Sub
Private Sub fun(x( ))
For j=1 to 3
Fork-1 to 3
Print x(j,k)
Next k
Next j
End Sub
运行程序时,输出结果为 【13】 。
[多项选择]下面程序:
Private Sub Form_Click( )
Dim x,y,z As Integer
x=5
Y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim a As Integer,s As Integer
n=8:s=0
Do
s=s+n:n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是计算1-8的和。程序运行后,单击窗体,输出结果为______。
[单项选择]编写如下程序:
Private Sub Form Click( )
a$=: "4321": b$="abcd"
For 3=1 To 4
Print Mid$(a$,5-j,1)+Nid$(b$, j, 1);
Next j
Print
End Sub
程序运行后,单击窗体,其输出结果为 ______。
A. alb2c3d4
B. b4c3d2el
C. eld2c3b4
D. la2b3c4d
[单项选择]编写如下程序:
Private Sub Form_Click( )
a$="54321":b$="abcde"
For j=1 To 5
Print Mid$(a$,6-j,1)+Mid$(b$,j,1);
Next j
Print
End Sub
程序运行后,单击窗体,其输出结果为 ______。
A. a1b2c3d45e
B. a5b4c3d2e1
C. e1d2c3b4a5
D. 1a2b3c4d5e
[单项选择]执行下列程序后,鼠标单击窗体,输出结果为 Private Sub Form_Click( ) Print"Click": End Sub Private Sub Form_MouseDown(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Up" End Sub
A. DownUpClick
B. CfickDownUp
C. DownClickUp
D. UpDownClick
[单项选择]编写如下事件过程:
Private Sub Form_Click( )
k=2
Ifk>=1 Then A=3
Ifk>=2 Then A=2
Ifk>=3 Then A=1
Print A
End Sub
程序运行后,单击窗体,输出的结果为 ______。
A. 1
B. 2
C. 3
D. 出错
[单项选择]在窗体上绘制一个文本框,然后编写如下事件过程:
Private Sub Form_Click( )
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为( )。
A. 123
B. 456
C. 579
D. 123456
[填空题]在窗体上面有一个列表,然后编写如下两个事件过程:
Private Sub Form_Click( )
List1.RemoveItem 1:List1.RemoveItem 2
List1.RemoveItem 3
End Sub
Private Sub Form_Load( )
List1.AddItem"ItemA":List1.AddItem"ItemB"
List1.AddItem"ItemC":List1.AddItem"ItemD"
List1.AddItem"ItemE"
End Sub
运行上面的程序,然后单击窗体,列表框中显示的项目是______。
[单项选择]运行下列程序:
Private Sub Command1_Click( )
x = 0
Do While x<10
x=x * x + 1
y=y+x
Loop
MsgBox y
End Sub
单击Command1命令按钮后,弹出的消息对话框中会显示
A. 5
B. 8
C. 26
D. 34
[单项选择]若看到程序有如下事件过程,则可以肯定的是,当程序运行时
Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
A. 若用鼠标左键单击名称为“Command1”的命令按钮,则执行此过程
B. 若用鼠标左键单击名称为“MouseDown”的命令按钮,则执行此过程
C. 若用鼠标右键单击名称为“MouseDown”的命令按钮时,则执行此过程
D. 若用鼠标左键或右键单击名称为“Click”的控件时,则执行此过程
[单项选择]下列程序运行后会出现错误的提示为
Private Sub Command1_Click( )
Dim i AS Integer
Dim x
x=Array(2,3, 4, 5, 6, 7)
For Each i In x
Print i;
Next i
End Sub
A. 数组的下标超界
B. For Each数组的控制变量必须为变体变量
C. 关键字Each的位子不对
D. x应该定义成数组
[单项选择]下列程序段运行后窗体上输出结果为( )。
Private Sub Command1 Click( )
a=5:b=4:c=3:d=2
X=3>2*b Or a=c And b<>C Or c>d
Print X
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]阅读下列程序: Private Sub Command1_Click( ) Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后,单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[填空题]设有如下程序
Private Sub Fom1_Click( )
Dim s As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub pl(x As Integer,ByValy As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer,y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByVal x As Integer,ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后,单击窗体,则在窗体上显示的内容是:a= 【9】 和b= 【10】 。
[单项选择]阅读下列程序: Private Sub Command1_Click( ) Dim i As Integer,k As Integer k=2 For i=1 To 3 Print Fun(k); Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后,单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356