vb程序设计期末考试填空题题库.docVIP

vb程序设计期末考试填空题题库 第01套： 第1题：【程序说明】 下列程序显示所有3个数码各不相同的3位数，并统计有多少个这样的三位数。 Private Sub Form_Click() Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer For a =----1---- For b = 0 To 9 For c = 1 To 9 If ab And bc And ac Then x =----2---- n = n + 1 ----3---- If n mod 15 = 0 Then Print End If Next c,b,a Print 总共有这样的三位数; n; 个 End Sub 正确答案：0 to 9 正确答案：1+10*(b+10*c) 正确答案：print x; 第2题：【程序说明】 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() 确定按钮 Static n As Integer ----1----mypwd As String = 123456 预设密码为自定义常量 n = n + 1 Label2.Visible = True If ----2---- Then Label2.Caption = 密码正确 Else If n 3 Then Label2.Caption = 密码错误！ Text1.Text = Else ----3---- End If End If End Sub 正确答案：CONST 正确答案：Text1.text=mypwd或mypwd=text1.text 正确答案：End 第3题：【程序说明】 在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图 Private Sub Combo1_Click() Shape1.Shape = = Combo1.List(----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 正确答案：Combo1.ListIndex 正确答案：Shape1.BorderStyle 正确答案：Combo1.AddItem Str(i) 第4题：【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。 ----1---- Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then n = n + 1: Shell “C:\windows\calc.exe” End Sub Private Sub Command1_Click() Open C:\a1.dat For----2---- Print #1,n: Close #1 ----3---- End Sub 正确答案：dim n as integer 正确答案：output as #1 正确答案：end 第02套： 第1题：【程序说明】 单击窗体后，在窗体上输出以下图形: Private Sub 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 Print Next i For i =----2---- 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 正确答案：6 正确答案：7 正确答案：I 第2题：【程序说明】 窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。 Private Sub Command1_Click() 全选按钮 Text1.SelStart = 0