.. . .. . .
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. . . . . ..
VB程序设计期末模拟试卷
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)