【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“vb程序填空题 - 计算机等级”一文，供大家参考学习

三、填空题1、【程序说明】下列程序显示所有 3 个数码各不相同的 3 位数，要求按紧凑格式每行显示 15 个数，并统计有多少个这样的三位数。

    Private Sub Form_ClickDim 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 altgtb And bltgtc And altgtc Then x a10b10c n ----2---- ----3---- If n mod 15 0 Then Print End IfNext cbaPrint quot总共有这样的三位数quot n quot个quotEnd Sub 1、1 to 9 2、n1 或 1n 3、print x2、【程序说明】窗体是密码检验程序。

     程序运行时，用户在文本框输入密码， 单击确定按钮对密码进行检验。

    密码正确后，标签 label2 显示“密码正确” ；若密码不正确，标签显示“密码错误”，若密码输入错误达 3 次，将自动退出程序。

    Private Sub Command1_Click 确定按钮 Static n As Integer ----1----mypwd As String quot123456quot 预设密码为自定义常量 nn1 Label2.Visible True If ----2---- Then Label2.Caption quot密码正确quot Else If n lt 3 Then Label2.Caption quot密码错误！quot Text1.Text quotquot Else ----3---- End If End IfEnd Sub 1、CONST 2、Text1.textmypwd 或 mypwdtext1.text 或 Text1mypwd 或 mypwdtext1 3、End3、【程序说明】在组合框中选择形状后，窗体中控件 Shape1 的形状和边框线作相应变化。

    程序运行时如下图Private Sub Combo1_Click Shape1.Shape Combo1.List----1---- ----2---- IntRnd 7End 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 StrI或 Combo1.listII4、 【程序说明】右击窗体则打开 Windows 自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件并结束程序运行。

    ----1----Private Sub Form_MouseUpButton As Integer Shift As Integer _ X As Single Y As Single If Button 2 Then n n 1: Shell “C:windowscalc.exe”End SubPrivate Sub Command1_Click Open quotC:a1.datquot For----2---- Print 1n: 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 Chr65 I - 1 Print Tab10 - I For j 1 To I Print st quot quot Next j ----2---- Next I For I 7 To 1 Step -1 st Chr65 I - 1 Print Tab10 - I For j 1 To ----3---- Print st quot quot Next j Print Next IEnd Sub 1、6 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 TrueEnd SubPrivate Sub Command2_Click 复制按钮 Clipboard.Clear Clipboard.SetText Text1.SelText Command3.Enabled True Text1.SetFocusEnd SubPrivate Sub Command3_Click 粘贴按钮 Text1.SelText ----2---- Text1.SetFocusEnd SubPrivate Sub Command4_Click 删除按钮 ----3---- Command2.Enabled False Command3.Enabled False Command4.Enabled FalseEnd SubPrivate Sub Form_LoadCommand2.Enabled FalseCommand3.Enabled FalseCommand4.Enabled FalseEnd SubPrivate Sub Text1_MouseUpButton As Integer Shift As Integer X As Single Y As Single If Text1.SelLength ltgt 0 Then Command2.Enabled True Command4.Enabled True Else Command2.Enabled False Command4.Enabled False End IfEnd Sub1、LenText1.Text或 LenText12、Clipboard.GetText3、Text1.SelText quotquot第 3 题： 【程序说明】自制一个简单的图片浏览器。

     在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。

    运行时，显示第一张图片，单击“浏览”按钮每隔 1 秒在图片框中显示另一张图片，显示到最后一张图片时， 又从第一张开始显示。

     （假设在 C:Windows 目录下有 1.bmp、2.bmp、……、8.bmp 这样 8 张图片需显示）Dim I As IntegerPrivate Sub Form_Load I ----1---- Picture1.Picture LoadPicturequotc:windows1.bmpquot Picture1.AutoSize TrueEnd SubPrivate Sub Timer1_Timer If I lt 7 Then ----2---- Else I1 End If Pi