在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Te

题目

在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是

A．40

B．10

C．12

D．16

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

相似问题和答案

第1题：

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

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

正确答案：
9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为：

其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

第2题：

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。

A．36

B．45

C．54

D．63

正确答案：B

第3题：

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

Private Sub Command1_Click()

Dim arr(10,10)As Integer,i,j As Integer

For i=1 To 3

For j=2 To 4

arr(i,j)=i+j

Text1.Text=arr(2,3)+arr(3,4)

End Sub

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

A．12

B．13

C．14

D．15

正确答案：A
解析：考查考生对多重循环的掌握。本题的难点是嵌套循环的计算。根据arr 1(i,j)=i+j可知,arr(i,j)的值为两个下标值之和,所以arr(2,3)+arr(3,4)的值为2+3+3+4=12嵌套使用多重循环时,应注意程序执行过程。

第4题：

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

A.机床

B.车床

C.钻床

D.轴承

正确答案：C
暂无解析，请参考用户分享笔记

第5题：

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1

B．3

C．6

D．10

正确答案：D
解析：在本题中，定义了一个一维数组Arr，并为其开辟了10个元素的空间，然后通过For循环为该数组的后5个元素赋值。不难看出，数组Arr后5个元素的值分别为3、4、5、6、7。最后一个语句是为文本框的Text属性赋值，这个值是Arr数组的两个元素之和，其中第一个元素是Arr(6)，即3；第二个元素的下标是数组Arr第六个元素(3)和第十个元素(7)的和，即Arr(3+7)=Arr(10)，而该元素的值为7。因此，Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(10)=3+7=10

第6题：

在窗体上画一个文本框，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（）。

A. a

B. A

C. aaaaaa

D. AAAAAA

正确答案：D
D) 【解析】本题考查KeyPress事件过程和字符串函数。KeyPress事件的过程格式为：Sub object_KeyPress([Index As Integer,]KeyAscii As Integer)，其中KeyAscii为字符ASCII码。当在文本框中输入字符a后，UCase函数把输入的字符转化为大写字符，Asc函数则把字符转化为ASCII码值。String函数则产生6个同样的字符A。

第7题：

在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。

A．40

B．10

C．12

D．16

正确答案：B

第8题：

设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24

正确答案：A
解析：本题主要考查传值与传地址的区别。Fun过程中参数a()的传送方式为传地址，参数x的传送方式为传值。当在Command1的Click事件过程调用该过程时，变量仅仅复制了一个变量副本传送给Fun过程，而它自己本身并没有发生变化．所以当调用完毕Fun过程后，再将n值赋给Textl的Text属性时，文本框中显示的内容仍为10。正确答案为A。

第9题：

在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private Sub Command1_Click()

Text 1="VB programming"

Text 2=Text 1

Text 1="ABCD"

End Sub

程序运行后，单击命令按钮，文本框Text 2中显示的内容为【】。

正确答案：VB programming
VB programming 解析：本段程序是先把“VB programming”赋给Text 1，然后在把Text 1的内容赋给Text 2，最后把“ABCD”赋给Text 1。所以最后Text 1中的内容是“ABCD”，而Text 2中的内容是“VB programming”。

在窗体上画一个文本框,然后编写如下代码:Option Base 1Private Sub Form_Click() Dim arr Dim St

题目

相似问题和答案

相关内容