VB模拟试题

VB样题 一、单选题（本大题共25题，每题2分，共50分） 1、下列符号中哪个是VB程序中合法的变量名（ ）。 A） ab7 B） 7ab C） If D） a*bc 2、与传统的程序设计语言相比，Visual Basic最突出的特点是（　）。 A） 面向对象的程序设计 B） 集成化开发环境 C） 结构化程序设计 D） 事件驱动编程机制 3、以下叙述中错误的是（ ）。 A）Visual Basic 是事件驱动型可视化编程工具 B）Visual Basic应用程序不具有明显的开始和结束语句 C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Basic中控件的某些属性只能在运行时设置 4、每个窗体对应一个窗体文件，窗体文件的扩展名是（ ）。 A） .bas B） .cls C） .frm D） .vbp 5、确定一个控件在窗体上的位置的属性是（ ）。 A） Width和Height B） Width或Height C） Top和Left D） Top或Left 6、设字符串str1="abcdefgh"，则表达式Mid(str1,3,2)的结果是（ ）。 A) abc B) bc C) cde D) cd 7、可获得当前系统日期的函数是（　）。 A) Date( ) B) Time( ) C) IsDate( ) D) Year( ) 8、标签框所显示的 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ，由（　）属性值决定。 A) Text B) (名称) C) Caption D) Alignment 9、复选框对象是否被选中，是由其( )属性决定的。 A) Checked B) Value C) Enabled D) Selected 10、计时器控件的（　）属性用于设置Timer事件发生的时间间隔。 A) Stretch B) Interval C) Value D) Length 11、若要向列表框添加列表项，可使用的方法是（　）。 A) Add B) Remove C) Clear D) AddItem 12、VB中可用（　）语句产生一消息框。 A) InputBox B) Shift C) Both D) MsgBox 13、以下叙述中正确的是（ ）。 A) 窗体的Name属性指定窗体的名称，用来标识一个窗体 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变对象的Name属性的值 D) 对象的Name属性值可以为空 14、执行下面的语句后，所产生的信息框的标题是（ ）。 a = MsgBox("AAAA", "BBBB", "", 5) A) BBBB B) 空 C) AAAA D) 出错，不能产生信息框 15、表达式4+5\6*7/8 Mod 9的值是（ ）。 A) 8 B) 7 C) 6 D) 5 16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（ ）。 A) Do While …Loop循环和Do…Loop Until循环至少都执行一次 B) Do While …Loop循环和Do…Loop Until循环可能都不执行 C) Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环 D) Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次 17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（ ）。 A) 12 B) 60 C) 120 D) 345 18、数学关系3≤x<10对应的Visual Basic表达式是（ ）。 A) 3<=x<10 B) 3<=x AND x<10 C) x>=3 OR x<10 D) 3<=x AND <10 19、下面程序段的执行结果是（ ）。 Private Sub Command1_Click( ) For j = 1 To 4 k = 0 For i = 1 To 4 k = i + 1 Next i Next j Print k End Sub A) 16 B) 4 C) 5 D) 6 20、语句Dim arr(3 To 5, -2 To 2)所定义的数组的元素个数是（ ）。 A) 20 B) 12 C) 15 D) 24 21、以下关于数组的说法，不正确的是（ ）。 A) 数组是一种特殊的数据类型 B) 一个数组中可存放多种类型的数组 C) 数组是一组相同类型的变量的集合 D) 运行时可改变动态数组或静态数组的大小 22、假定有下面的程序段： For i = 1 To 3 For j = 1 To i For k = j To 3 Print "i = "; i, "j = "; j, "k = "; k Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（ ）。     A) 3、6和14 B) 3、8和16     C) 3、4和12 D) 3、9和18 23、执行下面的程序段后，x的值为（ ）。 x = 5 For i=1 to 20 Step 2 x = x + i \ 5 Next i A) 10 B) 15 C) 20 D) 21 24、若要将多条语句书写在同一行，语句间应该用（ ）间隔。 A) 逗号 B) 冒号 C) 分号 D) 句号 25、要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（ ）。 A) Text属性值为# B) Caption属性值为# C) Passwordchar属性值为# D) Passwordchar属性值为真 二、填空题（本大题共5题，每题2分，共10分） 1、 若要将窗体Form2显示出来，可使用方法_____来实现。 2、 ＶＢ提供的enabled属性，用来控制对象是否可用；_____属性，用来控制对象是否可见。 3、 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入326和536，输出结果为 。 4、 数学表达式 ，在VB中对应的表达式为__________________________。 5、 控件数组具有相同的控件名称(即Name属性)，通过不同的 属性来标识各个控件。 三、程序填空题（本大题共6空，每空2分，共12分） 1、窗体上有一个标签和一个计时器，以下程序的作用是，程序运行后，单击窗体，在标签中显示当前的系统时间，每隔1秒变换一次，请填空。 Private Sub Form_Click() Timer1.Interval = ________ End Sub Private Sub Timer1_Timer() Label1.Caption = _________ End Sub 2、阅读以下在VB开发过程中的应用说明，对属性设置和程序代码填空。 本应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox语句弹出消息框提示“密码正确，欢迎进入！”；否则弹出消息框提示“密码不正确，谢绝进入！”。当用户单击“重新输入”命令按钮，则清空文本框中内容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。 [属性设置] 对象　　　　对象名　　　　 属性名　　　　 属性值设置 命令按钮　　Commandl　　 Caption　　　　 重新输入 命令按钮　　Command2　　 Caption　　　 核对密码 命令按钮　　Command3　　 Caption　　　 退出　 文本框　　　Text1　　　　 Text　　　　　 (置空)　 [程序代码] Private Sub Command1_Click() Text1.text= "" ___________ End Sub Private Sub Command2_Click() Dim pw As String pw = "abc" If ___________ Then MsgBox "密码正确，欢迎进入！" Else ___________ End If End Sub Private Sub Command3_Click() ___________ End Sub 四、简答题（本大题共3题，每题4分，共12分） 1、 描述一下你对VB可视化编程中 “属性”和“方法”概念的理解。 2、 VB可视化编程的一般步骤。 3、 写出生成一个1~100间随机整数的VB语句，并给出简要说明。 五、编程题（本大题共3题，1～2题每题5分，第3题6分，共16分） 1、 设计一个用For…Next语句，将100~200之间所有能同时被3和5同时整除的数的和显示在窗体上。 要求： 程序头尾如下。 Private Sub Command1_Click() End Sub 2、编写程序将一年中的12个月份，转换成四个季度输出。对应关系如下： 月份：1～3 4～6 7～9 10～12 季度：春季 夏季 秋季 冬季 要求：①程序运行时，从键盘输入一个月份（使用输入对话框），在窗体上输出对应的季度。 ②使用select case或者if then else 语句实现，程序头尾参照如下。 Private Sub Form_Click() End Sub 3、通过下面的Form_Load()事件将一组学生成绩，已经存储在二维数组a(5, 3)中，请编写一段程序找出最高和最低的成绩，并在窗体上显示出来。 Option Base 1 Private Sub Form_Load() Dim a(5, 3) As Integer a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74 a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90 a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73 a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90 a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63 End Sub 要求：程序头尾如下。 Private Sub Form_Click() End Sub _1177231110.unknown