2013年国家二级VB最新新题库(8)

Close #1 End Sub

Private Sub List1_Click()

' ***** 需要考生编写的内容 ***** Text1 = a(List1.ListIndex + 1) 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 a(3) As Integer s = RTrim(Text1.Text)

'n = ? (Text1.Text) ***** Len ***** For i = 1 To n

'b = ? (Mid(s, i, 1)) ***** Asc ***** 'Select Case ? ***** b ***** Case 48 To 57

a(0) = a(0) + 1 Case 65 To 90

a(1) = a(1) + 1 Case 97 To 122 a(2) = a(2) + 1 End Select Next

'For i = 0 To ? ***** 2 ***** '? = a(i) ***** x(i) ***** Next End Sub

（2）考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为\、\的命令按钮。请在List1中添加\文本框\、\标签\、\列表框\、\单选钮\等选项，如图所示。

程序的功能是：

单击\，将List1中的表项添加到List2中，同时将List1中选中的表项清空；单击\，将List2中的表项添加到List1处中，同时将List2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把?改为正确的内容，实现上述的功能。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 Private Sub remove(La As ListBox, Lb As ListBox)

' For i = 0 To ? – 1 ***** La.ListCount ***** ' Lb.AddItem ？.List(i) ***** La ***** Next

' ？.Clear ***** La ***** End Sub

Private Sub Command1_Click() Call remove(List1, List2) End Sub

Private Sub Command2_Click() Call remove(List2, List1) End Sub

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

在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序，单击\读数据\按钮，读入到文件中的数据到字符串变量中并显示在Label2标签中。单击\排序\命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。

要求：工程文件中已给出部分程序，\读数据\命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写\排序\命令按钮的事件过程中的部分程序代码。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。

Dim a(10) As Integer Public Sub Save()

Open App.Path & \Print #1, Label4.Caption Close #1 End Sub

Private Sub Command1_Click()

Open App.Path & \

' Do While Not ？ ***** EOF(1) ***** For i = 1 To 10 Input #1, a(i)

' s = s & ? ***** a(i) ***** Next i Loop Close #1

Label2.Caption = s End Sub

Private Sub Command2_Click()

' ＝＝＝＝＝以下考生编写程序开始＝＝＝＝＝＝＝＝ For i = 1 To 10 f = True

For j = 1 To 9

If a(j) > a(j + 1) Then t = a(j)

a(j) = a(j + 1) a(j + 1) = t f = False End If Next j If f Then Exit For End If Next i

' ＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ For i = 1 To 10

s = s & Str(a(i)) Next i

Label4.Caption = s Save End Sub

*****第22套 基本操作题

（1）在名称为Form1的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框，然后编写

适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB等级考试”，如图所示。 注意：

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

名为sjt1.frm。

（2）在名称为Form1的窗体上画一个名称为command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenu1；另一个是“隐藏命令按钮”，名称为subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。

注意：

程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第22套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，运行情况如图所示。程序的功能是计算如下表达式的值：

Z=(x-2)!+(x-3)!+(x-4)!+…..+(x-N)!

其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。

在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

要求：程序调试通过后，必须按照如图所示输入N＝5，x＝12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long

'tmp = ? ***** 1 ***** For i = 1 To m

'tmp =? ***** tmp*i ***** Next

'? = tmp ***** xn ***** End Function

Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer

Dim z As Long, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x - i

'z = z + ? ***** xn(t) ***** Next

Label1.Caption = z Call SaveResult End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2013年国家二级VB最新新题库(8)在线全文阅读。