vb程序填空题.docVIP

三、填空题? 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?????????????End?If?Next?c,b,a??Print?总共有这样的三位数;?n;?个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????---const-1----mypwd?As?String?=?123456????????预设密码为自定义常量????n?=?n?+?1????Label2.Visible?=?True????If??---__ text1.text=mypwd____ ----?Then?????????Label2.Caption?=?密码正确????Else????????If?n? 3 Then????????????Label2.Caption?=?密码错误！????????????Text1.Text?=??????????Else???????????--end--3----????????End?If????End?IfEnd?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(-combol1.listindex-1----)??----2----?=?Int(Rnd?*?7)End?SubPrivate?Sub?Form_Load()??Dim?I?As?Integer??For?I?=?0?To?5:----3----:?Next?IEnd?Sub 1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或Combo1.list(I)=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?SubPrivate?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%,