以下程序执行后,当在文本框中输入 ABCD ” 4 个字符时,窗体上显示 __________ 。 Private sub text1_change() Print text1; End Sub
在窗体上有两个文本框控件,名称分别为Text1和Text2,以下程序实现的功能是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示,下划线处应填()。
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
(16 )在窗体上画两个单选按钮(名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ) 、 1 个复选框(名称为 check1, 标题为 “ 粗体 ” )和 1 个文本框(名称为 text1,text 属性为 “ 改变文字字体 ” ) ,窗体外观如图所示 。 程序运行后 , 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 , 则以下能够实现上述操作的语句序列是
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框,事件代码如下: Private Sub Command1_Click Dim a(10)As Integer,b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体,单击命令按钮,文本框Text1中显示的内容是()。
窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是。
(28 ) 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 , 要求文本框 Text1 中输入的数据小于 500 , 文本
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对
在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框,有两个命令按钮(名称分别是Cmd1和Cmd2,标题分别是Read和Save)。要求程序运行后,单击Read按钮,将文本文件in99.txt中的所有数字读到数组arr中,并在文本框内显示出来。随后Read按钮变为无效;然后单击Save按钮,
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2;再绘制两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为LeR和Right,如下图所示。
在考生文件夹下有一个工程文件execise3.vbp及窗体文件execise3.frm。在名称为Form1的窗体上已有3个文本框Text1、Text2和Text3,以及程序。请完成以下工作:
设工程中有2个窗体:Form1、Form2、Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输人口令并按回车键(回车键的
在窗体上画l个命令按钮和l个文本框,其名称为Command1和Text1,再编写如下程序: Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click() Dim m As String,i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS,i,1) Next Text1.Text=UCase(m) End Sub 程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的就是()。
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击清除按钮,
在考生文件夹中有工程文件execise23.vbp及窗体文件execise23.frm。在名为Form1、标题为“求和程序”的窗体上有3个Labe1控件、2个Text控件和3个命令按钮(如下图所示)。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。
在窗体中有一个文本框Text1,编写事件代码如下:PrivatesubForm_Click()X=val(Inputbox("输入x的值"))Y=1IfX<>0ThenY=2Text1.Value=YEndSub打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是()
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: 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
在窗体上画两个文本框,然后编写程序。程序运行后,如果在第一个文本框中输入A和B、C、D或a、b、c、d,则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integ
在窗体上画1个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open "d:empdat.txt" For Output As 1Text1.Text=" "End SubPrivate Sub Text1 KeyPress(KeyAscii As Integer)If ()=13 ThenIf UCase(Tex
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text=“VB程序设计” End Sub PrivmeSubText1_Change() Picture1.Print"VB Programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是 【7】 ,而在图片框中显示的内容是 【8】 。
新建一个工程,在窗体中创建上下两个文本框,分别为Textl和Text2。要求实现的功能是:在Text1中输入字符串,Text2中显示全部转换为大写字母的相应字符串。程序运行情况如图8所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如下图所示。请填空。 Pfivale Sub Commaildl_C1iCk() Dimk As hteger Dim