vb程序填空题.docx

《vb程序填空题.docx》由会员分享，可在线阅读，更多相关《vb程序填空题.docx（62页珍藏版）》请在三一办公上搜索。

1、vb程序填空题三、填空题 1、 下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer For a =0 to 9 个位数数码 For b = 0 To 9 十位数数码 For c = -1- If ab And bc And ac Then x =a+10*(b+10*c) n = -2- -3- If n mod 15 = 0 Then Print

2、 End If Next c,b,a Print 总共有这样的三位数; n; 个 End Sub 1、1 to 9 2、n+1或1+n 3、print x; 2、 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click 确定按钮 Static n As Integer -1-mypwd As String = 123456 预设密码为自定义常量 n = n + 1 Label2.Visible

3、= True If -2- Then Label2.Caption = 密码正确 Else If n 3 Then Label2.Caption = 密码错误！ Text1.Text = Else -3- End If End If End Sub 1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 3、End 3、 在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图 Private Sub Combo1_Click Shape1.Shape = = Combo1.List(

4、-1-) -2- = Int(Rnd * 7) End Sub Private Sub Form_Load Dim I As Integer For I = 0 To 5:-3-: Next I End Sub 1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或Combo1.list(I)=I 4、右击窗体则打开Windows自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。 -1- Private Sub Form_MouseUp(Button As

5、 Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then n = n + 1: Shell “C:windowscalc.exe” End Sub Private Sub Command1_Click Open C:a1.dat For-2- Print #1,n: Close #1 -3- End Sub 1、dim n as integer 2、output as #1 3、end 三、填空题 (请把正确的选项填入试题前的空格中) 第1题： 单击窗体后，在窗体上输出以下图形: Private Sub

6、 Form_Click Dim I%, j%, st$ For I = 1 To -1- st = Chr$(65 + I - 1) Print Tab(10 - I); For j = 1 To I Print st; ; Next j -2- Next I For I =7 To 1 Step -1 st = Chr$(65 + I - 1) Print Tab(10 - I); For j = 1 To -3- Print st; ; Next j Print Next I End Sub 1、6 2、Print 3、I 第2题： 窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复

7、制、粘贴和删除操作。 Private Sub Command1_Click 全选按钮 Text1.SelStart = 0 Text1.SelLength = -1- Text1.SetFocus Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command2_Click 复制按钮 Clipboard.Clear Clipboard.SetText Text1.SelText Command3.Enabled = True Text1.SetFocus En

8、d Sub Private Sub Command3_Click 粘贴按钮 Text1.SelText = -2- Text1.SetFocus End Sub Private Sub Command4_Click 删除按钮 -3- Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Form_Load Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False End

9、 Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength 0 Then Command2.Enabled = True Command4.Enabled = True Else Command2.Enabled = False Command4.Enabled = False End If End Sub 1、Len(Text1.Text)或Len(Text1) 2、Clipboard.GetText 3、Text1.SelTe

10、xt = 第3题： 自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。 Dim I As Integer Private Sub Form_Load I= -1- Picture1.Picture = LoadPicture(c:windows1.bmp) Picture1.AutoSize = True End Sub Private Sub Timer1_Timer If I = 7 Then -2- Else I = 1 End If Pic

11、ture1.Picture = -3- End Sub 1、1 2、I=I+1或I=1+I 3、LoadPicture(c:windows & I & .bmp)或LoadPicture(c:windows + trim(str(I) + .bmp) 第4题：文件c:a1.dat中存放若干个学生信息的记录，按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。 Private Sub Command1_Click Dim bs As String,cs As String Open c:a1.dat-1- Open temp.dat For Output As #2

12、bs = InputBox(输入学生姓名) Do While Not Eof(1) Line Input #1, cs if InStr(cs, Trim(bs) =-2-Then print #2,cs Loop Close #1: Close #2 Kill-3- Name “temp.dat” as “c:a1.dat” End Sub 1、For Input As #1 2、0 3、c:a1.dat 三、填空题 1： 该程序执行后，输出一个右上三角元素为1，其余元素为0 的55的矩阵。 Private Sub Form_Click Dim a(1 To 5, 1 To 5) As In

13、teger 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“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按

14、钮，将删除该列表项；如果没有任何一项选中，将有出错提示先选择，再删除！。 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.Text 2、List1.ListIndex = -1 3、List1.RemoveItem List

15、1.ListIndex 3： 自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。 Dim -1- As Integer Private Sub Form_Load I = 1 Picture1.Picture = LoadPicture(c:windows1.bmp) Picture1.AutoSize = True End Sub Private SubTimer1_ -2- If -3- Then I =I+1 Else I = 1 End I

16、f 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题： 自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。 Dim i As

17、 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 Else 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、Lo

18、adPicture(fn) 第4题：在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为其子菜单。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_Load Timer1.Enabled = False 锁定定时器 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

19、 2 Text1.Text = End Select End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ 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的转置矩阵，将二维数组中所有行和对应列的元素进行交换。

20、Private Sub Form_Click Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.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 =

21、1 To 6 - 3 - Next j Form1.Print Next i End Sub Public Sub Swap(a As Integer, b As Integer) 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标题分别为“开始”、“结束”。运行时，

22、单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间。 Dim x 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

23、= -2- m = x mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 End Sub 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_C

24、lick(Index As Integer) -1- Picture1.FontSize = 20 -2- = 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题：程序运行

25、时，通过单击窗体显示“字体”对话框，并对文本框的字体 、字号和字效等进行设置。 Private 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 三

26、、填空题 第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 - Loop if b=true then t = t + 1 Form1.Print i End If Next i Print t=; t End Sub 1、2 2、b = False 3、k = k + 1 第2题： 下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，