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

程序中的注释符，把程序中的?改为正确的内容。

提示：程序中的符号常量blue_color表示蓝色的值，red_color表示红色的值。

注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 Dim left0 As Integer

Const blue color =&HFF0000, red color = &HFF& Private Sub Command1_Click()

' Timer1.Enabled = ? ***** True ***** End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load() left0 = Shape1.Left End Sub

Private Sub Timer1_Timer()

If Shape1.FillColor = blue color Then If Shape1.Left > 0 Then

Shape1.Height = Shape1.Height + 100 Shape1.Width = Shape1.Width + 100 Shape1.Left = Shape1.Left - 50 Shape1.Top = Shape1.Top - 50 Else

' Shape1.FillColor = ? ***** red_color ***** End If End If

If Shape1.FillColor = red color Then If Shape1.Left < left0 Then

Shape1.Height = Shape1.Height - 100 Shape1.Width = Shape1.Width - 100

' ？ = Shape1.Left + 50 ***** Shape1.Left ***** ' ？ = Shape1.Top + 50 ***** Shape1.top ***** Else

' Shape1.FillColor = ? ***** blue_color ***** End If End If End Sub

*****第12套 综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，包含了所有控件和部分程序。当程序运行时，单击\打开文件\按钮，则弹出\打开\对话框，默认目录为考生目录，默认文件类型为\文本文件\。选中in5.txt文件(如图1所示)，单击\打开\按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击\修改内容\按钮，则将Text1中的大写字母\、\、\改为小写，把小写字母\、\、\改为大写；单击\保存文件\按钮，则弹出\另存为\对话框，默认文件类型为\文本文件\，默认文件夹为考生文件夹，默认文件为\如图2所示)，单击\保存\按钮，则将Text1中修改后的内容存到out5.txt文件中。

窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写\修改内容\按钮的Click事件过程。

注意；考生不得修改已经存在的程序。必须把Text1中修改后的内容用\保存文

件\按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。

Private Sub Command1_Click() Dim s As String

CommonDialog1.Filter = \所有文件|*.*|文本文件|*.txt\

' CommonDialog1.FilterIndex = ? ***** 2 ***** On Error GoTo openerr

CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen

' Open ? For Input As #1 ***** CommonDialog1.FileName ***** Input #1, s Close #1

' Text1.Text = ? ***** s ***** openerr： End Sub

Private Sub Command2_Click()

' ***** 考生需要编写的程序 ***** Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = \ For n = 1 To Len(s) ch = Mid(s, n, 1)

If ch = \ ch = LCase(ch) If ch = \ Then ch = UCase(ch) Text1.Text = Text1 & ch Next n End Sub

Private Sub Command3_Click()

CommonDialog1.Filter = \文本文件|*.txt|所有文件|*.*\CommonDialog1.FilterIndex = 1 On Error GoTo openerr

CommonDialog1.FileName = \CommonDialog1.InitDir = App.Path

' CommonDialog1.Action = ? ***** 2 ***** Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 openerr： End Sub

第13套 基本操作题★★

（1）在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为\字号\、\修饰\；在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为\号字\、\号字\，且标题显示在单选按钮的左边；在Frame2中添加1个名称为Check1的复选框，标题为\下划线\。程序运行后的窗体如图所示。

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

控件 属性 设置值 控件 属性 设置值 单选按钮1 Name Option1 Caption 10号字 框架1 Name Frame1 单选按钮2 Name Caption Option2 20号字 Caption 字号 框架2 Name Frame2 复选框 Name Check1 Caption 下划线 Caption 修饰 （2）在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为\选中字符数是\。程序运行时，在Text1中输入若干字符，选中部分内容后，单击\选中字符数是\按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。

要求：程序中不得使用变量，事件过程中只能写一条语句。

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

Private Sub Command1_Click() Text2 = Text1.SelLength End Sub

*****第13套 简单应用题★★

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行后，单击\读入数据\按钮，可将考生文件夹下in3.txt文件中的所有英文单词读入，并在Text1文本框中显示；单击\插入列表框\按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。

在in3.txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运

行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

Private Sub Command1_Click() Dim st$, ch$

Open App.Path & \Do While Not EOF(1)

Input #1, ch

' st= ? & ch ***** st ***** Loop Close #1 Text1 = st

End Sub

Private Sub Command2_Click() Dim st$, word$, c$ st = Text1 n = Len(st) For k = 1 To n

' ？ = Mid(st, k, 1) ***** c ***** If c <> \ word = word & c Else

List1.AddItem word

' ？ = \ ***** word ***** End If Next

List1.AddItem word End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击\开始\按钮，则每0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击\停止\按钮，则停止移动。

请完成以下工作：

①设置适当控件的适当属性，使得每0.1秒汽 …… 此处隐藏：481字，全部文档内容请下载后查看。喜欢就下载吧 ……