题目
(8 )在窗体上画一个名称为 “ Command1 ” 的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As String
a = "123456789"
For i = 1 To 5
Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)
Next i
End Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
第1题
A.36 和8
B.36 和4
C.6和8
D.6 和4
第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 hardware
B.software
C.hardware
D.1
第3题
在窗体上画一个命令按钮,名称为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
第4题
在窗体上画一个命令按钮,名称为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
第5题
在窗体上画一个命令按钮,名称为Comraandl。单击该命令按钮时,执行如下事件过程: Private Sub Command1_Click() a$="software and hardware" b$=Right(a$, 8) c$=Mid(a$, 1, 8)+b$ MsgSox a$, 1, b$ End Sub 则在弹出的消息框的标题栏中显示的信息是______。
A.software and hardware
B.software
C.hardware
D.1
第6题
在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Command1 Click()
a$=”software and hardware”
b$=Right(a$,8)
c$=Mid(a$,L,8)
MsgBox a$,,bs,CS,1
End sub
则在弹出的信息框标题栏中显示的标题是()。
A.software and bardware
B.hardware
C.software
D.1
第7题
在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Commandl_Click()
a$=”software and hardware”
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,bs,cS,1
End sub
则在弹出的信息框标题栏中显示的标题是()。
A.software and hardware
B.hardware
C.software
D.1
第8题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后,单击命令按钮,则窗体上显示的内容是
A.112
B.2
C.909090
D.1001
第9题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后,单击命令按钮,则窗体下显示的内容是______。
A.8
B.2
C.5
D.11
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!