单选题
在窗体上画一个名为Co mmand1的命令按钮，然后编写以下程序：
在窗体上画一个名为Co mmand1的命令按钮，然后编写以下程序：
Private Sub Co mmand1＿Click（）
Di m M（10）As Integer
For k ＝l To 10
M（k）＝12－k
Nextk
x＝8
Print M（2＋M（x））
End Sub
运行程序，单击命令按钮，在窗体上显示的是（ ）。
发布于 2022-05-11 09:59:35
登录后免费查看答案
关注者
0
被浏览
19
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答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Public Enumsa＝4b ＝3End EnumPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝aIf x＞＝3ThenMsgBox ＂Pass ！＂End Sub运行程序，其结果是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Di ma As Integer ，s As Integera＝8s ＝1Dos ＝s ＋aa＝a－1Loop While a ＜＝0Print s ；aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序：Option Base 0Di ma（）As Integer ，m As IntegerPrivate Sub Co mmand1Click（）m＝InputBox（＂请输入一个正整数＂）ReDi ma（m）End SubPrivate Sub Co mmand2Click（）m＝InputBox（＂请输入一个正整数＂）ReDi ma（m）End Sub运行程序时，单击Co mmand1后输入整数10，再单击Co mmand2后输入整数5，则数组a 中元素的个数是（ ）。
2022-05-11 关注 0 浏览9 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答案
-
设有如下通用过程：Public Function f（x As Integer）Di my As Integerx＝20y ＝2f ＝x＊yEnd Function在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Static x As Integerx＝10y ＝5y ＝f（x）Print x；yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：Function Funl （ByVal a As Integer ，b As Integer）As IntegerDi mt As Integer t ＝a－bb ＝t ＋aFunl ＝t ＋bEnd FunctionPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝10Print Funl（Funl（x，（Funl（x，x－1））），x－1）End Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体中有一个名为Command1的命令按钮，事件代码如下：Private Sub Command1_Click（ ）Dim m(10)For k=1 T0 10m(k)=11=kNext kx=6MsgBox m(2+m(x))End Sub打开窗体，单击命令按钮，消息框的输出结果是（ ）。
2022-05-13 关注 0 浏览22 1答案
-
在窗体上画1个名称为Co mmand1的命令按钮，然后编写下列程序：Private Sub Co mmand1＿Click（）Print fun（＂ABCDEFG＂）End SubFunction fun（st As Stri ng）As stri ngstlen ＝Len（st）te mp ＝＂＂For k ＝1To stlen／2te mp ＝te mp ＋Mid（st ，k ，1）＋Mid（st ，stlen －k ＋1，1） Next k fun ＝te mpEnd Function程序运行时，单击命令按钮，则在窗体上显示的是（ ）。
2022-05-11 关注 0 浏览9 1答案
