春VB试题.doc
- 文档编号:17675966
- 上传时间:2023-07-27
- 格式:DOC
- 页数:7
- 大小:44KB
春VB试题.doc
《春VB试题.doc》由会员分享,可在线阅读,更多相关《春VB试题.doc(7页珍藏版)》请在冰点文库上搜索。
2012年春 二级VB试卷
第一部分程序阅读与填空(24小题,每小题3分,共72分)
1.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
【程序说明】用下列近似公式求自然对数的底数e.累加过程到末项小于10-12为止。
【程序】
Private Sub Commandl_Click()
Dim __
(1)__
Dim i As Integer
e = 2
__
(2)__
While __(3)__
t = t / i
__(4)__
i = i + l
Wend
Print e
End Sub
【供选择的答案】
(1) A、e As Double, t As Double B、e As Single, t As Single
C、e As Double, t As Single D、e As Single, t As Double
(2) A、t=l:
i=2 B、t=2:
i=l C、t=l:
i=l D、t=2:
i=2
(3) A、t (4) A、e = e+l/t B、e = e+l\t C、e = e+t/i D、a = p + t 2.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】单击Commandl后,生成一个5至100之间的随机整数n,计算下列表达式的值并显示。 【程序】 Private Sub Commandl_Click() Dim s As Single, i As Integer, n As Integer n = __(5)__ s = __(6)__ For i= __(7)__ s=__(8)__ Next i Print s End Sub [供选择的答案: 】 (5) A、Rnd*10 B、5+Rnd*100 C、5+Rnd*95 D、5*Rnd(95) (6) A、n-l B、1 C、n D、0 (7) A、l To n B、n To 1 Step -1 C、n To 1 D、l To n-1 (8) A、s+Sqr(i) B、Sqr(s+i) C、i+Sqr(s) D、n+Sqr(s) 3.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】文件e: \aaa.txt中存放了若干商品的名称、数量、价格,执行下列过程将删除其中数量为O的商品信息。 Private Sub Commandl_Click() Dim mc As String, sl As Integer, jg As Single Open "e: \aaa.txt" For __(9)__ As #1 Open "e: \bbb.txt" For __(10)__ As #2 Do While Not EOF (1) Input #1, mc, sl, jg If __(11)__ Then Write #2, mc, sl, jg Loop Close #1: Close #2 Kill "e: \aaa.txt" Name __(12)__ End Sub 【供择择的答案】 (9) A、OutPut B、Input C、Append D、Read (10) A、OutPut B、Input C、Append D、Read (1l) A、s1="0" B、s1="" C、sl<>0 D、sl=0 (12) A、"e: \aaa.txt" As "e: \bbb.txt" B、e: \bbb.txt As e: \aaa.txt C、"e: \bbb.txt" As "e: \aaa.txt" D、"e: \bbb.txt","e: \aaa.txt" 4.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序】 Private Sub Commandl_Click() Dim i As Integer, j As Integer, n As Integer, k As Integer n = Val(InputBox("n=")) ReDim A(n) As Integer For i = 1 To n A(i) = Val(InputBox("a(" & i & ")=")) Next i For i = 1 To n - 1 For j = i + 1 To n If A(i) < A(j) Then k = k + 1 Next j Next i Print k End Sub 【问题】 (13)单击命令按钮Commandl并输入3、2、5、1后,显示结果为: A、l B、3 C、0 D、5 (14)单击命令按钮Commandl并输入3、1、2、5后,显示结果为: A、1 B、3 C、0 D、5 (15)单击命令按钮Commandl并输入3、5、2、1后,显示结果为: A.1 B、3 C、0 D、5 (16)单击命令按钮Commandl并输入4、l、3、2、4后,显示结果为: A、1 B、3 C、0 D、5 5.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序】 Private Sub f(s As String) Label1.Caption = "" For i = Len(s) To 1 Step -1 Label1.Caption = Label1.Caption + Mid(s, i, 1) Next i End Sub Private Sub Text1_KeyPress(k As Integer) If k = 13 Then Call f(Text1.Text) If k < Asc("0") Or k > Asc("9") Then k = 0 End Sub 【问题】 (17)在文本框控件Textl输入235/后,标签控件Labell标题显示为: A、325 B、253 C、235 D、532 (18)在文本框控件Textl输入132456/后,标签控件Labell标题显示为: A、 123456 B、654231 C、654321 D、456123 (19)当输入焦点在Textl时按下按键“$”,其文本显示结果为: A、前缀、增加字符“$” B、空白 C、没有变化 D、后缀、增加字符“$” (20)当文本框控件Textl的下列哪个属性为True时,其文本可显示但不可编辑。 A、Multiline B,Locked C、Visible D、Enabled 6.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序】 Dim k As Integer Private Sub Form_Load() p1.Scale (-100, 100)-(100, -100) k = 0: p1.DrawWidth = 5 Timer1.Interval = 10: Timer1.Enabled = True End Sub Private Sub Timerl_Timer() p1.Circle (0, 0), 80, vbRed, k * 3.141593 / 180, (k + l) * 3.141593 / 180 k = k + 1 If k = 360 Then Timer1.Enabled = False End Sub 【问题】 (21)运行终止时,图片框控件Pl中的显示为: A、扇形 B、红色实心圆 C、红色边线的一段圆弧 D、红色边线的圆 (22)运行时P1中的圆或圆弧或扇形的绘制方式是: A、顺时针 B、逆时针 C、起点在12点方向 D、起点在9点方向 (23)运行时P1中的圆或圆弧或扇形的半径为: A、5 B、10 C、80 D、100 (24)将Timer过程中Circle语句内的“k*3.141593/180,(k+l)*3. 141593/180”改为“-k*3. 141593/180,-(k+1)*3.141593/180”,绘图终止时pl中显示: A、红色实心圆 B、 黑色实心圆 C、半圆形 D、半个圆弧 第二部分程序编写(2小题,每小题14分,共28分) 1.编制事件过程Commandl Click,输入10个数,计算、显示他们的平均值,显示这10 个数中所有大于平均值的数. 2.编程,在图片框控件P1绘制红色边线兰色填充的矩形,鼠标按下处为矩形左上角,抬起处为右下角. 参考答案: 1.A: 精度要达到10-12,只能用双精度 2.A: e的初始值为2,说明是从2! 这一项开始循环 3.B: 一项大于该值时还要继续循环 4.D: 每一项已经累除了,直接相加 5.C: Rnd产生的是0-1之间的数 6.D: 先看7题,n已经在循环内了,s不需要初始值 7.B: 先算n的开方,逐步到1 8.C: S要比i多开方1次 9.B: 输入用Input 10.A: 输出用Output 11.C: 数值型,不等于0重新输出 12.A: 把aaa改为bbb 13-16题: 输入n个数,比较大小,前面比后面的小,则计数加1。 第一个数是个数 13.A: 1对,25 14.B: 3对,12,15,25 15.C: 无 16.D: 5对: 13,12,14,34,24 17-20题: 过程f,把参数倒过来;按键事件: 回车调用f,非数字键忽略 17.D 18.C 19.C 20.B: Locked为编辑加锁,只能显示不可修改 21-24题: 用定时器慢慢画圆弧(坐标正为弧,负为扇形),最后组成一个圆 21.D: 最终是一个圆 22.B: 角度的原点是向右,逆时针转动,与坐标系无关 23.C: 圆心后的参数即为半径 24.A: 每次画角度为1度的扇形,结果是实心圆 编程题: 1.用数组实现: 累加可单独循环计算,但显示必须单独循环,因为输入时还没算出平均值 Dimx(10)AsSingle,i Fori=1to10 X(i)=inputbox(“输入第”&“个数: ”) S=s+x(i) Next Av=s/10 Fori=1to10 Ifx(i)>avthenPrintx(i) Next 2.按下MouseDown事件中记录当前坐标,抬起MouseUp事件中画矩形;记录坐标必须使用模块及变量;BF是边线与填充一样颜色的实心矩形,颜色不同,只能用填充方式,用B方式画矩形。 Dimx1AsSingle,y1AsSingle Subp1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) x1=X y1=Y EndSub Subp1_Mouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) P1.FillStyle=0 P1.FillColor=vbBlue P1.Line(x1,y1)-(X,Y),vbRed,B EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题