VB考题2011_1

《VB考题2011_1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、设计题1在考生文件夹下创建一个工程，按图Picture1所示添加控件。窗体的标题为"显示日期"。要求窗体运行后，焦点置于退出按钮上，文本框中显示当前的日期。单击退出按钮将退出窗体。将窗体保存为“设计题1.frm",工程保存为"工程1.vbp"。PrivateSubCommand1_Click()EndEndSubPrivateSubForm_activate()Command1.SetFocusText1=DateEndSub设计题2在考生文件夹下创建一个工程，程序运行后，单击窗体，在窗体上显示一张背景图片ba

2、ck1.jpg;再次单击窗体，清除窗体上的背景图片。编写窗体的Click事件代码。背景图片在考生文件夹中。窗体保存为"设计题2.frm",工程保存为"工程2.vbp"。PrivateSubForm_Click()IfForm1.Picture=NoneThenForm1.Picture=LoadPicture("C:考生文件夹back1.jpg")ElseForm1.Picture=LoadPicture()EndIfEndSub编程题1在考生文件夹下创建一个工程，窗体界面如图Picture3所示,窗体中间

3、为一个标签控件，下面两个命令按钮。当按“移动”按钮时，文字从左向右移动，文字移动到窗体右边界时（Label1.Left>Form1.Width）退回到窗体的最左边，再往右移动；当按“停止”按钮时，停止文字的移动。PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Load()Timer1.Interval=100Timer1.En

4、abled=FalseEndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+100IfLabel1.Left>Form1.WidthThenLabel1.Left=0EndSub编程题2在考生文件夹下创建一个工程，窗体界面如图Picture4所示,编写"确定"命令按钮的Click事件代码。实现以下功能：在窗体上输出所有Ascii字符和对应的编码（Ascii码33~127），每行输出8个字符。提示：要使用CHR函数。PrivateSubCommand1_Cli

5、ck()Dimj%Fori=33To127PrintChr(i)&"-"&i&Space(3);j=j+1IfjMod8=0ThenPrintNextiEndSub调试题1运行窗体“调试题1.frm”后，产生Fibonacci数列的前20项，放在一维数组中，在文本框中输入项数，点击确定按钮，用msgbox命令显示相应项的数列值。程序有错，请修改。工程保存为“工程5.vbp”Dima(20)AsIntegerPrivateSubCommand1_Click()Dimn%n=Text1MsgBox"Fibonacc

6、i数列的第"&n&"项为"&a(n)EndSubPrivateSubForm_Load()RemDima(20)AsIntegera(1)=1a(2)=1RemFori=1To20Fori=3To20a(i)=a(i-1)+a(i-2)NextiEndSub调试题2“调试题2.frm”的功能是随机生成10个0~100之间的整数，返回10个数中的最大数和最小值。程序有错，请修改。工程保存为“工程6.vbp”PrivateSubCommand1_Click()Dimmax%,min%,i%Dima(10)AsInt

7、egerRandomizemax=0min=100Fori=1To10Rema(i)=Rnd*100+1a(i)=Rnd*100Printa(i);Ifmaxa(i+1)Thenmin=a(i+1)Ifmin>a(i)Thenmin=a(i)NextiPrintPrint"最大数为"&maxPrint"最小数为"&minEndSub数据库1在D盘根文件夹下有一个Access数据库books.mdb，该数据库中有一个表book。要求在考生文件夹下创建一个工程，使

8、用DataGrid控件显示book表中的书名、书价和,数量三个字段。单击"计算"命令按钮，显示book表中所有书中价格最贵的书名。窗体界面如图Picture5所示。窗体保存为"数据库1.frm",工程保存为"工程7.vbp"。