单选题
在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：
在窗体上画一个命令按钮，名称为 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 ，输入结果为 （ ） 。
发布于 2022-05-11 10:19:04
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As IntegerFor k=0 To 2A1 (k+1) = InputBox("请输入一个整数")A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：Option Base 0Private Sub Command1 Click（ ）Dim A1(4)As Integer，A2(4)As IntegerFor k=0 To 2A1(k+1)=InputBox(”请输入一个整数”)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：Option Base 0Private Sub Co mmand1＿Click（）Di m A1（4）As Integer ，A2（4）As IntegerFor k ＝0To 2A1（k ＋1）＝InputBox（＂请输入一个整数＂）A2（3－k）＝A1（k ＋1）Next k Print A2（k）End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim a(10) As IntegerFor k = 10 To 1 Step -1a(k) = 20 - 2 * kNext kk = k + 7Print a(k - a(k))End Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1 Click（ ）Dim a(10)As IntegerFork=10 To 1 Step-1a(k)=20-2*kNext kk=k+7Print a(k-a(k))End Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a$, b$, c$, k%a = "ABCD"b = "123456"c = ""k = 1Do While k <= Len(a) Or k <= Len(b)If k <= Len(a) Thenc = c & Mid(a, k, 1)End IfIf k <= Len(b) Thenc = c & Mid(b, k, 1)End Ifk = k + 1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Coinmand1 Click（ ）Dim a$，b$，c$，k％a="ABCD"b="123456"c=""k=1Do While k<=Len(a)Or k<=Len(b)If k<=Len(a)Thenc=c＆Mid(a，k，1)End IfIf k<=Len(b)Thenc=c＆Mid(a，k，1)End Ifk=k+1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
阅读下列程序：Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer)a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后，单击命令按钮输出结果是
2022-05-11 关注 0 浏览18 1答案
-
在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上有一个命令按钮，然后编写如下程序：Function Trans(ByVal num As Long) As LongDim k As Longk=1Do While numk=k * (num Mod 10)num=num ＼ 10LoopTrans=kPrint TransEnd FunctionPrivate Sub Command1_Click()Dim m As LongDim s As Longm=InputBox("请输入一个数")s=Trans(m)End Sub程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为 ______ ,在输入对话框中输入"987"输出 ______ ,在输入对话框中输入"879"，输出结果为______ 。
2022-05-11 关注 0 浏览12 1答案
