单选题变量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
单选题
变量S为字符型，若在文本框Text1、Text2中分别输入数字23和35，再执行以下语句，S的值为“58”的是（）
A
S=Text1.Text&Text2.Text
B
S=Text1.Text+Text2.Text
C
S=Val（Text1.Text）+Text2.Text
D
S=Val（Text1.Text）&Text2.Text
参考解析
解析：
暂无解析
相关考题：
窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）Call CheckInput（Text1，500）End SubPrivate Sub Text2_LostFocus（）Call CheckInput（Text2，1000）End SubSub CheckInput（t As ?，x As Integer）If Val（t.Text）x ThenMsgBox"请重新输入!"End IfEnd SubA．TextB．SelTextC．ControlD．Form
（ 28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（ ? ）处应填入的内容是（ ）。Private Sub Text1_LostFocus( )Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus( )Call CheckInput(Text2,1000)End SubSub CheckInput(t As ?,x As Integer)If Val(t.Text)x ThenMsgBox" 请重新输入 !"End IfEnd SubA ） TextB ） SelTextC ） ControlD ） Form
下面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函数使用错误，事件过程不能执行
在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load（）Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）S2=s2 Chr（KeyCode）End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）S1=S1 chr（KeyAscii）End SubPrivate Sub Command1_Click（）Text1.Text=S2Text2.Text=S1S1=""S2=""End Sub程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABCB．abc 和 abcC．ABC 和 abcD．ABC 和 ABC
（ 29 ）在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2 = S2 Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1 = S1 Chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text = S2Text2.Text = S1S1 = ""S2 = ""End Sub程序运行后，在 Text1 中输入 “ abc ” ，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为A ） abc 和 ABCB ） abc 和 abcC ） ABC 和 abcD ） ABC 和 ABC
窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub CheckInput(t AS ?,x As Integer) If Val(t.Text)＞X Then MsgBox "请重新输入!" End If End SubA．TextB．SelTextC．ControlD．Form
对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraAsInteger,jAsIntegerDimStraAsString,SAsString*1S=Chr(KeyAscii)SelectCaseSCase0To9,,,.,-CaseElseKeyAscii=0EndSelectEndSubA.S取得的是输入的KeyAscii值B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入D.当KeyAscii=0时可以继续输入
在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：PrivateSubText2_LostFocus()DimiAsIntegerIfIsNumeric(Text2)ThenText3.Text=正确!!ElseText2.Text=Text2.SetFocusText3.Text=错误,再输入!!EndIfEndSub当在text2中输入字符串abcd后，点击text3，运行的结果为()A.text2的内容清除,text3中显示正确!!B.text3中显示正确!!C.光标聚焦在text2中D.text2的内容清除,text3中显示错误,再输入!!
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。A．abc和ABCB．abc和abeC．ABC和abcD．ABC和ABC
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click（ ）Dim str As String, s As String, c As Stringstr = UCase（Text1）s = ""c = "Z"While c = "A"If InStr（str, c） = 0 Thens = 【7】End Ifc = Chr$（Asc（c） 【8】 ）WendIf s "" ThenText1 = sEnd IfEnd Sub
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；Private Sub Command1_Click()S＄= InputBox ("请输入1个字符串")Text1.Text= S＄End SubPrivate Sub Text1_Change()Labell.Caption = UCase(Mid(Text1, Text2, 8))End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。 现有如下事件过程 Private Sub Text1_Change（ ） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。A.DataAB.DataBC.aDataD.aBase
新建一个工程，在窗体中创建两个文本框，其名称分别为Text1和Text2。编写一个事件过程，实现在程序运行后，若在文本框Text1中输入一个字符串。若该字符串超过15个字符后，超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc4.vbp，窗体文件名为ylc4.frm。
下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是A．E5D4C3B2A1B．ABCDE12345C．12345ABCDED．A1B2C3D4E5
在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。Private Sub Text1_ _________() TextText=Text1.Text End SubA．SetFocusB．ChangeC．GetFocusD．Click
在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2，均无初始内容。要求：(1)通过属性窗口设置适当的属性，使Text1和Text2中显示的文本的字体为“黑体”。(2)编写适当的事件过程，使得在Text1中输入每一个字符时，立即在Text2中显示 Text1中的内容，如下图所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise88.vbp，窗体文件名为execise88.frm。
在窗体上绘制两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，若在Text1中每输入一个字符，则显示输入的内容，同时在Text2中显示一个“*”。若在Text2中每输入一个字符，则显示—今“*”，如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise40.vbp，窗体文件名为execise40.frm。
下列关于变量的说法中，正确的是( )。A．在复合语句中定义的变量也是局部变量，它的生存期在本复合语句执行完毕即告结束B．在一定范围内，整型变量和字符型变量可以相互赋值，如：int a;char s='a';a=s是可以的C．全局变量的有效范围是从该变量的定义位置开始到本工程结束D．{char a;a=878*101;cout＜＜a;}，本复合语句输出的值为：88678
在窗体(NAME属性为FORM1)上画三个文本框(其NAME属性分别为TEXT1、TEXT2和TEXT3)和一个命令按钮(NAME属性为COMMAND1)，然后编写如下两个事件过程： PRIVATE SUB COMMAND1_CLICK( ) TEXT3=TEXT1+TEXT2 END SUB PRIVATE SUB FORM1_LOAD( ) TEXT1="" TEXT2="" TEXT3="" END SUB 程序运行后，在第一个文本框(TEXT1)和第二个文本框(TEXT2)中分别输入5和7，然后单击命令按钮，则文本框(TEXT3)中显示的内容为( )。A．12B．57C．75D．空值
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
变量S为字符型，若在文本框Text1、Text2中分别输入数字23和35，再执行以下语句，S的值为“58”的是（）A、S=Text1.TextText2.TextB、S=Text1.Text+Text2.TextC、S=Val（Text1.Text）+Text2.TextD、S=Val（Text1.Text）Text2.Text
以下是表单的Activate事件的代码： s=0 for n=10 to 0 step -5 s=s+n endfor this.text1.value=s 这段代码执行后，文本框Text1的值为（）A、-5B、0C、10D、15
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。AChina BeijingBChinaCBeijingDChinaB