在名称为Form1的窗体上画一个文本框,名称为Text1,其宽度为1000;再画一个滚动条,名称为HS1。其刻度值的范围是1000—2000。请编写滚动条的Change事件过程,程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文木框的宽度。运行时的窗体如下图所示。程序中不能使用任何变量,事件过程只能写一条语句。*注意:存盘时必须存放在考生文件夹下,工程文件名为sjt12.vbp,
相似题目
-
在窗体上画一个名称为TxtA的文本框,然后编写如下事件过程:Private Sub TxtA_KeyPress(Keyascii as integer)…End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是( )。
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后,单击命令按钮,在文本框中显示的值是______。(5.0分)
-
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
-
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名数为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示。请填空。
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Priva
-
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为:
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
-
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对
-
创建名称为Form1,标题名为“请输入密码”的窗体。在窗体上画一个标签,名称为 Label1,标题为“请输入您的密码”。在标签的下方画一个文本框,名称为“密码框”,其高度和宽度分别为2000和500。要求在输入密码时,文本框中显示“*”字符。以上这些设置必须在设计过程中进行,运行时的窗体如图1所示。程序中不得使用任何变量。
-
在考生文件夹下有一个工程文件execise3.vbp及窗体文件execise3.frm。在名称为Form1的窗体上已有3个文本框Text1、Text2和Text3,以及程序。请完成以下工作:
-
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
-
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性
-
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivatSuForm_Load()。程序运行后,如果按Shift+F2键,则文本框中的内容是()
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在 【6】 处填入适当的内容,将程序补充完整。 Private Sub Form_Load()Command1.Enabled=False End Sub Private Sub Text1 【6】 ()Com
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open"c:est.dat"For ______ As 1 For i=1 to Len(Text1.text)
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open"c:est.dat"For Output As 1 For I=1 to Len(Text1.text
-
创建名称为Form1的窗体,标题为“欢迎窗口”,并在窗体上画一个命令按钮,名称为“我要进入”。请编写一个事件过程,实现运行程序时,单击命令按钮后按钮消失,窗体上显示“欢迎您的光临!”。运行后窗体如图2所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc2.vbp,窗体文件名为ylc2.frm。
-
在窗体上画一个名称为Text的文本框,编写以下代码PrivateSubText1KeyPress(KeyAscllAsInteger)IfKeyAscil65OrKeyAscii>90ThenmsgBox请输入大写字母KeyAsc=0EndifEndsub以下能说明该事件过程正确是()。
-
在窗体上画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
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open "C:est.dat" For______As 1 For i=1 to Len(Text1.text)
-
在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10,Min属性为0),然后画两个标题分别为“慢”和“快”的标签。程序运行后,移动滚动块,如果滚动块位于滚动条的正中间位置,则在文本框中显示“适中”;如果滚动块位于滚动条的正中间位置的左侧,则在文本框中显示“慢”;如果滚动块位于滚动条的正中间位置的右侧,则在文本框中显示“快”,如下图所示。请填空。 Priva
推荐题目
- 某药的t1/2为4小时,每隔1个t1/2给药一次,达到稳态血药浓度的时间是()
- 采煤机()运行时,进行功率调节。
- 本地管道能力指标组包括()。
- 工单中哪些字段是由系统自动生成的,不需要填写()。
- 2006年,美国的著名趋势大师、《纽约时报》专栏作家托马斯·弗里德曼在其新书《世界是平的:2l世纪简史》中告诉我们:“世界10岁了„„我们都同在一条船上。”作者之所以说“世界10岁了”是因为()
- 通信管道施工复测中,直线管道,自人(手)孔中心3~5m处35开始,沿管线每隔()宜设一桩(板).
- 根据我国法律的相关规定,下列关于外商投资企业投资项目的表述中,正确的是()。
- 铜合金可以分为()和()两大类。
- 下列部件不是移动式发电机及灯组组成的是()。
- 液相色谱法分析废水中阿特拉津时,阿特拉津标准贮备液应在4℃冰箱中保存。