vb程序填空题(共50页).doc

《vb程序填空题(共50页).doc》由会员分享，可在线阅读，更多相关《vb程序填空题(共50页).doc（50页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。PrivateSubForm_Click()DimnAsInteger,aAsInteger,bAsInteger,cAsIntegerDimxAsIntegerFora=0to9个位数数码 Forb=0To9十位数数码Forc=-1-IfabAndbcAndacThenx=a+10*(b+10*c) n=-2-3- Ifnmod15=0ThenPrintEndIfNextc,b,aPrint总共有这样的三位数;n;个EndSub1、1 to

2、 92、n+1或1+n n+1或1+n：1 to 9：1 to 93、print x;2、【程序说明】简单窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。PrivateSubCommand1_Click()确定按钮StaticnAsInteger-const-1-mypwdAsString=预设密码为自定义常量n=n+1Label2.Visible=TrueIf-_ text1.text=mypwd_ -ThenLabel2.Caption=

3、密码正确ElseIfn 3 ThenLabel2.Caption=密码错误！Text1.Text=Else-end-3-EndIfEndIfEndSub1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 3、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图PrivateSubCombo1_Click()Shape1.Shape=Combo1.List(-combol1.listindex-1-)-2-=Int(Rnd*7)EndSubPrivateSu

4、bForm_Load()DimIAsIntegerForI=0To5:-3-:NextIEndSub1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或Combo1.list(I)=I4、【程序说明】右击窗体则打开Windows自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。-1-PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2Th

5、enn=n+1:Shell“C:windowscalc.exe”EndSubPrivateSubCommand1_Click()OpenC:a1.datFor-2-Print#1,n:Close#1-3-EndSub1、dim n as integer 2、output as #1 3、end三、填空题 (请把正确的选项填入试题前的空格中) 第1题：【程序说明】 单击窗体后，在窗体上输出以下图形:PrivateSubForm_Click()DimI%,j%,st$ForI=1To-1-st=Chr$(65+I-1)PrintTab(10-I);Forj=1ToIPrintst;Nextj-2-

6、NextIForI=7To1Step-1st=Chr$(65+I-1)PrintTab(10-I);Forj=1To-3-Printst;NextjPrintNextIEndSub1、662、Print 3、I第2题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。PrivateSubCommand1_Click()全选按钮Text1.SelStart=0Text1.SelLength=-1-Text1.SetFocusCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSu

7、bPrivateSubCommand2_Click()复制按钮Clipboard.ClearClipboard.SetTextText1.SelTextCommand3.Enabled=TrueText1.SetFocusEndSubPrivateSubCommand3_Click()粘贴按钮Text1.SelText=-2-Text1.SetFocusEndSubPrivateSubCommand4_Click()删除按钮-3-Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubF

8、orm_Load()Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfText1.SelLength0ThenCommand2.Enabled=TrueCommand4.Enabled=TrueElseCommand2.Enabled=FalseCommand4.Enabled=FalseEndIfEndSub1、Len(Text1.Text)或Le

9、n(Text1)2、Clipboard.GetText3、Text1.SelText = 第3题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.bmp、2.bmp、8.bmp这样8张图片需显示）DimIAsIntegerPrivateSubForm_Load() I= -1- Picture1.Picture=LoadPicture(c:windows1.bmp) Picture1.AutoSi

10、ze=TrueEndSubPrivateSubTimer1_Timer() IfI= 7 Then -2- Else I=1 EndIf Picture1.Picture=-3-EndSub1、12、I=I+1或I=1+I3、LoadPicture(c:windows & I & .bmp)或LoadPicture(c:windows + trim(str(I) + .bmp)第4题：【程序说明】文件c:a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。PrivateSubCommand1_Click()DimbsAs

11、String,csAsStringOpenc:a1.dat-1-Opentemp.datForOutputAs#2bs=InputBox(输入学生姓名)DoWhileNotEof(1) LineInput#1,cs ifInStr(cs,Trim(bs)=-2-Thenprint#2,csLoopClose#1:Close#2Kill-3-Name“temp.dat”as“c:a1.dat”EndSub1、For Input As #12、03、c:a1.dat三、填空题 1：【程序说明】 该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的55的矩阵。 Private Sub

12、 Form_Click() Dim a(1 To 5, 1 To 5) As Integer Dim I As Integer, j As Integer For I = 1 To 5 For j = 1 To 5 If -1- Then -2- End If Next j Next I For I = 1 To 5 For j = 1 To 5 Form2.Print ; a(I, j); Next j -3- Next I End Sub 1、I=I 2、a(I,j)=1 3、print 2：【程序说明】 如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文

13、本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示先选择，再删除！。 Private Sub Command1_Click() 添加按钮 If Len(Text1.Text) 0 Then -1- Text1.Text = Text1.SetFocus End If End Sub Private Sub Command2_Click() 删除按钮 If -2- Then MsgBox 先选择，再删除！ Else -3- End If End Sub 1、 List1.AddItem Text1.

14、Text 2、List1.ListIndex = -1 3、List1.RemoveItem List1.ListIndex 3：【程序说明】 自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.bmp、2.bmp、8.bmp这样8张图片需显示） Dim -1- As Integer Private Sub Form_Load() I = 1 Picture1.Picture = LoadPicture(c:wi

15、ndows1.bmp) Picture1.AutoSize = True End Sub Private SubTimer1_ -2- If -3- Then I =I+1 Else I = 1 End If Picture1.Picture = LoadPicture(c:windows & I & .bmp) End Sub 1、I 2、Timer() 3、I = 7或I=-1- If List1.Selected(i) = True Then -2- End If -3- Wend End Sub 1、0 2、List1.RemoveItem I 3、i = i - 1 第3题：【程序说

16、明】 自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.jpg、2.jpg、8.jpg这样8张图片需显示） Dim i As Integer Private Sub Form_Load() i = 1 Picture1.Picture = -1- Picture1.AutoSize = True End Sub Private Sub Timer1_Timer() If i = 7 Then i =i+1 El

17、se i = 1 End If -2- End Sub Sub pic() Dim fn As String fn = c:windows & i & .jpg Picture1.Picture = -3- End Sub 1、LoadPicture(c:windows1.jpg) 2、Call pic或pic 3、LoadPicture(fn) 第4题：【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共项，均同名，索引值依次为0，1，2）。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_

18、Load() Timer1.Enabled = False 锁定定时器（时间间隔已设置为1秒） End Sub Private Sub m11_Click(Index As Integer) Select Case Index Case 0 : Timer1.Enabled =-1- Case 1 Timer1.Enabled = False : Text1.Text= 日期： + -2- Case 2 Text1.Text = End Select End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer,

19、_ x As Single, y As Single) If Button = 2 Then -3-, 2 End Sub Private Sub Timer1_Timer() Text1.Text = 时间： + Time End Sub 1、True 2、Date 3、PopUpMenu m1 三、填空题 第1题：【程序说明】 以下程序执行后将产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交换。 Private Sub Form_Click() Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Fo

20、rm1.Print 原始数据 For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To - 1 - - 2 - Next j Next i Form1.Print 转置后数据 For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1.Print Next i End Sub Public Sub Swap(a As Integer, b As Integer

21、) Dim temp As Integer temp = a a = b b = temp End Sub 1、I 2、Call Swap(a(I, j), a(j, I)或.Swap a(I, j), a(j, I) 3、Print a(i, j); 第2题：【程序说明】 本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。 Dim x

22、 as long Private Sub Form_Load() Timer1.Interval = 60000: Timer1.Enabled = False End Sub Private Sub Command1_Click() Cls x = 0 -1- End Sub Private Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = -2- m = x mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 End S

23、ub Private Sub Timer1_Timer() -3- Text1.text = x End Sub 1、Timer1.enabled=true 2、x60 3、x=x+1 第3题：【程序说明】 程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。 Private Sub Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2-

24、 = vbBlue Picture1.Cls -3- Case 0 Picture1.Print 红桃被选中 Case 1 Picture1.Print 草花被选中 Case 2 Picture1.Print 方片被选中 Case 3 Picture1.Print 黑桃被选中 End Select End Sub 1、Image2.Picture =Image1(Index).Picture 2、Picture1.ForeColor 3、Select Case Index 第4题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体 、字号和字效等进行设置。 Private

25、 Sub Form_Click() -1-259 CommonDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub 1、CommonDialog1.Flags 2、4 3、CommonDialog1.FontBold 三、填空题 第1题：【程序说明】 以下程序执行后将输出100到200之间所有的素数，并统计素数的个数 Private Sub Form_Click() Dim i%, j%, k%, t% t为统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True k= - 1 - j = Int(Sqr(i) Do While k = j And b If i Mod k = 0 Then - 2 - End If - 3 -