




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、.一、 单选题(共15小题,每小题2分,共30分) 1. 以下叙述中,错误的是(B )。A) 在Visual Basic中,对象所能响应的事件是由系统定义的B) 对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定C) Visual Basic中允许不同对象使用相同名称的方法D) Visual Basic中的对象具有自己的属性和方法2. 下列叙述中,错误的是( C )。A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程(对象)的程序设计语言D、VB应用程序可以以编译方式执行3. 下列( A )是合法的变量名。A、x_y (合法变量名以字母或下划线头) B、x-y
2、 C、2x D、and4. 选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的布尔表达式为( C )。A、T=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W62.55. 设a=”Visual Basic”,下面使b=”Basic”的语句是( B )A.b=Left(a,8,12) B.b=Mid(a,8,5) C.b=Right(a,5,5) D.b=Left(a,8,5) 取字符串a第8个字符开始的5个6. 如果x小于y的平方,则在窗体上输出“OK”。完成该要求的单行条件语句是( C )。A、If x y 2 Then OK B、If
3、x y 2 Then Show OKC、If x y 2 Then Print OK D、f x y,x,y) B、if xy Then Max=x Else Max=yC、Max=x D、if y=x Then Max=y(Else) If y=x Then Max=y Max=x9. 以下条件语句错误的是( A )。A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0C、If X 0 Then Y = 1: Print Y D、If X Y Then Print Y End If10. 若要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性
4、窗口中设置( D )。A、Text属性值为* B、Caption属性值为*C、Password属性值为空D、PasswordChar属性值为*11. 设置标签Label1的属性使它不可见的语句是( D )。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False 12. 修改控件属性,既可以使用属性窗口,也可以通过( D )为控件属性赋值。A、属性 B、事件 C、方法 D、代码13. 在程序代码中引用一个控件时,应使用控件的( B )属性。A)Caption B)Name
5、 C)Text D)Index14. 若要获得列表框中被选中的列表框的内容,可以通过访问( B )属性来实现。A)Name B)ListIndex C)ListCount D)Text15. 以下叙述中正确的是( B )。 16. A一个 Sub 过程至少要一个 Exit Sub 语句 ()B一个 Sub 过程必须有一个 End Sub 语句 C可以在 Sub 过程中定义一个 Function 过程,但不能定义 Sub 过程 D调用一个 Function 过程可以获得多个返回值 得分二、 填空题(共8空,每空2分,共16分)1. InputBox函数返回值的类型为 string 。2. 与事件
6、相关的一段程序代码称为 事件过程代码 。3. 循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是 6 。 4. 可表示50,100之间的随机数的语句是 int(rnd*51+50) 。5. Print方法分区输出时,用 逗号 分隔多个表达式。当输出多个表达式或字符串时,各表达式用分隔符(逗号、分号或空格)隔开。如果输出的各表达式之间用逗号分隔,则按标准输出格式(分区输出格式)显示数据项。6. 强制性退出ForNext循环的语句是 exit for 。7. 当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的属性窗口中,把此文本框的 caption 属性设置
7、成空白。8. 为了把焦点移到某个指定的控件,所使用的方法是 setfocus 。得分三、 基本操作题(共2小题,每小题10分,共20分)1打开工程文件A3-1.vbp,完成以下操作,并以原文件名保存。 P651 设置窗体运行后出现在屏幕中心;(2分)2 设置口令的长度小于等于6;(3分)3 设置输入的口令以“*”显示;(3分)4 设置“确定”按钮为缺省按钮。(2分)2打开工程文件A3-2.vbp,完成以下操作,并以原文件名保存。 P1111 在文本框中输入课程名称,单击“添加”按钮,将该课程添加到列表框中,并清文本框的内容;(3分)2 选中列表框某课程,单击“删除”按钮,将选中的课程从列表框中
8、删除;(4分)3 单击“清除”按钮,清除列表框中的所有课程。(3分)得分四、 程序填空(共4小题,每小题2空,每空3分,共24分)说明:打开已有的工程文件,根据要求实现的功能,在“?”处用相应的代码代替(不得删除原有的代码,必须在?处填写),使程序能正常运行。1 打开考试目录下的“A4-1.vbp”,完善程序并保存。要求:(1) 圆的半径r利用InputBox函数从键盘输入(r0)。(2) 圆周率定义为符号常量。(3) 求圆的周长lenth和面积area。(4) 用Print方法输出圆的周长和面积。原程序:Private Sub Command1_Click() Dim r As Single
9、 Dim lenth As Single, area As Single Const ? PI=3.14159 r = ? Val(InputBox(“圆的半径”,0) lenth = 2 * PI * r area = PI * r * r Print 半径=; r, 周长=; lenth, 面积=; areaEnd Sub2 打开考试目录下的“A4-2.vbp”,完善程序并保存。要求实现功能:利用Do WhileLoop语句求s=12+22+1002。(运行效果如下图所示)。原程序:Private Sub Command1_Click() Dim n As Integer, s As Lo
10、ng n = 1: s = 0 Do While ? n101 s = ? s+n*n n = n + 1 Loop Print s=; sEnd Sub3 打开考试目录下的“A4-3.vbp”,完善程序并保存。已知计算机等级考试的百分制成绩mark,要求用Select Case语句将百分制成绩mark转换成对应五级制的评定grade。评定条件如下:mark85,优60mark85,合格mark =85 grade = 优 Case 60 To 84 grade = 合格 ? Case Is0 If x amax Then amax = x End If If ? x max Then max
11、 = a(i)If a(i) n1 Then 为了求最小公倍数,增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ,; m1; 的最大公约数为; nPrint 最小公倍数=, m1 * n1 / nEnd Sub7.求逆序数(感觉题目类型太多)8. 级数有限项求和问题(题目类型太多)9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(Input
12、Box(请输入2的整数:)I = 2DoIf N Mod I = 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer,A(26) as integer,n as integerDim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)=”A” And
13、 UCase(S)=”Z” ThenA(Asc(UCase(S)-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num = B, A, B) x存入最大值Y = IIf(A a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4顺序查找过程Private Sub Command1_Click()Di
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 依法治教各项管理制度
- 促销人员现场管理制度
- 保安企业积分管理制度
- 保安公司各种管理制度
- 保安制度物品管理制度
- 保安车辆停放管理制度
- 保定高校疫情管理制度
- 保密材料使用管理制度
- 保洁公司台账管理制度
- 保洁公司高层管理制度
- FFU龙骨吊顶防坠研究及应用-2023.12.11王国栋修
- 多层钢结构厂房施工方案
- 知道网课智慧《艺术与科学理论基础》测试答案
- 清拆劳务合同范本
- DL-T5366-2014发电厂汽水管道应力计算技术规程
- (高清版)JTST 273-2024 水运工程测量定额
- 《纸牌国》阅读指导
- 公路工程设计设计的质量保证措施、进度保证措施
- 【同步训练】《血液循环-体循环和肺循环》(解析版)
- 智能护理数字化驱动医护智能管理
- 小学数学《比例》大单元教学设计
评论
0/150
提交评论