三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。
Private Sub Form_Click()Dim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =0 to 9 '个位数数码For b = 0 To 9 '十位数数码For c = ----1----If a<>b And b<>c And a<>c Thenx =a+10*(b+10*c)n = ----2--------3----If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint "总共有这样的三位数"; n; "个"End Sub1、1 to 92、n+1或1+n3、print x;2、【程序说明】简单窗体是密码检验程序。
程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。
密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click() '确定按钮Static n As Integer---const-1----mypwd As String = "123456" '预设密码为自定义常量n = n + 1Label2.Visible = TrueIf ---__ text1.text=mypwd____ ---- ThenLabel2.Caption = "密码正确"ElseIf n < 3 ThenLabel2.Caption = "密码错误！"Text1.Text = ""Else--end--3----End IfEnd IfEnd Sub1、CONST2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text13、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。
程序运行时如下图Private Sub Combo1_Click()Shape1.Shape = = Combo1.List(-combol1.listindex-1----)----2---- = Int(Rnd * 7)End SubPrivate Sub Form_Load()Dim I As IntegerFor I = 0 To 5:----3----: Next IEnd Sub1、Combo1.ListIndex2、Shape1.BorderStyle3、Combo1.AddItem Str(I)或Combo1.list(I)=I4、【程序说明】右击窗体则打开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 SubPrivate Sub Command1_Click()Open "C:\a1.dat" For----2----Print #1,n: Close #1----3----End Sub1、dim n as integer2、output as #13、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 IPrint st; " ";Next j----2----Next IFor I =7 To 1 Step -1st = Chr$(65 + I - 1)Print Tab(10 - I);For j = 1 To ----3----Print st; " ";Next jPrintNext IEnd Sub1、62、Print3、I第2题：【程序说明】窗体是简易文本编辑器程序。
通过文本框和剪贴板实现全选、复制、粘贴和删除操作。
Private Sub Command1_Click() '全选按钮Text1.SelStart = 0Text1.SelLength = ----1----Text1.SetFocusCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Command2_Click() '复制按钮Clipboard.ClearClipboard.SetText Text1.SelTextCommand3.Enabled = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click() '粘贴按钮Text1.SelText = ----2----Text1.SetFocusEnd SubPrivate Sub Command4_Click() '删除按钮----3----Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Form_Load()Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength <> 0 ThenCommand2.Enabled = TrueCommand4.Enabled = TrueElseCommand2.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub1、Len(Text1.Text)或Len(Text1)2、Clipboard.GetText3、Text1.SelText = ""第3题：【程序说明】自制一个简单的图片浏览器。
在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。
运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。
（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）Dim I As IntegerPrivate Sub Form_Load()I= ----1----Picture1.Picture = LoadPicture("c:\windows\1.bmp")Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer()If I <= 7 Then----2----ElseI = 1End IfPicture1.Picture = ----3----End Sub1、12、I=I+1或I=1+I3、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 StringOpen "c:\a1.dat"----1----Open "temp.dat" For Output As #2bs = InputBox("输入学生姓名")Do While Not Eof(1)Line Input #1, csif InStr(cs, Trim(bs)) =----2----Then print #2,csLoopClose #1: Close #2Kill----3----Name “temp.dat” as “c:\a1.dat”End Sub1、For Input As #12、03、"c:\a1.dat"三、填空题1：【程序说明】该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5的矩阵。
Private Sub Form_Click()Dim a(1 To 5, 1 To 5) As IntegerDim I As Integer, j As IntegerFor I = 1 To 5For j = 1 To 5If ----1---- Then----2----End IfNext jNext IFor I = 1 To 5For j = 1 To 5Form2.Print " "; a(I, j);Next j----3----Next IEnd Sub1、I<=j或j>=I2、a(I,j)=13、print2：【程序说明】如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。