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

Private Sub Cmd2_Click() fmax = 0

For i = 1 To 20

' For j = 1 To ? ***** i-1 ***** If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j

' If b(i) > ? Then fmax = b(i) ***** fmax ***** Next i

For i = 1 To 20

' If b(i) = ? Then ***** fmax ***** Text2.Text = Text2.Text + Str(a(i)) + Space(2) End If Next i

Text3.Text = fmax End Sub

Private Sub Cmd3_Click()

' ? ***** End ***** End Sub

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

（1）在名称为Form1，标题为“框架”的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有二个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”。

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

（2）考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2

Line1 600 1200 1600 300 Line2 1600 300 1600 1200 Line3 600 1200 2600 1200

要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。

请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 *****第18套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

1）单击‘读数据’按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；

2）单击‘计算’按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：153＝1^3+5^3+3^3，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及‘读数据’按钮的Click事件过程，请为‘计算’按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 Dim a(100) As Integer Private Sub Command1_Click()

Dim k As Integer

Open App.Path & \ For k = 1 To 100 Input #1, a(k) Next k Close #1 End Sub

Private Sub Command2_Click() '*****考生应完成的程序***** Dim k ,c1, c2, c3, avg, num as integer Avg=0 Num=0 For k=1 to 100 C1=int(a(k)/100) C2=int((a(k)-c1*100)/10) C3=a(k) mod 10

If a(k)=c1^3+c2^3+c3^3 then Avg=avg+a(k) End if Next k

Avg=int(avg / num) Text1.text=avg ***** End Sub *****

Private Sub Form_Unload(Cancel As Integer) Open App.Path & \ Print #1, Text1.Text Close #1 End Sub

（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击‘输入’按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击‘计算’按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 Dim s As Integer

Private Sub Command1_Click()

s = Val(InputBox(\输入里程数（单位：公里）\End Sub

Private Sub Command2_Click() If s > 0 Then

'Select Case ? ***** s ***** Case Is <= 4

'? ***** f=10 ***** Case Is <= 15

'f = 10 + ? ***** (s-4)*1.2 ***** 'Case ?

'f = 10 + ? + (s - 15) * 1.8 ***** 13.2 ***** End Select Text1.Text = f Else

MsgBox \请单击“输入”按钮输入里程数！\ End If

End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画二个名称分别为Text1和Text2，初始值为空的文本框，如图所示。程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中（此过程已给出）；

2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内。

“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。

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

Private Sub Command1_Click()

Open App.Path & \ s = Input(LOF(1), #1) Close #1 End Sub

Private Sub Command2_Click() ' ***** 考生编写的程序 ***** Dim n(26) ,i, k as integer For i=1 to 26 n(i)=0 Next i

For i=1 to len(s)

K=asc(lcase(mid(s,i,1)))-asc(“a”)+1 If k>0 and k<=26 then \\ n(k)=n(k)+1 End if Next i K=1 For i=2 to 26 If n(i)>n(k) then K=i End if Next i

Text1.text=chr((asc(“a”)+k-1) Text2.text=n(k) ***** End Sub *****

Private Sub Form_Unload(Cancel As Integer) Open App.Path & \ Print #1, Text1.Text, Text2.Text Close #1 End Sub

*****第19套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 Private Sub Form_Click()

' For i = 1 To ? ***** 5 ***** For j = 1 To 6 - i Print \； Next j

' For j = 1 To ? ***** 2*i-1 ***** Print \； Next j Print Next i

For i = 1 To 4

' For j = 1 To ? ***** i+1 ***** Print \； Next j

' For j = 1 To ? ***** (9-2*i) ***** Print \； Next j Print Next i End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击\开始\按钮，圆可以横向或纵同运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击\停止\按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。

已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 Dim d As Integer

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click()

' ？ = False ***** Timer1.Enabled ***** End Sub

Private Sub Form_Load() d = 1 End Sub

Private Sub Timer1_Timer() If Option1 Then

' Shape2.Top = ? + d * 50 ***** Shape2.Top *****

' If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then ***** Top ***** d = - d End If

ElseIf Option2 Then

' Shape2.Left = ? + d * 50 ***** Shape2.Left *****

If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.Width Then d = - d End If End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp。程序运行时，单击\装入数据\按钮，则从考生文件夹下的in5.txt文件中读

入所有城市名称和距离，城市名称按顺序添加到列表框List1中，距离放到数组a中；当选中列表框中的一个城市时，它的距离就在Text1中显示，如图所示；此时，单击\计算运费\按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在Text2中显示。

每吨运费的计算方法是：距离?折扣?单价。 其中，单价为0.3。

折扣为 距离<500 折扣为1 折扣为0.98

500?距离<1000

1000?距离<1500 1500?距离<2000 2000?距离

折扣为0.95 折扣为0.92 折扣为0.9

单击\保存\按钮，则把距离和每吨运费存到文件out5.txt中。 已经给出了所有控件和部分程序，要求：

①去掉程序中的注释符，把程序中的?改为正确的内容； ②编写\计算运费\按钮的Click事件过程。 ③编写列表框的Click事件过程；

注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用\保存\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

Dim a(10) As Integer, n As Integer Private Sub Command1_Click()

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

' n = n + ? ***** 1 ***** Input #1, ch$, a(n)

' List1.AddItem ? ***** ch ***** Wend Close #1 End Sub

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

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