在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form. Click()
Open "d:\test\smtext1.txt" For Input As 1
Do While Not
Line Input 1,aspects
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close 1
Open "d:\test\smtext2.txt" For Output As 1
Print 1, ______
Close 1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。
第1题:
在名称为Forml的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private SUb Form_CnCk()
Open"d:\tes\smtext1.txt"For Input AS 1
Do While Not EOF(1)
Line Iput 1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
第2题:
在名为Form1的窗体上绘制一个文本框(名称为Text1,Text属性为“京”,Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下属性:
Min 10
Max 100
LargeChange 5
SmallChange 2
编写适当的事件过程,使程序运行后,若移动滚动条上的滚动框,则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。

注意:
程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise90.vbp,窗体文件名为execise90.frm。

第3题:
在名为Form1的窗体上绘制一个水平滚动条,其名称为HS1,设置滚动框Min属性为 1000,Max属性为2000,LargeChange属性为100,SmailChange属性为2;然后再绘制一个文本框,其名称为Text1,初始内容为空白。编写适当的事件过程,使程序运行后,移动滚动框,则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。

注意:
不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为execise98.vbp,窗体文件名为execise98.frm。

第4题:
在名为Form1的窗体上绘制一个文本框,其名称为Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能:
(1)在文本框中可以显示多行文本;
(2)在文本框中显示垂直滚动条。
(3)文本框中显示的初始信息为“计算机等级考试”。
(4)文本框中显示的字体为三号规则黑体。
(5)窗体的标题为“设置文本框属性”。
完成设置后的窗体如下图所示。

注意:
不编写任何代码:文件必须存放在考生文件夹中,工程文件名为execise71.vbp,窗体文件名为execise71.frm。

第5题:
在名为Form1的窗体上绘制一个标签,名为Lab1,标签上显示“请输入密码”;在标签的右边绘制一个文本框,名为Text1,其宽、高分别为1500和300。设置适当的属性使得在输入密码时,文本框中显示“*”字符,此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。

注意:
以上设置都只能在属性窗口中进行设置;文件必须存放在考生文件夹中,工程文件名为execise89.vbp,窗体文件名为execise89.frm。
