在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序:PrivateSubCommand1_Click() Dim a

题目

在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As String,C As Integer a = 1234 : b = Str(A)c = Len(B)Print c End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是

A.0

B.5

C.6

D.7

如果没有搜索结果或未解决您的问题,请直接 联系老师 获取答案。
相似问题和答案

第1题:

在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:


正确答案:

36 

第2题:

在窗体上添加一个命令按钮(名为Commandl),然后编写如下程序:

打开窗体运行后,单击命令按钮,消息框的输出结果为__________。


正确答案:
20【解析】本题考查IIf函数的知识。对于Ⅱf函数可用于执行简单的条件判断操作,当第一个参数为真时返回第二个参数值,否则返回第三个参数值。因为x>y为假,所以返回Y的值也就是返回20。

第3题:

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:

PrivateSubo(ByVidpAslnteger)

p=p*2

EndSub

PrivateSubCommandl_C1kk()

DimiAsIntcger

Cails(1)

Ifi>4Thcni=i^2

MsgBoxi

EndSub

窗体打开运行后,单击命令按钮,则消息框的输出结果为______。


正确答案:36
36

第4题:

在窗体中添加一个名称为Coml的命令按钮,然后编写如下程序:


正确答案:
3【解析】本题考查VBA程序的知识。在VBA的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用,此时形参的变化不会返回到实参;若用ByRef声明,说明此参数为传址调用,此时形参的变化将会返回到实参;没有说明传递类型,则默认为传址传递。此题中形参P被说明为ByVal传值形式的整型量,当运行Cornl-click过程时调用s函数,实参i传送其值给形参P,P发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递,所以实参i的值不发生变化,if语句中的判断条件为假,所以会直接执行MsgBox i语句后输出3。

第5题:

在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:

Privme Sub Commandl_Click()

Dim intNum As Integer

intNum=InputBox(“请输入:”)

MsgBox f(intNum)

End Sub

Function f(X As Integer) As Integer

f=IIf (X<10,X,X+5)

End Function

运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。


正确答案:5
5 解析: 本题考查IIf函数和函数调用的知识。本题中调用函数f(intNum) ,也就是将intNum的值5传给形参X;IIf函数可用于执行简单的条件判断操作,此函数有3个参数,当第一个参数为真时返回第二个参数值,否则返回第三个参数值。因为X<10为真,所以返回并输出的值也就是5。

第6题:

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

A.机床

B.车床

C.钻床

D.轴承


正确答案:C
解析: 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成,我们通常使用Dim语句来定义数组,其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。

第7题:

在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:

程序运行后,单击命令按钮,其输出结果为__________。


正确答案:
9【解析】本题考查VBA中程序设计的知识。对于这个问题,首先注意到循环的次数为6次;然后注意到循环内的两个If语句为顺序关系而不是嵌套关系,第一个If语句只有第一次循环时才会满足;第一次循环时首先执行第一个If语句把x赋值为1,然后执行第二个If语句;以后各次循环均照此分析,前4次循环x自加l,后两次循环X自加2,最后输出结果为9。

第8题:

在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:

Private Sub Command1_Click()

Dim s,i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

窗体打开运行后,单击命令按钮,则消息框的输出结果为 。


正确答案:

55 

第9题:

在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:

程序运行后,单击命令按钮,消息框输出的是系统当前日期和当前时间。


正确答案:
72【解析】本题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值,最后求两个数组元素值的积。我们只需要注意这两个数组元素在循环中被赋了什么值,当i=3,j=3时,al(3,3)=3 3=6,a2(3,3)=al(3,3) 3 3=12,所以最后二者之积为72。

第10题:

在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:

程序运行后,单击命令按钮,在文本框中显示的值是__________。


正确答案:
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题,使用了二重循环为二维数组进行了部分赋值,最后求两个数组元素值并求和,注意这两个元素是否已被赋值,若没有赋值则为0。本题中对于a(2,3)赋值为2*3也就是6,a(4,6)赋值为4*6也就是24,最后的结果为6 24=30。

更多相关问题