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

[主观题]

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

在窗体上画一个文本框，然后编写如下代码： 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

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上画一个文本框，然后编写如下代码：Option Bas…”相关的问题

第1题

在窗体上画一个名称为Text1的文本框，然后编写如下代码：Option Base 1Private Sub Form. Click（)

在窗体上画一个名称为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

点击查看答案

第2题

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：Dim Save All

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：

Dim Save All As String

Private Sub Commandl_C1iCk()

Text1.Text=Left(UCase(SaveAU)，4)

End Sub

Private Sub Textl_KeyPress(KeyAscii As Intege)

SaveA11=Save All+Chr(KeyAscii)

End Sub

程序

点击查看答案

第3题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第4题

在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置

为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。

A．abodefg

B．不显示任何信息

C．ABCDEFG

D．出错

点击查看答案

第5题

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_KeyPress（KeyAscii As Integer)D

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。

A．a

B．A

C．aaaaaaa

D．AAAAAAA

点击查看答案

第6题

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click（)x=InputBox（“请输入一个

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

A．123

B．456

C．579

D．123456

点击查看答案

第7题

在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress

在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：

Private Sub TxtA_KeyPress（KeyAscii As Integer）

……

End Sub

假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是（）。 A．单击鼠标

B．双击文本框

C．鼠标滑过文本框

D．按下键盘上的某个键

点击查看答案

第8题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Textl.

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Textl.Text="VB程序设计"

End Sub

Private Sub Textl_Change()

Picturel.Print"VB programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第9题

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()Dim x As Integerx = V

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（)Dim x As Integerx = V

在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click()

Dim x As Integer

x = Val(InputBox("请输入一个整数"))

Print x + Text1.Text

End Sub

程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。

A.46

B.123

C.3412

D.1234

点击查看答案

第10题

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_KeyPress（KeyAscii As Integer)

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为

A．a

B．A

C．aaaaaa

D．AAAAAA

点击查看答案