在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。其刻度值的范围是1000—2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文木框的宽度。运行时的窗体如下图所示。程序中不能使用任何变量，事件过程只能写一条语句。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，
查看答案
相关试题
换一换
在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能．完成设置后的窗体如下图所示。要求：不编写任何代码。
答案
在考生文件夹下完成如下基本操作： 1．创建名称为Form1的窗体，在该窗体上画一个文本框，名称为Text1，文本框中初始内容为Visual Basic。在文本框的右边画一个垂直滚动条，名称为VScroll1。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后，
答案
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
A.假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是 B.单击鼠标 C.双击文本框 D.鼠标滑过文本框 E.按下键盘上的某个键
答案
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然，如果单击命令按钮，则在文本框中显示的是
答案
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（) 5Open "d:estsmtext1.txt" For Input As 1Do While Not _________Line Input 1, aspect$whole$ = whole$ + as
答案
在窗体上画一个文本框，名称为Text1，然后编写如下程序：程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（）
A.与原字符串相同 B.与原字符串中字符顺序相同，但所有字母均转换为大写 C.为原字符串的逆序字符串，且所有字母转换为大写 D.为原字符串的逆序字符串
答案
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click（) Open“d：estsmText1.txt"For lnput As1 Do While Not 【14】 Line lnput1，aspect＄whole＄=wholes+aspect＄+Chr＄（1
答案
在名称为Form1的窗体上画一个文本框，其名称为Text1， 然后通过属性窗口设置窗体和文本框的属性，实现如下功能：（a)在文本框中可以显示多行文本；（b)在文本框中显示垂直滚动条；（c)文本框中显示的初始信息为“全国计算机等级考试”；（d)文本框中显示的字体为三号、规则、黑体；（e)窗体的标题为“设置文本属性”。 完成设置后的窗体如下图所示。 要求：不编写任何代码。
答案
在窗体上画一个文本框，然后编写如下事件过程：
A.123 B.456 C.Text D.479 E.123456
答案
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ______。
A.Private Sub Text1_KeyPress(KeyAscii As IntegeIfKeyAscii＜65 Or KeyAscii＞90 Then MsgBox“请输入大写字母” KeyAscii=0End If End Sub B.Private Sub Text1_KeyDown(KeyCode As Integer，Shift As IntegeIf KeyCode＜65 Or KeyCode＞90 Then MsgBox“请输入大写字母” KeyCode=0End If End Sub C.Private Sub Text1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Singl， If Asc(Text1.Tex＜65 Or Asc(Text1.Tex＞90 Then MsgBox“请输入大写字母” End If End Sub D.Private Sub Text1_Change()If Asc(Text1.Tex＞64 And Asc(Text1.Tex＜91 Then MsgBox“请输入大写字母”End If End Sub
答案
热门试题
在窗体上画一个名称为Text1,的文本框和一个名称为Command1的命令按钮，然后编写以下程序代码：运行程序，单击Command1，则在文本框Text1中显示的结果为（）
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空（）。
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是
在窗体上画一个名称为TxtA的文本框,然后编写如下事件过程:PrivateS够触发KeyPress事件的操作是
设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：程序运行后单击命令按钮，文本框中显示的是（）
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，再编写如下程序：程序运行后在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是（）
在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。
窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：程序运行后，如果从键盘上输入16，则在文本框中显示的内容是（）
在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。
在窗体上画一个名称为Text1的文本框，然后编写如下事件过程：PrivatSuForm_Load（）。程序运行后，如果按Shift+F2键，则文本框中的内容是（）
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。
设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如 下的事件过程：程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和 Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。Private Sub Command1_ Click（) 【14】 Form1 Form2. 【15】 End Sub
假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2。启动窗体为 Form1，在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，在横线处将程序补充完整。 Private SubCommand1_Click（) Unload Form1 Form2． 【7】 End Sub
在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form Click（)Open"d:estsmText1.txt"For Input As 1Do While Not（）Line Input 1,aspect$whole$=whole$+aspect$+C
在窗体上画一个文本框(其名称为Textl)和一个标签(其名称为Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是【 】
在窗体上画一个名称为Combo1的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如图运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下：程序中横线处应该填写的是（）
在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是 ( ).
工程中有Form1、Form2两个窗体。Form1窗体外观如下图左图所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径)，然后单击命令按钮“计算并显示”（其名称为Command1)，则显示Form2窗体，且根据输入的圆半径计算圆的面积，并在Form2的窗体上显示出来，如下图右图所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据”。请填空。
在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress（keyascii asinteger）EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）
使用微信扫一扫登录
