下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是Private Sub Text1_Change ( ) TextText=Str(28* Val(Text1．Text)) End SubA．将在文本框Text1输入的数字变为数值B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行

题目

下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是Private Sub Text1_Change ( ) TextText=Str(28* Val(Text1．Text)) End Sub

A．将在文本框Text1输入的数字变为数值

B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串

C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变

D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行

参考答案和解析

正确答案：C
解析：Chang事件是当文本框的内容被改变时将触发该事件。文本框的Text属性是字符串类型，可将一个字符串常量或字符串变量直接赋给Text属性。如果Text属性值是由一个数字组成的字符串，要使它参与算术运算，应该用Val函数先将它转换成数值型数据。

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

相似问题和答案

第1题：

为了对文本框控件识别输入的F1—F12的功能键,应使用的事件是()

A、KeyPress

B、KeyDown

C、MouseDown

D、Change

正确答案：B

第2题：

在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。

A．Private Sub Command1_Click() Caption="Access模拟" End Sub

B．Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub

C．Private Sub Command1_Change() Caption="Access模拟" End Sub

D．Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub

正确答案：D

第3题：

下列关于控件焦点的叙述中正确的是（）。

A. 标签控件不能接收焦点事件

B. 如果将文本框控件中TabStop属性值设为False，则该文本框将不能接收焦点事件

C. 窗体控件不能接收焦点事件

D. 不能通过程序代码设置焦点属性

正确答案：A
A) 【解析】本题考查控件的焦点。设置控件的Tablndex属性可以改变控件的焦点的移动顺序。在窗体上绘制控件的时候，VB默认分配给控件的Tablndex属性，第一个默认为0，以下类推，可以在代码中更改。当控件的Visible和Enabled属性为真时，控件可以接受焦点，某些控件没有焦点，如标签、框架、计时器等。TabStop属性决定是否可以使用Tab来选定对象。

第4题：

在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1)，程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。

A．Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Text))End Sub

B．Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Text))End Sub

C．Private Sub Text1_ Change() Labell.Caption =Text1.TextEnd Sub

D．Private Sub Label1_ Change() Labell.Caption=Str(Len(Text 1. Text))End Sub

正确答案：A
解析：TextBox控件中，change事件是在FextBox控件的Fext内容发生改变时触发。Click事件是在用户鼠标单击文本时触发。程序运行后，在文本框中每键入一个字符，就会引发一次change事件，所以应把程序写在文本框Text1的Change()事件中，因此选项B、D错误。Len(Text1.text，)返回文本框中字符的个数，Str将返回的字符的个数转换成字符串，语句“Label1.caption=Str(Len(Text1.text))”是在标签中显示文本框中字符的个数，因此选项A正确。

第5题：

下列叙述中正确的是（）。

A．标签控件不能接收焦点事件

B．如果将文本框的TabStop属性值设为False，则该文本框将不能接收焦点事件

C．窗体控件能接收焦点事件

D．不能通过程序代码设置焦点属性

正确答案：A

第6题：

在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。现有如下事件过程 Private Sub Text1_Change（） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。

A.DataA

B.DataB

C.aData

D.aBase

正确答案：C
C。【解析]Mid函数是只在指定的文本中指定的位置取得指定个数的字符。在题干中a是在原有数据之前输入的，所以指定的字符串为aDataBase，所以最后取得的字符串为aData。

第7题：

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；

Private Sub Command1_Click()

S＄= InputBox ("请输入1个字符串")

Text1.Text= S＄

End Sub

Private Sub Text1_Change()

Labell.Caption = UCase(Mid(Text1, Text2, 8))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。

正确答案：BASIC
BASIC

第8题：

对文本框Text1编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim b As String

b = Chr(KeyAscii)

KeyAscii = Asc(UCaseB、)

End Sub

运行时，下列叙述正确的是( )。

A、 Text1中无法输入字符

B、 Text1中内容为"b"

C、 Text1中输入的字符都变为大写

D、 Text1中输入的字符都被转换成ASCII码

正确答案：C

第9题：

下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是

Private Sub Text1_Change（）

Text2.Text=Str（6.28 * Val（Text1.Text））

End Sub （）。

A．将在文本框Text1输入的数字变为数值

B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串

C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变

D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行

正确答案：C

下面Change事件过程中,文本框控件Text1用来接收数字字符的输入,该事件过程的作用是Private Sub T

题目

参考答案和解析

相似问题和答案

相关内容