VB考题2011_1.doc

设计题1在考生文件夹下创建一个工程，按图Picture1所示添加控件。窗体的标题为显示日期。要求窗体运行后，焦点置于退出按钮上，文本框中显示当前的日期。单击退出按钮将退出窗体。将窗体保存为“设计题1.frm, 工程保存为工程1.vbp。Private Sub Command1_Click()EndEnd SubPrivate Sub Form_activate()Command1.SetFocusText1 = DateEnd Sub设计题2在考生文件夹下创建一个工程，程序运行后，单击窗体，在窗体上显示一张背景图片back1.jpg;再次单击窗体，清除窗体上的背景图片。编写窗体的Click事件代码。背景图片在考生文件夹中。窗体保存为设计题2.frm, 工程保存为工程2.vbp。Private Sub Form_Click()If Form1.Picture = None Then Form1.Picture = LoadPicture(C:考生文件夹back1.jpg)Else Form1.Picture = LoadPicture()End IfEnd Sub编程题1在考生文件夹下创建一个工程，窗体界面如图Picture3所示, 窗体中间为一个标签控件，下面两个命令按钮。当按“移动”按钮时，文字从左向右移动，文字移动到窗体右边界时（Label1.Left Form1.Width）退回到窗体的最左边，再往右移动；当按“停止”按钮时，停止文字的移动。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer1.Interval = 100Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 100If Label1.Left Form1.Width Then Label1.Left = 0End Sub编程题2在考生文件夹下创建一个工程，窗体界面如图Picture4所示,编写确定命令按钮的Click事件代码。实现以下功能：在窗体上输出所有Ascii字符和对应的编码（Ascii码33127），每行输出8个字符。提示：要使用CHR函数。Private Sub Command1_Click()Dim j%For i = 33 To 127 Print Chr(i) & - & i & Space(3); j = j + 1 If j Mod 8 = 0 Then PrintNext iEnd Sub调试题1运行窗体“调试题1.frm”后，产生Fibonacci数列的前20项，放在一维数组中，在文本框中输入项数，点击确定按钮，用msgbox命令显示相应项的数列值。程序有错，请修改。工程保存为“工程5.vbp”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调试题2 “调试题2.frm”的功能是随机生成10个0100之间的整数，返回10个数中的最大数和最小值。程序有错，请修改。工程保存为“工程6.vbp”Private Sub Command1_Click() Dim max%, min%, i% Dim a(10) As Integer Randomize max = 0 min = 100 For i = 1 To 10 Rem a(i) = Rnd * 100+1 a(i) = Rnd * 100 Print a(i); If max a(i+1) Then min = a(i+1) If min a(i) Then min = a(i) Next i Print Print 最大数为 & max Print 最小数为 & minEnd Sub数据库1在D盘根文件夹下有一个Access数据库books.mdb，该数据库中有一个表book。要求在考生文件夹下创建一个工程，使用DataG