题目内容（请给出正确答案）

[主观题]

运行下列程序：Private Sub Command1_Click（)x = 1z = ...

运行下列程序：

Private Sub Command1_Click()

x = 1

z = InputBox("请输入一个整数2")

Select Case z

Case Is ＞ 0

y = x + 1

Case Is = 0

y = x - 2

Case Else

y = x + 5

End Select

Print x; y

End Sub

从键盘输入2，输出的结果是()。

A.0 1

B.1 2

C.1 3

D.5 5

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“运行下列程序：Private Sub Command1_Cl…”相关的问题

第1题

运行下列程序：Private Sub Command1_Click( )x = 3If x < 3 Then Print x ＋ 3;If x < 4

运行下列程序：

Private Sub Command1_Click( )

x = 3

If x < 3 Then Print x + 3;

If x < 4 Then Print x + 4;

If x < 5 Then Print x + 5;

If x < 6 Then Print x + 6;

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是( )。

A.6 7 8 9

B.7 8 9

C.8 9

D.9

点击查看答案

第2题

有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0

B．1

C．3

D．4

点击查看答案

第3题

有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= "hello" Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) TextText=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是【】和【】。

点击查看答案

第4题

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

点击查看答案

第5题

在窗体上有一个命令按钮Command1，编写下列程序：

Private Sub Command1_Click()

Print pp1(3,7)