更多"单击窗体上Command1命令按钮时,执行如下事件过程: Pri"的相关试题:
[单项选择]单击窗体上Command1命令按钮时,执行如下事件过程
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]
在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Command1_Click()
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,b$,c$,1
End Sub
则在弹出的信息框标题栏中显示的标题是()。
A. software and hardware
B. hardware
C. software
D. 1
[单项选择]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click( ) a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]
窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1.Click( )
x="Visual BasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
c=MsgBox(a,,b)
End Sub
运行程序后单击命令按钮,下列叙述中错误的是()。
A. 信息框的标题是Basic
B. 信息框中的提示信息是Programming
C. c的值是函数的返回值
D. MsgBox的使用格式有错
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下: Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后,单击命令按钮,输出结果是
A. 10
B. 14
C. 15
D. 120
[单项选择]单击命令按钮时,下列的执行结果为 Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=86:y=29 Call Proc(x,y) Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 12 32
B. 6 29
C. 2 3
D. 12 3
[单项选择]单击命令按钮时,下列程序的执行结果为 Private Sub Command1 Click( ) Dim x As Integer,y As Integer x=12:y=32 Call PCS(x,y) Print x;y End Sub Public Sub PCS(ByVal n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 1232
B. 232
C. 23
D. 123
[单项选择]在窗体上画一个命令按钮,名称为Command1。 Private Sub Command1 Click( ) Dim x As Integer,y As Integer x=10:y:0 Do x=x+2:y=y+x Print "x=", x; "y=",y If y>20 Then Exit Do Loop Until x=18 End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12 x = 14 y = 16 x=16 y=18
B. x=12 y=12 x= 16 y =28 x= 18 y=24
C. x=12 y=12 x= 14 y=44
D. x= 12 y=12 x= 14 y=26
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click( )
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x<6 Then
Call BT(x)
End If
x=x*2
Print x;
End Sub
A) 15 B) 16
C) 17 D) 18
[单项选择]单击命令按钮时,下列程序的执行结果为( )。
Private Sub Command1 Click( )
Dim x As Integer,y As Integer
x=12:y=32
Call PCS(x,y)
Print x;y
End Sub
Public Sub PCS(ByVal n As Integer,ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 1
B. 2
C. 3
D. 5