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

Private Sub Command2_Click()

' ***** 需要考生编写的内容 ***** b = Val(Text1)

If b >= 0 And b < 500 Then m = 0.3 * b

ElseIf b >= 500 And b < 1000 Then m = 0.3 * b * 0.98

ElseIf b >= 1000 And b < 1500 Then m = 0.3 * b * 0.95

ElseIf b >= 1500 And b < 2000 Then m = 0.3 * b * 0.92 ElseIf b >= 2000 Then m = 0.3 * b * 0.9 End If

Text2 = Int(m) End Sub

Private Sub Command3_Click()

Open App.Path & \Print #1, List1.Text, Text1, Text2 Close #1 End Sub

Private Sub List1_Click()

' ***** 需要考生编写的内容 ***** Text1 = a(List1.ListIndex + 1) End Sub

第20套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为C1、标题为\改变颜色\的命令按钮，窗体标题为\改变窗体背景色\。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

Private Sub C1_Click() Form1.BackColor = &HFF& End Sub

（2）在名称为Form1的窗体上添加一个名称Shape1的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件

名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 控件 属性 设置值 形状控件 Name Shape1 Shape 3 列表框 Name List1 List 1 2 3 4 5 Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub *****第20套 简单应用题★★

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数、并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )

Dim y As Integer For i=0 to 2

‘ If ?= True Then ***** Option1(i).Value ***** ‘ y=val(Option1(i).?) ***** Caption ***** End If Next Call calc(y) End Sub

Private Sub calc(y As Integer)

ClearList i=1

x=val(Text1.Text) + 1

‘ Do while i<= ? ***** 5 ***** If x mod y=0 then

‘ List1.AddItem ? ***** x ***** i=i+1 End If x=x+1 Loop End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )

Timer1.Enabled = True End Sub

Private Sub Command2_Click( )

Timer1.Enabled = False End Sub

Private Sub Form_Load( )

‘ Timer1.Interval = ? ***** 500 ***** End Sub

Private Sub Timer1_Timer( )

Picture1.Top = Picture1.Top + 200

‘ Vscroll1.? = Picture1.Top ***** Value ***** If Vscroll1.Value + 200 >= Form1.Height – 200 Then

‘ Picture1.Top = ? ***** 0 ***** End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并统计不及格、60~69、70~79、80~89及90~100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。

注意： 不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 Private sub command2_click( )

Open app.path & ―\\out5.txt‖ for output as #1 Print #1, text1.text Print #1, text2.text Print #1, text3.text Print #1, text4.text Print #1, text5.text Print #1, text6.text Close #1

Msgbox ―保存成功！‖ End Sub

Private Sub Form_Load( )

Open app.path & ―\\in5.txt‖ for input as #1 N=0

Do while not eof(1)

Input #1,x N=n+1 Arr(n)=x Loop Close #1 End sub

Private sub command1_click( )

?=========‖以下考生编写程序开始‖=========

For i = 1 To n

If arr(i) < 60 Then

Text2 = Val(Text2) + 1

ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1

ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1

ElseIf arr(i) >= 80 And arr(i) < 90 Then

Text5 = Val(Text5) + 1

ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If

Text1 = Val(Text1) + 1 Next

?=========‖考生编写程序结束‖============= End sub

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

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为\统计\的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组x中显示。如图所示。

在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。

Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim