在窗体上画一个名称为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
题目
在窗体上画一个名称为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
相似考题
更多“在窗体上画一个名称为Text1的文本框,然后编写如下代码:Option Base 1Private Sub Form. Click() ”相关问题
-
第1题：
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1 Click() Text1.Text="AB" End Sub Private Sub Command2 Click() Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A．AB
B．CD
C．ABCD
D．CDAB
正确答案：B
解析：本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。 -
第2题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第3题：
在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码：
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示( )
A、AB
B.CD
C.ABCD
D.CDAB
正确答案：A
-
第4题：
在窗体上画一个命令按钮(名称为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。 -
第5题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是
A． Visual
B．Basic
C．Program
D．出错
正确答案：C
解析：Text是文本框的默认属性。