下列程序实现的功能是:在窗体上单击时,将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form. Click()
Dim Ch As String * 1
Open "c:\a1.txt" For Input As 10
Do While【 】
Ch= Input(1, 10)
If 【 】Then
Print Ch;
End If
Loop
【 】
End Sub
第1题:
在考生文件夹中有一个工程文件execise63.vbp及窗体文件execise63.frm。在名为Form1上有一个名称为Cmd1,标题为Hide的命令按钮。在Form2上有一个名称为Cmd2,标题为Display的命令按钮。它的功能是在运行时只显示名为Form2的窗体,单击Form2上的 Display按钮,则显示名为Form1的窗体;单击Form1上的Hide按钮,则Foma1的窗体消失。这个程序不完整。
要求:
(1)把Form2设为启动窗体;把Form1上按钮的标题改为Hide,把Form2上按钮的标题改为Display。
(2)去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后把修改后的文件存盘。
(3)工程文件和窗体文件仍按原名保存。
正确程序运行后的界面如图所示。


第2题:
在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则在窗体上显示ViSBa1 Basic;如果单击窗体,则命令按钮消失。程序运行情况如下图所示。

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

第3题:
设计应用程序,要求通过InputBox()函数输入关键值key,在一维数组中b=(1, 3, 5, 7, 9, 2, 4)中查找此关键值key,当单击窗体时,在窗体上输出数组b和查找结果。 要求:查找用子过程实现。 保存工程和窗体,窗体文件名为:昵称-8-2.frm;工程名为:昵称-8-2.vbp。将工程文件和窗体文件压缩成:昵称-8-2.rar,以附件形式提交。
第4题:
在考生文件夹中有一个工程文件execise45.vbp和窗体文件execise45.frm。它的功能是在运行时只显示名为Form2的窗体,单击Form2上的“上线”命令按钮,则显示名为Form1的窗体;单击Form1上的“隐身”命令按钮,则Form1的窗体消失。这个程序并不完整,要求:
(1)把Form2设为启动窗体;把Form1上按钮的标题改为“隐身”,把Form2上按钮的标题改为“上线”。
(2)去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后把修改后的文件存盘。
(3)工程文件和窗体文件仍按原名保存。
正确程序运行后的界面如卜图所示。


第5题:
以下叙述中正确的是( )。
A.窗体及窗体上所有控件的事件过程代码都保存在窗体文件中
B.在工程中只有启动窗体可以建立菜单
C.窗体名称必须与窗体文件的名称相同
D.程序一定是从某个窗体开始执行的