( 23 ) 在窗体上画一个命令按钮,名称为 Command1 ,然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A(4) As Integer,B(4) As IntegerFor k = 0 To 2A(k + 1) = InputBox(" 请输入一个整数 ")B(3 - k) = A(k + 1)Next kPrint B(k)End Sub程序运行后,单击命令按钮,在输入对话框中分别输入 2 、 4 、 6 ,输出结果为A ) 0B ) 2C ) 3D ) 4
( 23 ) 在窗体上画一个命令按钮,名称为 Command1 ,然后编写如下代码:
Option Base 0
Private Sub Command1_Click()
Dim A(4) As Integer,B(4) As Integer
For k = 0 To 2
A(k + 1) = InputBox(" 请输入一个整数 ")
B(3 - k) = A(k + 1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入 2 、 4 、 6 ,输出结果为
A ) 0
B ) 2
C ) 3
D ) 4
相关考题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是______。A.VVVB.VisC.sicD.11
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Commandl_Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X, YEnd Sub程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为【 】。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click( ) a=12345 Print Format $(a,"000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是A.123.45B.12345.00C.12345D.00123.45
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Private Sub Command1_Cilck()End Sub运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是( )。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是A. 123.45B.12345.00C.12345D.00123.45
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是A.VVVB.VisC.sicD.11
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是( )。A.123.45B.12345.00C.12345D.00123.45