VB中x=Val（text1.text）是把text1.text的值转换成数值，并赋值给x。
VB中x=Val（text1.text）是把text1.text的值转换成数值，并赋值给x。
相关考题：
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序：Private Sub Form_Load（）Text1.Text=""Text2.Text=""Text3.Text=""End SubPrivate Sub Command1_Click（）x=Val（Text1.Text）y=Val（Text2.Text）Text3.Text=f（x，y）End SubFunction f（ByVal x As Integer,ByVal y As Integer）Do While y0tmp=x Mod yx=yy=tmpLoopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。A．4B．6C．8D．12
有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）x=Val（Text1.Text）If 【6】 ThenPrint xElseText1.Text=""【7】End IfEnd Sub
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。A．Private Sub Text1_Change() Labell.Caption=Text1.Text End SubB．Private Sub Text1_Click() Labell.Caption=Text1.Text End SubC．Private Sub Labell_Change() Labell.Caption=Text1.Text End SubD．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。A．4B．6C．8D．12
有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If [9] ThenPrintXElseText1.Text=""[10]End IfEnd Sub
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。A．Private Sub Text1_Change() Label1．Caption=Text1．Text End SubB．Private Sub Label 1_Change() Label1．Caption=Text1．Text End SubC．Private Sub Text1_Click() Label1．Caption=Text1．text End SubD．Private Sub Label1_Click( ) Label1．Caption=Text1．Text End sot
（7）下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（ ）。A.Private Sub save Click（ ） Text1．Text=file．save．Caption End SubB.Private Sub save Click（ ） Text1．Text=save．Caption End SubC.Private Sub file Click（ ） Text1．Text=file．save．Caption End SubD.Private Sub file Click（ ） Text1．Text=save．Caption End Sub
窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End SubA．12B．34C．46D．1234
3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End SA．执行y=x*xB．执行y=-xC．先执行y=x*x，再执行y=-xD．程序出错
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。A．Private Sub Text1_Change() Label1.Caption=Text1.Text End SubB．Private Sub Text1_Click() Label1.Caption=Text1.Text End SubC．Private Sub Label1_Change() Label1.Caption=Text1.Text End SubD．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.TextA．4B．6C．8D．12
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是? A． Private Sub Check1_click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " "?'双引号中是空格 End If Next k End Sub B． Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " " '双引号中是空格 End If Next k End Sub C． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(Index).Value = 1 Then Text1.Text = Text1.Text Check1(Index).Caption " " '双引号中是空格 End If Next k End Sub D． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " " '双引号中是空格 Exit For End If Next k End Sub?
（ 24 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 有一个由 3 个单选按钮构成的控件数组 Option1 ，如图 2 所示 。 程序运行后 ， 如果单击某个单选按钮 ， 则执行 Text1 中的数值与该单选按钮所对应的运算（乘以 1 、 10 或 100 ），并将结果显示在 Text2 中，如图 3 所示。为了实现以上功能，在程序中的问号（ ? ）处应填入的内容是（ ）。Private Sub Option1_Click(Index As Integer)If Text1.Text “ “ ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd SubA ） IndexB ） Option1.IndexC ） Option1(Index)D ） Option1(Index).Value
（ 22 ） 窗体上有文本框 Text1 和一个菜单 ， 菜单标题 、 名称如表 ， 结构见图 。 要求程序执行时单击 “ 保存 ”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是：A ） Private Sub save_Click()Sub save_Click()Text1.Text=file.save.Captionave.CaptionEnd SubB ） PrivateText1.Text=sEnd SubC ） Private Sub file_Click()Text1.Text=file.save.CaptionEnd SubD ） Private Sub file_Click()Text1.Text=save.CaptionEnd Sub
在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是A．Private Sub Form. Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Text1．Text=Chr(KeyCode-4) End SubB．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Text1．Text=Text1．Text+Chr(KeyCode-4) End SubC．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Integer) Text1．Text=Text1．Text+Chr(KeyCOde-4) End SubD．Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Integer) Text1．Text=Chr(KeyCode-4) End Sub
要从文本框Text1中输出文字“欢迎进入代码的世界！”，正确的代码是（）。A、Textbox.text="欢迎进入代码的世界！"B、Text1.text="欢迎进入代码的世界！"C、Text1.Label="欢迎进入代码的世界！"D、Val（Text1.text）="欢迎进入代码的世界！"
有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。A、定义一个数据处理方法B、定义一个数据输入方法C、定义一个事件过程D、定义一个数据类型
要在文本框Text1中显示“欢迎使用VB”，以下（）语句是正确的。A、Text1.text=欢迎使用VBB、Text1=”欢迎使用VB”C、Text1.text=’欢迎使用VB’D、Text1.caption=”欢迎使用VB”
单选题有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。A定义一个数据处理方法B定义一个数据输入方法C定义一个事件过程D定义一个数据类型
单选题变量S为字符型，若在文本框Text1、Text2中分别输入数字23和35，再执行以下语句，S的值为“58”的是（）AS=Text1.TextText2.TextBS=Text1.Text+Text2.TextCS=Val（Text1.Text）+Text2.TextDS=Val（Text1.Text）Text2.Text
判断题VB中x=Val（text1.text）是把text1.text的值转换成数值，并赋值给x。A对B错