VB考题2011_1.docVIP

设计题1 在考生文件夹下创建一个工程，按图Picture1所示添加控件。窗 体的标题为显示日期。要求窗体运行后，焦点置于退出按钮上，文本框显示当前的。Private Sub Command1_Click() End End Sub Private Sub Form_activate() Command1.SetFocus Text1 = Date End 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 If End Sub 编程题1 在考生文件夹下创建一个工程，窗体界面如图Picture3所示, 窗体中间为一个标签控件，下面两个命令按钮。当按“移动”按钮时，文字从左向右移动，文字移动到窗体右边界时（Label1.Left Form1.Width）退回到窗体的最左边，再往右移动；当按“停止”按钮时，停止文字的移动。 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If Label1.Left Form1.Width Then Label1.Left = 0 End Sub 编程题2 在考生文件夹下创建一个工程，窗体界面如图Picture4所示,编写确定命令按钮的Click事件代码。实现以下功能：在窗体上输出所有Ascii字符和对应的编码（Ascii码33~127），每行输出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 Print Next i End Sub 调试题1 运行窗体“调试题1.frm”后，产生Fibonacci数列的前20项，放在一维数组中，在文本框中输入项数，点击确定按钮，用msgbox命令显示相应项的数列值。程序有错，请修改。工程保存为“工程5.vbp” Dim a(20) As Integer Private Sub Command1_Click() Dim n% n = Text1 MsgBox Fibonacci数列的第 n 项为 a(n) End Sub Private Sub Form_Load() Rem Dim a(20) As Integer a(1) = 1 a(2) = 1 Rem For i = 1 To 20 For i = 3 To 20 a(i) = a(i - 1) + a(i - 2) Next i End Sub 调试题2 “调试题2.frm”的功能是随机生成10个0~100之间的整数，返回10个数中最大数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) Then max = a(i) Rem If min a(i+1) Then min = a(i+1) If min a(i) Then min = a(i) Next i Print Print 最大数为 max Print 最小数为 min End Sub 数据库1 在D盘根文件夹下有一