在窗体上添加一个命令按钮，然后编写如下事件过程：Phvate Sub Commanl_Click（)Dima（10)As Integer

在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程

A．35

B．33

C．31

D．29

提问人：网友bingleng9900 发布时间：2022-01-06

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上添加一个命令按钮，然后编写如下事件过程：Phvate…”相关的问题

第1题

在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：

Private Sub Cmd_Click()

Dim sum,k

For k=1 to 6

sum=30+k

Next k

MsgBox sum+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是【】。

点击查看答案

第2题

在窗体上添加一个命令按钮Command1，并编写下列事件过程： Private Sub Command1_Click() x = 0 n = 0 Do Until x > 10 x = (x + 1) ^ 2 n = n + 1 Loop End Sub 程序运行时，单击Command1按钮，则n和x的值分别是（）。

A、3和25

B、2和16

C、3和36

D、4和49

点击查看答案

第3题

在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim m(10) As Integer, n(10) As Integer i = 3 For t = 1 To 5 m(t) = t n(i) = 2 * i + t Next t Print n(i); m(i) End Sub 窗体运行后，单击命令按钮，显示结果为（）。

A、3 11

B、3 15

C、11 3

D、15 3

点击查看答案

第4题

窗体中有命令按钮cmd1，对应的事件代码如下： Private Sub cmd1_Enter() 　　Dim num As Integer,a As Integer,b As Integer,i As Integer 　　For i = 1 To 10 　　　　num = InputBox("请输入数据：","输入") 　　　　If Int(num/2) = num/2 Then 　　　　　　a = a + 1 　　　　Else 　　　　　　b = b + 1 　　　　End If 　　Next i 　　MsgBox("运行结果：a=" & Str(a)& "，b=" & Str(b)) End Sub 运行以上事件过程，所完成的功能是(　　)。

A、对输入的10个数据求累加和

B、对输入的10个数据求各自的余数，然后再进行累加

C、对输入的10个数据分别统计奇数和偶数的个数

D、对输入的10个数据分别统计整数和非整数的个数

点击查看答案

第5题

在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理()。

A．Private Sub nuEditPaste_Click() …… mun EditPaste.Enable=True End Sub

B．Private Sub mnuEditCopy click …… muEditPaste.Enable=True End Sub

C．Privat Sub munEditPaste_Click() …… mnuEditPaste.Visible=Tme End Sub

D．Private Sub munEditCopy_ClicK() …… munEditPaste.Visible=Tme End Sub

点击查看答案