设在一个窗体中已设计了一个文本框Text1，一个命令按钮Comd1和一组复选框Check1，并有如下过程，请写出运行的结果。

题目

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

相似问题和答案

第1题：

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

Call f(x,y,z)

End Sub

Sub f(a As Integer,b As Integer,c As Integer)

c=b*a

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

正确答案：15
15

第2题：

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

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

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

第3题：

在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2170 n=Len (Str$ (m) +Space (5)) Me! Text1=n End Sub打开窗体运行后，单击命令按钮，在文本框中显示( )。

A．5

B．8

C．9

D．10

正确答案：C
解析：2170转换为字符串，再在后面加5个空格，所以长度为9。

第4题：

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

正确答案：12
12 解析：本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。

第5题：

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

Private Sub Command_Click()

Dim x AS Integer， y As Integer， z As Integer

x=5:y=7:z=0

Me!Textl=””

Call pl(x，y，z)

Me!Text1=z

End Sub

Sub pl(a As Integer，b As Integer，c As Integer)

C=a+b

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是【】。

正确答案：12
12 解析：本题考查考生阅读VBA程序的能力。程序中调用p1(x,y,z)函数来将z的值交给文本框Text1，p1(x,y,z)函数实现将x与y相加，然后赋给z的功能。所以在文本框中显示的内容是12，是5+7的结果。

第6题：

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1)，然后编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer，y As Integer，z As Integer

x=5：y=7：z=0

Me!Text1=””

Call p1(x,y,z)

Me!Text1=z

End Sub

Sub p1(a As Integer，b As Integer，c As Integer)

c=a+b

End Sub

打开窗体运行后，单击命令按钮，文本框中，显示的内容是【】。

正确答案：12
12 解析：由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。

第7题：

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。

A．27

B．28

C．29

D．30

正确答案：C
解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29"

第8题：

在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

A．12

B．0

C．5

D．7

正确答案：B

第9题：

在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：

Private Sub Command1_Click()

x＝Val(Text1.Text)

Select Case x

Case 1,3

y＝x*x

Case IS＞＝10,IS＜＝-10

y＝x

Case-10 To 10

y＝-x

End Select

End Sub

程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。

正确答案：9
9 解析：本题考查多分支语句Select Case的知识。 Select Case用于实现多分支结构，其使用格式为： Select Case 测试表达式＞
[Case表达式列表1＞]
[语句块1]
[Case 表达式列表2＞]
[语句块2]
[CaseElse]
[语句块n]
End Select
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行严y＝x*x后退出Case结构，最后y的值为9。

第10题：

在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" ME．Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。

A．Visual

B．Basic

C．Program

D．出错

正确答案：C

设在一个窗体中已设计了一个文本框Text1，一个命令按钮Comd1和一组复选框Check1，并有如下过程，请写出运行的结果。 <img src="//img.examk.com/exam/y/b/w2KNyM3PevEds951gfdz9gdL6lJQJkn4.png">

题目

相似问题和答案

更多相关问题

相关内容