华东理工大学：《VB程序设计 Visual Basic Programming》课程教学资源（模拟试题，含参考答案）

B.appearance C.windowstate D.drawmode 20VB应用程序是分层管理的，其最高的层次为 A工程 B模块 C.窗体 D.过程 答案：A,D,D,A,A,D,A,C,D,D,B,D,D,A,B,A,B,D,C,A 二、填空题 1.写出用随机函数产生一个200至300之间整数的VB表达式 2.设a=2b=3.c-4.d=5,则NOTa-cOR4*c=b2ANDb◇a+c的值为 3.把条件1<=X<12写成VB关系表达式为。 4.使用Move方法把图形框Picture1的左上角移动到距窗体顶部1O0Twip,距窗体左边框 200Twp,同时图形框缩小50%，具体形式为一。 5.使用Scale方法建立窗体Fom1的用户坐标系，其中窗体左上角坐标为（一200,250），右下 角坐标为(300，-100)，具体形式为。 6.使用Circle方法在窗体Fomm1上以(15,15)为圆心，10为半径画圆，具体形式为 7.声明单精度常量P1代表3.14159的语句为 8.将焦点定位于命令按钮CommandI之上的语句为 9.把Visual Basic程序设计”添加到列表框1stBooks的语句为 10.表达式9317MOD23的值是_。 11.设x=6y=4,z=7,表达式x mody and z=7的值为 12.以图片框Pic1的中心位置为圆心，以700为半径在Pic1上画一个圆的方法是 13.要使命令按钮cmdEnd可以以快捷键E访问，应设置（属性）。 14.设=12，则由下列循环语句控制的循环次数是 Do 1月+2 Loop While I<=10

B. appearance C. windowstate D. drawmode 20.VB 应用程序是分层管理的，其最高的层次为_______。 A. 工程 B. 模块 C. 窗体 D. 过程 答案：A，D，D，A，A，D，A，C，D，D，B，D，D，A，B，A，B，D，C，A 二、填空题 1. 写出用随机函数产生一个 200 至 300 之间整数的 VB 表达式________。 2. 设 a=2,b=3,c=4,d=5,则 NOT a<=c OR 4*c=b^2 AND b<>a＋c 的值为________。 3. 把条件 1<=X<12 写成 VB 关系表达式为________。 4. 使用 Move 方法把图形框 Picture1 的左上角移动到距窗体顶部 100Twip，距窗体左边框 200Twip，同时图形框缩小 50%，具体形式为________。 5. 使用 Scale 方法建立窗体 Form1 的用户坐标系，其中窗体左上角坐标为(－200，250)，右下 角坐标为(300，-100)，具体形式为________。 6. 使用 Circle 方法在窗体 Form1 上以(15，15)为圆心，10 为半径画圆，具体形式为________。 7. 声明单精度常量 P1 代表 3.14159 的语句为________。 8. 将焦点定位于命令按钮 Command1 之上的语句为________。 9. 把“Visual Basic 程序设计”添加到列表框 1stBooks 的语句为________。 10. 表达式 93\7 MOD 2^3 的值是________。 11.设 x=6,y=4,z=7, 表达式 x mod y and z=7 的值为_______。 12. 以图片框 Pic1 的中心位置为圆心，以 700 为半径在 Pic1 上画一个圆的方法是_______。 13. 要使命令按钮 cmdEnd 可以以快捷键 E 访问，应设置_______（属性）。 14. 设 I=12，则由下列循环语句控制的循环次数是_______。 Do I=I+2 Loop While I<=10

l5.OptionBasel的作用是确定数组的下界为 答案：1.200+Int(Rnd*100)、2.False、3.x>=1andx<12、4. Picturel.move200,100.picture1.width/sqr(2).picturel.height/sgr(2),5.form 1.scale(-200.250)-(300.- 100)、6.fom1.circle(15,15),10、7.ConstPI!=3.14159或ConstPI-=3.14159、8. Commandl.SetFocus、.9.IstBooks..AddItem“VisualBasic程序设计”、10.5、1l.2、 12.pic1.Circle(pic1.width/2,pic1.height/2),700 13.CmdEnd.Caption,14.1 15.1 三、是非题 l.如果一个菜单项的Vis ible属性为False,则它的子菜单也不会显示。( 2.框架控件和形状控件都不能响应用户的鼠标的单击事件。() 3.在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸 载。( ) 4.对于文件系统控件，当驱动器控件Drive1中的驱动器符改变时，文件夹列表控件Drl中显 示的文件夹也作相应改变，可以通过在Drivel中的Change事件中使用如下命令来实现： Dirl.Path=Drivel.Drive.( 5.当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动把 这一条目添加到它的列表框中。( ) 6.图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变 该图片框有关属性的值。( 7.当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件。() 8.VB若同一个工程有许多窗体，可以指定任一窗体为启始窗体。() 9.所有的对象都有caption属性。() 10.Variant是一种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及自定义 类型外的所有系统定义类型的数据。Variant类型变量还可具有Empy、Error和Nul等特殊 值。( 11.事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。( 12.Visual Basic程序的运行，仅能从某一窗体启动，如Foml窗体。( 13.C心le方法绘制扇形或圆弧图形时，图形的形状不仅与起始角、终止角的大小相关，而且 与起始角、终止角的正或负相关。( 14.VB是一种面向对象的程序设计语言。( 15.在VB的工具箱中包括了所有的VB控件，我们不能再加载其他的控件。(

15. OptionBase1 的作用是确定数组的下界为_______。 答案：1. 200+Int(Rnd*100)、2. False、3. x>=1 and x<12、4. Picture1.move200,100,picture1.width/sqr(2), picture1.height/sqr(2)、5. form1.scale(-200,250)-(300,- 100)、 6. form1.circle(15,15),10、 7. ConstPI!=3.14159 或 ConstPI=3.14159、8. Command1.SetFocus、9. lstBooks.AddItem“Visual Basic 程序设计”、10. 5、11.2、 12.pic1.Circle(pic1.width/2,pic1.height/2),700、 13. CmdEnd.Caption、14. 1、15.1 三、是非题 1. 如果一个菜单项的 Visible 属性为 False，则它的子菜单也不会显示。（ ） 2. 框架控件和形状控件都不能响应用户的鼠标的单击事件。（ ） 3. 在一个窗体的代码中不能使用 Unload 语句来卸载本窗体，即一个窗体只能由其它窗体卸 载。（ ） 4. 对于文件系统控件，当驱动器控件 Drive1 中的驱动器符改变时，文件夹列表控件 Dir1 中显 示的文件夹也作相应改变，可以通过在 Drive1 中的 Change 事件中使用如下命令来实现： Dir1.Path=Drive1.Drive。（ ） 5. 当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动把 这一条目添加到它的列表框中。（ ） 6. 图片框的 Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变 该图片框有关属性的值。（ ） 7. 当定时器控件的 interval 属性值设置为 0 时，会连续不断地激发 Timer 事件。（ ） 8. VB 若同一个工程有许多窗体，可以指定任一窗体为启始窗体。（ ） 9. 所有的对象都有 caption 属性。（ ） 10. Variant 是一种特殊的数据类型，Variant 类型变量可以存储除了定长字符串数据及自定义 类型外的所有系统定义类型的数据。Variant 类型变量还可具有 Empty、Error 和 Null 等特殊 值。（ ） 11. 事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。（ ） 12. Visual Basic 程序的运行，仅能从某一窗体启动，如 Form1 窗体。（ ） 13. Circle 方法绘制扇形或圆弧图形时，图形的形状不仅与起始角、终止角的大小相关，而且 与起始角、终止角的正或负相关。（ ） 14. VB 是一种面向对象的程序设计语言。（ ） 15. 在 VB 的工具箱中包括了所有的 VB 控件，我们不能再加载其他的控件。（ ）

答案：1.T、2.F、3.F、4.T、5.F、6.F、7.F、8.T、9.F、10.T、11.F、12.F、13.T、14. T、15.F 四、程序阅读题 1.阅读下列程序，写出运行结果。程序如下： Private Sub Command3_Click() Dim i%,s% For i 1 To 3 s sum(i) Print "s=":s Next i End Sub Private Function sum(n As Integer) Static j As Integer j=j+n+1 sum=j End Function 程序运行后，第2次单击命令按钮Command.3,窗体上输出结果是？ 2.阅读下列程序，写出运行结果。程序如下： Private Sub Command4 Click( Dim I As Integer,j As Integer Dim star As String star "C For I 1 To 6 Print Tab(14 -I 2); For j=1 To I 2-1 Print star; Next j Print Next I For I 1 To 6 Print Tab(2 I 2); For j=1 To (6-I)*2-1 Print star; Next j Print Next I End Sub

答案：1.T、2. F、3. F、4. T、5. F、6. F、7. F、8. T、9. F、10. T、11. F、12. F、13. T、14. T、15. F 四、程序阅读题 1. 阅读下列程序，写出运行结果。程序如下： Private Sub Command3_Click() Dim i%, s% For i = 1 To 3 s = sum(i) Print "s="; s Next i End Sub Private Function sum(n As Integer) Static j As Integer j = j + n + 1 sum = j End Function 程序运行后，第 2 次单击命令按钮 Command3，窗体上输出结果是？ 2. 阅读下列程序，写出运行结果。程序如下： Private Sub Command4_Click() Dim I As Integer, j As Integer Dim star As String star = "C " For I = 1 To 6 Print Tab(14 - I * 2); For j = 1 To I * 2 - 1 Print star; Next j Print Next I For I = 1 To 6 Print Tab(2 + I * 2); For j = 1 To (6 - I) * 2 - 1 Print star; Next j Print Next I End Sub

程序运行后，单击命令按钮Command4,窗体上输出结果是？ 3.阅读下列程序，写出运行结果。程序如下： Private Sub Command5 Click() Dim xx(6)As Integer Dim k% Open "c:\al.dat"For Output As #1 For I 1 To 6 j=I *I Print #1,j Next I Close #l Open "c:\al.dat"For Input As #2 k=0 Do While Not EOF(2) k=k+1 Input #2,xx(k) Loop Close #2 For I =k To k /2 Step -1 Print xx(I) Next I End Sub 程序运行后，单击命令按钮Command5,窗体上输出结果是？ 4.阅读下列程序，写出运行结果。程序如下： Private Sub Command9 Click() C=InputBox("请输入字符串：") P=”" For L Len(C)To 2 Step -2 P=Mid(C,L-1,2)+P Next L Print P End Sub 程序运行后，单击命令按钮Command9,如果输入：ABCDEFG,窗体上输出结果是？

程序运行后，单击命令按钮 Command4，窗体上输出结果是？ 3. 阅读下列程序，写出运行结果。程序如下： Private Sub Command5_Click() Dim xx(6) As Integer Dim k% Open "c:\a1.dat" For Output As #1 For I = 1 To 6 j = I * I Print #1, j Next I Close #1 Open "c:\a1.dat" For Input As #2 k = 0 Do While Not EOF(2) k = k + 1 Input #2, xx(k) Loop Close #2 For I = k To k / 2 Step -1 Print xx(I) Next I End Sub 程序运行后，单击命令按钮 Command5，窗体上输出结果是？ 4. 阅读下列程序，写出运行结果。程序如下： Private Sub Command9_Click() C = InputBox("请输入字符串：") P = " " For L = Len(C) To 2 Step -2 P = Mid(C, L - 1, 2) + P Next L Print P End Sub 程序运行后，单击命令按钮 Command9，如果输入：ABCDEFG，窗体上输出结果是？

答案： 1. s=2 s=5 s=9 2 C ccc CCCCC ccccccc CCCCCCCCC CCCCcccccco CCCCCCC CC cCCCccC ccccc CCC C 3 36 25 16 9 4.BCDEFG 5.阅读下列程序，写出运行结果。程序如下： Private Sub Command1_click() Dim strC As String米1 strC=InputBox("请输入数据") Select Case strC Case"a”To"z”,"A”T0"Z" Print strC+"Is Alpha Character" Case"0”To"g" Print strC +"Is Numeral Character" Case else Print strC+"Is Other Character" End Select End Sub 程序运行后，单击Commandl,输入的数据分别为W”,“8”和“？”时，窗体上显示的内容分 别是？ 6.阅读下列程序，写出运行结果。程序如下： 定义窗体级变量：Dim Y As Integer Private Sub Command10_Click() Dim X As Integer X=1 Y=1

答案： 1. s= 2 s= 5 s= 9 2. C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C 3. 36 25 16 9 4. BCDEFG 5. 阅读下列程序，写出运行结果。程序如下： Private Sub Command1_Click() Dim strC As String * 1 strC = InputBox("请输入数据") Select Case strC Case "a" To "z", "A" To "Z" Print strC + " Is Alpha Character" Case "0" To "9" Print strC + " Is Numeral Character" Case Else Print strC + " Is Other Character" End Select End Sub 程序运行后，单击 Command1，输入的数据分别为“W”，“8”和“？”时，窗体上显示的内容分 别是？ 6. 阅读下列程序，写出运行结果。程序如下： 定义窗体级变量：Dim Y As Integer Private Sub Command10_Click() Dim X As Integer X = 1 Y = 1