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

变方向而向上运动；当Shape1的顶端到达Line1时，会自动改变方向而向下运动。

文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 Dim s As Integer, h As Long Private Sub Form_Load()

' Timer1.Enabled = ? ***** True ***** s = - 40 End Sub

Private Sub Timer1_Timer()

Shape1.Move Shape1.Left, Shape1.Top + s

' If Shape1.Top <= ? Then ***** Line1.Y1 ***** s = - s End If

' If Shape1.Top + ? >= Line2.Y1 Then ***** Shape1.Height ***** s = - s End If End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。其功能如下：

1)单击\读数据\按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中； 2)单击\计算\按钮，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。

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

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

If Combo1.ListIndex = 0 Then For i = 1 To 100

If a(i) Mod 2 = 0 Then s = s + a(i) n = n + 1 End If Next i

Text1.Text = s \\ n End If

If Combo1.ListIndex = 1 Then For i = 1 To 100

If a(i) Mod 2 <> 0 Then s = s + a(i) n = n + 1 End If Next i

Text1.Text = s \\ n End If

If Combo1.ListIndex = 0 Then For i = 1 To 100 s = s + a(i) Next i

Text1.Text = s \\ 100 End If

**********************************************

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

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：

32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37

程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，按5行、5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

Option Base 1

Private Sub Form_Click() Const N = 5 Const M = 5

' Dim ? ***** Mat(N,M) As Integer ***** Dim i, j, t

' Open App.Path & \ ? As #1 ***** For Input ***** For i = 1 To N

For j = 1 To M

' ？ ***** Input #1,Mat(i,j) ***** Next j Next i Close #1 Print

Print \初始矩阵为：\Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j)； Next j Print Next i

For i = 1 To N

t = Mat(i, 2)

Mat(i, 2) = Mat(i, 4)

' ? ***** Mat(i,4)=t ***** Next i Print

Print \交换第二列和第四列后的矩阵为：\

Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j)； Next j Print Next i End Sub

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

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

①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个正整数读入数组a中； ②单击\计算\按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数

236?6?所以36就是一个完全平方数)，并计算这些完全的平方，那么它就是完全平方数。如：

平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。

在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。

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

Private Sub Command2_Click() Dim sum As Long For k = 1 To 100

For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k

Text1 = Fix(sum / n) End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有1个计时器和2个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是\演示\和\退出\。请添加1个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为\程序设计\，标题字体为黑体小四号字。如图所示。程序功能如下：

①单击标题为\演示\的命令按钮时，则该按钮的标题自动变换为\暂停\，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。

②单击标题为\暂停\的命令按钮时，则该按钮的标题自动变换为\演示\，并暂停标签的滚动。

③单击\退出\按钮，则结束程序运行。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。

Private Sub Command1_Click()

' If Command1.Caption = ? Then ***** 演示 *****

' ? = True ***** Timer1.Enabled ***** Command1.Caption = \暂停\

Else

' ? = False ***** Timer1.Enabled ***** Command1.Caption = \演示\ End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Timer1_Timer()

' If ? > Form1.Width Then ***** Label1.Left+Label1.Width ***** Label1.Left = - Label1.Width Else

' Label1.Left = ? + 100 ***** Label1.Left ***** End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有3个文本框，其名称分别为Text1、Text …… 此处隐藏：3245字，全部文档内容请下载后查看。喜欢就下载吧 ……