Visual Basic语言程序设计05试卷

1、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 Bas

2、ic中控件的某些属性只能在运行时设置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) cd7、可获得当前系统日期的函数是（）。 A) Date( ) B) Time( ) C) IsDate( ) D) Year( )8、标签框所显

3、示的内容，由（）属性值决定。 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) Shif

4、t 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+56*7/8 Mod 9的值是（ ）。A) 8 B) 7 C) 6 D) 5 16、下列关于Do While Loop和DoLoop Un

5、til循环执行循环次数的描述正确的是（ ）。 A) Do While Loop循环和DoLoop Until循环至少都执行一次 B) Do While Loop循环和DoLoop Until循环可能都不执行 C) Do While Loop循环至少执行一次和DoLoop Until循环可能不执行循环 D) Do While Loop循环可能不执行和DoLoop Until循环至少执行一次17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（ ）。 A) 12 B) 60 C) 120 D) 34518、数学关系3x10对应的Visual Basic表达式是（ ）。

6、 A) 3=x10 B) 3=x AND x=3 OR x10 D) 3=x AND 1019、下面程序段的执行结果是（ ）。Private Sub Command1_Click( )For j = 1 To 4 k = 0 For i = 1 To 4 k = i + 1 Next iNext jPrint kEnd SubA) 16 B) 4 C) 5 D) 620、语句Dim arr(3 To 5, -2 To 2)所定义的数组的元素个数是（ ）。A) 20 B) 12 C) 15 D) 2421、以下关于数组的说法，不正确的是（ ）。 A) 数组是一种特殊的数据类型 B) 一个数组中可

7、存放多种类型的数组 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 jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（ ）。A) 3、6和14 B) 3、8和16 C) 3、4和12 D) 3、9和18 23、执行下面的程序段后，x的值为（ ）。x = 5For i=1 to 20 Step 2x = x + i 5Next i

8、A) 10 B) 15 C) 20 D) 2124、若要将多条语句书写在同一行，语句间应该用（ ）间隔。A) 逗号B) 冒号 C) 分号 D) 句号25、要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（ ）。A) Text属性值为#B)Caption属性值为# C) Passwordchar属性值为# D) Passwordchar属性值为真二、填空题（本大题共5题，每题2分，共10分）1、 若要将窗体Form2显示出来，可使用方法_来实现。2、 提供的enabled属性，用来控制对象是否可用；_属性，用来控制对象是否可见。3、 在窗体上画一个命令按钮，然后编写

9、如下事件过程： 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

10、 Sub Form_Click()Timer1.Interval = _End Sub Private Sub Timer1_Timer()Label1.Caption = _End Sub2、阅读以下在VB开发过程中的应用说明，对属性设置和程序代码填空。 本应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox语句弹出消息框提示“密码正确，欢迎进入！”；否则弹出消息框提示“密码不正确，谢绝进入！”。当用户单击“重新输入”命令按钮，则清空文本框中内

11、容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。 属性设置 对象对象名 属性名 属性值设置 命令按钮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

12、 If End Sub PrivateSub Command3_Click() _ End Sub四、简答题（本大题共3题，每题4分，共12分）1、 描述一下你对VB可视化编程中 “属性”和“方法”概念的理解。2、 VB可视化编程的一般步骤。3、 写出生成一个1100间随机整数的VB语句，并给出简要说明。五、编程题（本大题共3题，12题每题5分，第3题6分，共16分）1、 设计一个用ForNext语句，将100200之间所有能同时被3和5同时整除的数的和显示在窗体上。要求： 程序头尾如下。Private Sub Command1_Click()End Sub2、编写程序将一年中的12个月份，转

13、换成四个季度输出。对应关系如下：月份：1346791012季度：春季夏季秋季冬季要求：程序运行时，从键盘输入一个月份（使用输入对话框），在窗体上输出对应的季度。使用select case或者if then else 语句实现，程序头尾参照如下。Private Sub Form_Click()End Sub3、通过下面的Form_Load()事件将一组学生成绩，已经存储在二维数组a(5, 3)中，请编写一段程序找出最高和最低的成绩，并在窗体上显示出来。Option Base 1 Private Sub Form_Load() Dim a(5, 3) As Integer a(1, 1) = 69

14、: 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) = 63End Sub要求：程序头尾如下。Private Sub Form_Click()End Sub参考答案一、15、 ABCCC 610、DACBB 1115、DDADD1620、DCBCC 2125、DADBC二、1

15、、show或 form2.show 2、visible 3、3265364、2*(3*a+2*b)-Sqr(3)*Sin(x/180)或 2*(3*a+2*b)-Sqr(3)*Sin(x)5、Index 或 索引三、1、1000 2、Time / Time$ 3、Text1.Setfocus4、Text1.Text=PW 或Text1.Text=”abc”5、MsgBox”密码不正确，谢绝进入”6、End或Exit四、1、 属性是指对象的一组特征，方法是要执行的动作，完成某一特定功能2、 设计界面；设置属性；编写代码；运行、调试和保存3、 Int(Rnd*100) ；Rnd函数用来产生01之间

16、的随机数，乘以100后，产生0100之间的数，Int函数用来取整。五、1、Private Sub Command1_Click()For i = 100 To 200If i Mod 3 = 0 And i Mod 5 = 0 Then Sum = Sum + iEnd IfNext iPrint SumEnd SubPrivate Sub Form_Click()m = InputBox(请输入月份)Select Case m Case 1 To 3 Print 春季 Case 4 To 6 Print 夏季 Case 7 To 9 Print 秋季 Case 10 To 12 Print 冬季End SelectEnd SubPrivate Sub Form_Click()m = InputBox(请输入月份)If m = 3 Then Print 春季ElseIf m = 6 Then Print 夏季ElseIf m = 9 Then Print 秋季ElseIf m = 12 Then Print 冬季End IfEnd Sub2、 或者Private Sub Form_Click()Max = a(1, 1)：Min = a(1, 1