Private Sub Command1_Click()
Static x as integer
X=f(x+5)
C.ls
Print x
E.nd Sub
Private function f(x as integer)as integer
F.=x+x
E.nd function
连续单击命令按钮3次,第3次单击命令按钮后,窗体上显示的计算结果是
A.)10
B.)30
C.)60
D.)70
[单选题]设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下:连续单击命令按钮三次,第三次单击命令按钮后,窗体上显示的计算结果是( )。A.
[单选题]在窗体上添加一个命令按钮(名为Command1,然后编写如下事件过程: Private Sub Command1_Click( ) For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后,单击命令按钮,消息框的输出结果是______。A.7B. 15C. 157D. 538
[单选题]在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c = “ABCD”F.or n= 1 To 4Print ( )NextE.nd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容( )。DCDBCDABCD则在( )处填入的内容为。A.Left(c,n)B.Right(c,n)C.Mid(c,n,1)D.Mid(c,n,n)
[单选题]在窗体上画一个命令按钮,名称为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 hardwareB.softwareC.hardwareD.1
[单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a=Array("机床","车床","钻床","轴承")Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承
[单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(“机床”,“车床”,“钻床”,“轴承”) Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承
[单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下事件过程: Private Sub Command1_Click() x=11 Sum=0 For i=1 To x n=Iif(i>5, 1, 2) Sum=Sum+n Next i Print Sum End Sub 运行后的输出结果是______。A.16B.11C.5D.2
[单选题]在窗体上画一个命令按钮,名称为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 hardwareB.softwareC.hardwareD.1
[单选题]在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Then y = Sgn(x ^ 2)Else y = Sgn(x)End IfPrint yE.nd Sub程序运行后,单击命令按钮,窗体上显示的是( )。A.-5B.25C.1D.-1