三、填空题 
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  a<>b And b<>c And a<>c Then 
                x =a+10*(b+10*c)
                     n = ----2----
                ----3----
                     If n mod 15 = 0 Then Print
             End If
 Next c,b,a 
 Print "总共有这样的三位数"; n; "个"
vb设计模拟密码输入器End Sub
1、1 to 9
2、n+1或1+n n+1或1+n：1 to 9：1 to 9
3、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
1、CONST
2、=mypwd或或Text1=mypwd或mypwd=text1
3、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
1、Combo1.ListIndex
2、Shape1.BorderStyle
3、Combo1.AddItem Str(I)或Combo1.list(I)=I
4、【程序说明】右击窗体则打开Windows自带的计算器“C:\”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。
----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:\”
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 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、66
2、Print
3、I
第2题：【程序说明】
窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。
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
End 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 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.SelText = ""
第3题：【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）
Dim I As Integer
Private Sub Form_Load()
  I= ----1----
  Picture1.Picture = LoadPicture("c:\windows\1.bmp")
  Picture1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
  If I <= 7 Then
      ----2---- 
  Else
      I = 1
  End If
  Picture1.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
  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 的5×5的矩阵。
            Private Sub 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<=j或j>=I
                  2、a(I,j)=1
                  3、print
  2：【程序说明】
    如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。