VB操作题库-星级全套文字版(4)

WriteData \End Sub

第07套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为L1，标题为\业余爱好\的标签，再添加一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为\体育\、\音乐\、\美术\，请设置复选框的属性，使其初始状态如下表所示：

体育 选中 可用 音乐 未选中 不可用 美术 未选中 可用

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名保存为sjt1.frm。 控件 属性 设置值 控件 属性 设置值 标签 Name L1 复选框2 Caption 音乐 Index 1 Enabled False Caption 复选框3 Caption 美术 Index 2 复选框1 Caption Index 0 Value 1 业余爱好 体育 （2）在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为\操作\，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为\显示\、\隐藏\，请编写适当的事件过程，使得在程序运行时，单击\隐藏\菜单项，则文本框消失；单击\显示\菜单项，则文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Hide_Click() Text1.Visible = False End Sub *****第07套 简单应用题★★

Private Sub Show_Click() Text1.Visible = True End Sub （1）在名称为Form1的窗体上添加一个名称为L1的标签，标题为\口令\；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为\显示口令\、\隐藏口令\、\复制口令\，在程序开始运行时，向Text1中输入的所有字符，都显示为\，单击\显示口令\按钮后，在Text1中显示所有字符，再单击\隐藏口令\后，Text1中的字符不变，但显示的都是\，单击\复制口令\后，把Text1中的实际内容复制到Text2中，如图所示。

要求：

①在属性窗口中，将窗体的标题改为\口令窗口\。

②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

存盘时，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。 ' ***** 需考生编写的程序 ***** Private Sub C1_Click()

Text1.PasswordChar = \End Sub

Private Sub C2_Click()

Text1.PasswordChar = \End Sub

Private Sub C3_Click()

Text2.Text = Text1.Text End Sub

（2）在名称为Form1的窗体上添加一个名称为P1的图片框，并利用属性窗口把考生文件夹中的图标文件Open.ico放到图片框中；再添加一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为\打开文件\，文件类型为\文档\，初始文件夹为C盘根文件夹。再编写适当的事件过程，使得程序在运行时，单击P1图片框，可以打开上述对话框。程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt4.vbp，窗体文件名保存为sjt4.frm。程序中不得使用任何变量。 ' ***** 需考生编写的程序 *****

Private Sub P1_Click() CD1.ShowOpen End Sub

*****第07套 综合应用题★★

（1）在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮，标题分别是\读数据\和\统计\，请添加一个名称为Label1、标题为\回文的个数为\的标签和一个名称为Text1，初始内容为空的文本框，如图所示。

程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in5.dat文件的内容读到变量s中； ②单击\统计\按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串，如\

读数据\和\统计\按钮的Click事件过程已经给出，请完善foundhuiwen过程的功能，实现上述程序功能。

注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Function foundhuiwen(p As String) ' ***** 需考生编写的程序 *****

If StrReverse(p) = p Then foundhuiwen = True End Function

*****第08套 基本操作题★★

（1）在名称为Form1标题为“选题”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框在选中状态下，运行时的窗体如图所示。请画控件并设置相应属性。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1~100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第08套 简单应用题★★

（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 M1_click( )

Text1.fontBold=true M2_click( )

Text1.fontItalic=true M3_click( )

Text1.fontUnderline=true Text1_MouseDown( )

If button=2 then Popupmenu format

（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；

2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）； 3）去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click() Dim k As Integer

' Form2. ? ***** show ***** Form2.Print Form1.L1.Caption; Form1.Text1 …… 此处隐藏：4988字，全部文档内容请下载后查看。喜欢就下载吧 ……