VB程序设计练习题.docxVIP

第1题：每当一个窗体成为活动窗口时将触发Show事件。 参考答案：错 第2题：Integer Long、Single Double是数值类型数据，但Byte不是。 参考答案：错 第3题：在打开某窗体时，初始化窗体屮的各控件，应选用Loeid事件。 参考答案：对 第4题：若行If语句中逻辑表达式值为True,则关键字Then后的若干语句都 要执行。 参考答案：对 第5题：函数过程与Sub过程必须用关键字Private或Public声明。 参考答案：错 第6题：标签控件可以响应Click事件。 参考答案：对 第7题：屏幕(Screen)对象可作为窗体的容器，區只能提供缺省的坐标系统, 即坐标刻度不能改变。 参考答案：对 第8题：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否 则将发牛“不存在字体”的错误。 参考答案：对 第9题：运行时冃录列表框的List属性可以用Addltem和Remove Item两种方法 来改变。 参考答案：错 第10题：将组合框的Style属性设置为0时，组合框称为“下拉式组合框”， 其选项可以从下拉列表框的列表项中选择，也可以由用户输入。 参考答案：对 TOC \o 1-5 \h \z 第1题：在工程资源管理器中“移除”一个文件后，该文件 。 参考答案：A A、 从当前工程中删除掉 第2题:在设计模式双击窗体中的对象后,Visual Basic将显示的窗口是 。 参考答案：B B、 代码窗口 第3题：Integer类型的变量可存的最大整数为 。 参考答案：D D、32767BR 第4题：下列哪个函数返回值为Ascii码值？ 参考答案：D C、Asc(x)BR 第5题：下列关于Select Case之测试表达式的叙述中，错误的是 。 参考答案：A A、 只能是变量名 第 6 题:执行 语句后，执行语句Textl. SelStart = 0 : Textl. SelLength = Len(Textl)”，可以使文木框控件Textl中的文木突出显示。 参考答案：B B、 Textl.SetFocus 第7题：设置命令按钮coil的背景色为红色，可以执行语句 。 参考答案：B C cml.BackColor = vbred: cml.style=l 第8题： 可以改变容器坐标系的度量单位。 参考答案：C C、 ScaleMode 屈性 第9题：通常用 方法来显示“自定义”对话框。 参考答案：D D、 Show 第10题：设定文件列表框屮所显示的文件类型，应修改该控件的 属性。 参考答案：A A、Pattern 下列程序显示所有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 aob And bc And ac Then x =a+10*(b+10*c) n = —2— If n mod 15 = 0 Then Print End If Next c,b,a Print ”总共有这样的三位数”;n; ”个” End Sub 参考答案：lto9 参考答案：n+1 参考答案：print x; 窗体是密码检验程序。程序运行时，用户在文木框输入密码，单击确定按钮对密 码进行检验。密码正确后，标签label2显示“密码正确=若密码不正确，标签显 示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command 1 _Click()，确定按钮 Static n As Integer ■■一l____mypwd As String = n123456n ，预设密码为自定义常量 n = n + 1 Label2.Visible = True If -■一2——Then Label2.Caption ■密码正确” Else If n 3 Then Label2.Caption = ”密码错误！” Text 1 .Text Else ■■■.3 ■■■■ End If End If End Sub 参考答案：CONST 参考答案：Text 1 .text=mypwd 或 mypwd=textl.text 参考答案: End 在组合框中选择形状后，窗体中控件Shape 1的形状和边框线作相应变化。程序 运行时如下图 Private Sub Combo l_Click() Shape 1. Shape = = Combo l.L