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

[主观题]

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果是（)。option bas

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果是()。 option base 1 Private Sub Command1_Ctick() Dim a (5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 total=total+a(k) Next k Print total End Sub

A．10

B．15

C．27

D．35

提问人：网友lyzkkzong 发布时间：2022-01-07

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在一个窗体上添加一命令按钮控件，名为Command1，事件过…”相关的问题

第1题

请依次解答以下各小题: 1.在考生文件夹下，分别建立名为EXAM1和EXAM2的子文件夹。 2.使用写字板，建立文件SHITI3.PNG，在其内录入文字"江西省高等学校"，并插入对象：位图图象，画圆和矩形各1个，然后存入EXAM1文件夹。 3.将文件SHITI3复制到EXAM2文件夹中，并更名为STUDENT.BMP。 4.删除文件夹EXAM1和其中的文件。

点击查看答案

第2题

在表单form1中有一个列表框list1的init事件件代码如下：（）。Publicda（2，2）Da（1，1）=’1”Da（1，2）=”a”Da（2，1）=”2”Da（2，2）=”b”This.rowsourcetype=5

A. 1a、2b

B. 12、ab

C. ab、12

D. a1、b2

点击查看答案

第3题

关于多行结构条件语句的执行过程，正确的是（）。

A．各个条件所对应的〈语句块〉中，一定有一个〈语句块〉被执行

B．找到〈条件〉为True的第一个入口，便从此开始执行其后的所有〈语句块〉

C．若有多个〈条件〉为True，则它们对应的〈语句块〉都被执行

D．多行选择结构中的〈语句块〉，有可能任何一个〈语句块〉都不被执行

点击查看答案

第4题

执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456)，使y的值是123456的语句是（）。

A．y=x$+List1.List(O)

B．y=x$+List1.List(1)

C．y=Val(x$)+Val(List1.List(0))

D．y=Val(x$)&Val(List1.List(1))

点击查看答案

第5题

以下程序运行后，输出结果是()。 a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a＜＞3 Or b＜＞3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c

A．16

B．3

C．6

D．8

点击查看答案

第6题

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。

A．hardware

B．software

C．hardware

D．1

点击查看答案

第7题

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

A．3

B．9

C．5

D．6

点击查看答案

第8题

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single) If Button=2 Then PopupMenu al,2 End Sub

B．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single PopupMenu al,0 End Sub

C．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single PopupMenu al End Sub

D．Private Sub Form. MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single If(Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu al End Sub

点击查看答案

第9题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Funl(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是

A．2 4 2 4

B．2 4 4 8

C．10 10 58 58

D．4 4 8 8

点击查看答案

第10题

设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是()。

A．Student.name="张红"

B．Dim s As Student s.name="张红"

C．Dim s As Type Student s.name="张红"

D．Dim s As Type s.name="张红"

点击查看答案