VB程序设计期末模拟试卷

.. . .. . .

Private Sub cmdAdd_Click() lstBooks.__________ txtItem txtItem.Text = \ End Sub

Private Sub cmdDelete_Click()

lstBooks.RemoveItem _______________ End Sub

Private Sub cmdModify_Click() txtItem.Text = lstBooks.Text txtItem.SetFocus cmdAdd.Enabled = False cmdDelete.Enabled = False cmdModify.Enabled = False

cmdModify_OK.Enabled = ______________ End Sub

Private Sub cmdModify_OK_Click()

lstBooks.List(___________________) = txtItem cmdModify_OK.Enabled = False cmdAdd.Enabled = True cmdDelete.Enabled = True cmdModify.Enabled = True txtItem.Text = \

S. . . . . ..

.. . .. . .

End Sub

Private Sub Form_Load()

lstBooks.AddItem \计算机文化基础\ lstBooks.AddItem \程序设计教程\ lstBooks.AddItem \操作系统\ End Sub

6.窗体中有命令按钮Command1，当程序运行时，只要鼠标移到命令按钮上，该按钮就会随机移动到新位置，用户很难用鼠标单击到它。请补充完善以下程序： Private Sub Command1_MouseMove()

X = Abs(Rnd(1) * Form1.Width - Command1.Width) Y = Abs(Rnd(1) * Form1.Height - Command1.Height * 2) ______ Command1.Move X, Y__________________________ End Sub

7. 求Fibonacci数列中的前20个数，并存放在一个数组中。在窗体上按每行5个数的形式输出。Fibonacci数列的前两个数为1，1，以后每个数都是其前两个数之和。请完善下列程序，计算结果如图2所示。

S. . . . . ..

.. . .. . .

图2

Private Sub Command1_Click() Dim a(1 To 20) As Long, i As Integer a(1) = 1: a(2) = 1: i = 3 Do While__________ a(i) = _______________ _____________ Loop For i = 1 To 4 For j = 1 To 5

Print a((i - 1) * 5 + j), Next j _____________ Next i End Sub

8.下列程序实现的功能是：当在窗体上单击时，将随机产生的100个3位数用顺序访问方式写到D盘根目录下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k As Integer

Open ___________________________________ Randomize

S. . . . . ..

.. . .. . .

For i = 1 To 10

k = 100 + Int(900 * Rnd) _______________ Next i

_______________ End Sub

四、编程（每题5分，共10分）

1．随机产生10个1到20之间的整数，放在数组A中，然后将A的元素倒序存放，即第一个变为最后一个，第二个变为倒数第二个，请完成程序。

2．在窗体上添加一个Picture对象和一个Command对象，编写程序，当单击“画圆”命令按钮时，在图片框中显示一个以图片框的中心点为圆心，图片框的高度为直径，颜色随机改变的圆。程序运行结果如图3所示。

图3

S. . . . . ..