在窗体上画两个名称分别为Text1、Text2的文本框,一个名称为Label1标签,窗体外观如图a所示,要求当改变任一个文本框的内容,就会将该文本框的内容显示在标签中,如图b所示。实现上述功能的程序如下:<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/3ad4c446cfe70672eb554d750c49f1c4.jpg' />Private Sub Text1_Change() Call ShowText(Text1) End Sub Private Sub Text2_Change() Call ShowText(Text2) End Sub Private Sub ShowText(T As TextBox) Labell.Caption="文本框中的内容是:"&T.Text
相似题目
-
在窗体(Name属性为Formal)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: https://assets.asklib.com/images/image2/2017110811221976005.jpg 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为()
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 DoWhilex<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是()
-
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下的事件过程: https://assets.asklib.com/images/image2/2017110811322251127.jpg 程序执行后,单击命令按钮,在两个文本框中显示的值分别为()
-
在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后,如果在文本框Text1中输入10,然后单击命令按扭,则在Text2中显示的内容是________。
-
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
-
在窗体上有两个文本框控件,名称分别为Text1和Text2,以下程序实现的功能是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示,下划线处应填()。
-
(16 )在窗体上画两个单选按钮(名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ) 、 1 个复选框(名称为 check1, 标题为 “ 粗体 ” )和 1 个文本框(名称为 text1,text 属性为 “ 改变文字字体 ” ) ,窗体外观如图所示 。 程序运行后 , 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 , 则以下能够实现上述操作的语句序列是
-
窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是。
-
(28 ) 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 , 要求文本框 Text1 中输入的数据小于 500 , 文本
-
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Form1的窗体画两个Label控件,名称分别为Label1和Label2,其中Label1中显示“总人数”,Label2中显示“总分”,添加两个名称分别为Text1和Text2的文本框,再画两个命令按钮,名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”,数据文件in5.txt存放成绩。
-
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ______。
-
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2;再绘制两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为LeR和Right,如下图所示。
-
在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:
-
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性
-
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击清除按钮,
-
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后,单击命令按钮,两个文本框中显示的内容分别为 (8) 和 (9) 。
-
在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(Key
-
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
-
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程: 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=T
-
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后,单击命令按钮,两个文本框(Text1和Text2)内容分别为 (6) 和 (7) 。
-
在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10,Min属性为0),然后画两个标题分别为“慢”和“快”的标签。程序运行后,移动滚动块,如果滚动块位于滚动条的正中间位置,则在文本框中显示“适中”;如果滚动块位于滚动条的正中间位置的左侧,则在文本框中显示“慢”;如果滚动块位于滚动条的正中间位置的右侧,则在文本框中显示“快”,如下图所示。请填空。 Priva
-
新建一个工程,在窗体中创建上下两个文本框,分别为Textl和Text2。要求实现的功能是:在Text1中输入字符串,Text2中显示全部转换为大写字母的相应字符串。程序运行情况如图8所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。
-
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (
-
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,如图5所示,然后编写如下程序: Function Fun(x As Integer, ByVal y As Integer) As Integer x=x+y If x<0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Cli
推荐题目
- 痤疮与下列哪种激素产生增加有关()
- CD机光头中的光敏二极管如图排列,循迹信号为()
- 客人账单
- 自助设备维护维修时,未经()批准,设备管理员不得允许维护商维护人员将U盘、笔记本电脑等任何外部设备接入我行自助设备。
- 跨国公司的特征在于()
- 主轴的受力形式主要有()
- 中国中古政治制度有秦汉与隋唐两大典型,其组织与运用截然不同,然秦汉型如何—变为隋唐型,则由魏晋南北朝三百数十年间政治社会情势之积渐演变有以致之,非出某—人物之特意革创者。故魏晋南北朝时代之制度,其本身虽不成—典型,然欲观秦汉制度如何没落,隋唐制度如何新生。则必当于此—纷乱时代求之。 这段文字意在说明:
- 常用的阻火设施有()等
- 建国后三农问题不能根本解决的原因不包括:
- 要求:根据上述资料,从下列问题的备选答案中选出正确答案。“资料4”中,审计人员在随机抽取20笔赊销业务时,可以采用的方法有()