中职电子与信息：VB技能模块模拟考题14.docx

《中职电子与信息：VB技能模块模拟考题14.docx》由会员分享，可在线阅读，更多相关《中职电子与信息：VB技能模块模拟考题14.docx（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB技能模块模拟考题十四1 .创建如图1的界面，要求足球作上下运动。2 .操作要求：（1）创建图1的界面；设置相关的属性：垂直滚动条的最小值与最大值为50-1000（2）单击“开始”按钮，定时器间隔时间由垂直滚动条的Value的值来决定，定时器工作，并 且命令按钮的标题变成“停止”，单击“停止”，定时器工件停止。（3）定时器事件每按一定时间将作足球上下运动；Dimf%Private Sub Command 1 _Click()Timer 1.Interval =If ThenCommand 1 .Caption = 停止”Timer 1.Enabled = TrueElseCommand 1

2、.Caption =开始”End IfEnd SubPrivate Sub Timerl_Timer()If Image l.Top = Form 1.Height - Image 1.Height ThenElself Image 1 .Top = 0 Thenf=0End IfIf f = 1 ThenImagel.Top = Imagel.Top - 500ElseImagel.Top =End IfEnd Sub.将一张100元钞票兑换成面值分别为20元、10元和5元的钞票，要求每种至少有一张，共有多 少种不同的换法并输出所有可能的换法。操作要求：（1）创建如图2的界面，设置相关的属性

3、；（2）单击窗体后，在窗体上显示结果如图2所示。白芬举法案例一20元10兀5兀11141212131014156161721102223242531323341一共有16换法2 .求既是回文数又是素数的所有三位整数。操作要求：（1）将文本框设置多行并垂直滚动条；（2）单击“回文数与素数”按钮，在文本框中显示结果3；（完成填空）Dim f%, a%, c%For i = 100 To 999f=For j = 2 To i - 1If Then f = 1: Exit ForNext j a =c =If ThenText!.Text = Text 1.Text + Str(i) End IfNext i