大二上期末复习题vb考题

1、设计题1在考生文件夹下创建一个工程，按图Picture1所示添加控件。窗体的标题为显示时间。要求窗体运行后，焦点置于退出按钮上，文本框每隔一秒钟显示一次当前的时间。单击退出按钮将退出窗体。将窗体保存为“设计题1.frm, 工程保存为工程1.vbp。Private Sub Command1_Click()EndEnd SubPrivate Sub Form_activate()Command1.SetFocusEnd SubPrivate Sub Timer1_Timer()Text1 = Time()End Sub设计题2在考生文件夹下创建一个工程，在窗体中添加两个命令按钮，其标题分别为“背景

2、1”与“背景2”。编写命令按钮的Click事件代码。要求点击命令按钮后，窗体显示相应的背景图片back1.jpg与back2.jpg。背景图片在考生文件夹中。窗体保存为设计题2.frm, 工程保存为工程2.vbp。编程题1在考生文件夹下创建一个工程，窗体界面如图Picture3所示,在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，文本框中显示所有选中的选项。编程题2在考生文件夹下创建一个工程，窗体界面如图Picture4所示,编写确定命令按钮的Click事件代码。实现以下功能：在110000之间找出所有满

3、足条件“被7除余5、被5除余3、被3除余2”的数，并在窗体上输出，每行输出8Private Sub Command1_Click()Dim n%, m%For n = 2 To 10000 Step 3If n Mod 7 = 5 And n Mod 5 = 3 ThenPrint n;m = m + 1If m Mod 8 = 0 Then PrintEnd IfNext nEnd Sub调试题1 “调试题1.frm”的功能是随机生成10个0100之间的整数，返回10个数中的最大数和最小值。程序有错，请修改。工程保存为“工程5.vbp”Private Sub Command1_Click()

4、 Dim max%, min%, i% Dim a(10) As Integer Randomize max = 0 min = 100 For i = 1 To 10 a(i) = Rnd * 100 Print a(i); If max a(i) Then min = a(i) Next i Print Print 最大数为 & max Print 最小数为 & minEnd Sub调试题2运行窗体“调试题1.frm”后，产生Fibonacci数列的前20项，放在一维数组中，在文本框1中输入项数，点击确定按钮，用msgbox命令显示相应项的数列值。程序有错，请修改。工程保存为“工程6.vb

5、p”Dim a(20) As IntegerPrivate Sub Command1_Click()Dim n%n = Text1MsgBox Fibonacci数列的第 & n & 项为 & a(n)End SubPrivate Sub Form_Load()Rem Dim a(20) As Integera(1) = 1a(2) = 1Rem For i = 1 To 20For i = 3 To 20a(i) = a(i - 1) + a(i - 2)Next iEnd Sub数据库1在D盘根文件夹下有一个Access数据库books.mdb，该数据库中有一个表book。要求在考生文件夹下创建一个工程，使用DataGrid控件显示book表中的书名、书