



下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、学习必备欢迎下载1.下列 (A)是 VB的合法常量。A. 100.0B. %100C.D.T2.下列符号中, (C)是 VB的合法变量名。A. 123_aB. a 123C. XYZD.sin(x)3.表示关系表达式10 x<20 的 VB表达式是 (B )。A. 10 x<20B. 10<=x and x<20C. 10<=x or x<20D. 10x and x<204.算术表达式 |x+y|+z5的 VB表达式是 ( B)。A. |x+y|+z5B. abs(x+y)+z55C. abs(x+y)+pow(z,5)D. abs(x+y)+z5.
2、下列赋值语句中,错误的是 ( A)。A. 10x=sin(x)+yB. c=c*yC. x=sin(x)/(20 mod 2+1)D.c=3+sqr(3)6.语句 If x = 1 Then y = 1,下面说法正确的是 (D )。A. x = 1和 y = 1均为赋值语句B. x = 1和 y = 1均为关系表达式C. x = 1为赋值语句, y = 1为关系表达式D. x = 1 为关系表达式, y = 1为赋值语句7. 下列数组声明语句中, (B)正确。A. Dim a2,4 As IntegerB. Dim a(2,4) As IntegerC. Dim a(n,n) As Integ
3、erD. Dim a(2 4) As Integer8. 设 a%=20,b$=" 30" ,则下列输出结果是 " 2030" 的语句是 (D )。A. Print str(A )B. Print " a" +bC. Print a+bD. Print a & b9. 在一行内写多条语句时,每个语句之间用( B)来分隔。A. , B.:C.、D. ;10. InputBox函数返回值的类型为 (B)。A. 数值B. 字符串C. 变体D. 数值或字符串(视输入的数据而定)二、填空题(每小题2 分,共 10 分)1.表达式 123
4、+23 mod 107+asc(" A") 的值是 _188_。2. 表达式 len(" VB 程序设计 ")的值是 _6_。3. 设文本框的初始值为空,单击窗体并在文本框输入 “ABCD”时,窗体上显示 _ABCD 。Private Sub Form_Click()Print Text1.Text;End Sub4. 下面数组声明语句中,数组包含元素个数为 _30_。 Dim a(-2 to 2,5)5. 以下程序循环的执行次数是 _6_。a=0Do While a<=10a=a+2Loop学习必备欢迎下载三、程序阅读题(每小题6 分,共 18
5、分)1下面的程序段,显示的结果:优秀Dim xx= Int(RnD ) + 5Select Case xCase 5Print "优秀 "Case 4Print "良好 "Case 3Print "及格 "Case ElsePrint "不及格 "End Select2在窗体上建立一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n3Next nprint nEnd
6、sub程序运行后,如果单击命令按钮,则窗体上显示的内容:213编写如下事件过程:Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For i = LBound(a) To UBound(a)a(i) = a(i) * a(i)Print a(i); " "Next iEnd Sub程序运行后,如果单击窗体,则窗体上显示的内容:程序错误四、程序设计题(共62 分)根据图示运行效果,写出每一题的操作步骤。学习必备欢迎下载1.(12 分) 在屏幕显示下图运行效果。要求屏幕上显示“欢迎你到肇庆” 。并在“请输入你对
7、肇庆的印象: ”标签后的文本框 text1 中输入印象;单击“你对肇庆的印象是”按钮,在 Label3 标签显示文本框 Text1 中的内容。操作步骤:(1)在窗体中建立3 个标签 Label1 、Label2 、 Label3 ,Label1.Caption=“欢 迎 你 到 肇 庆 ” ,Label2.Caption=“ 请 输入 你 对 肇 庆 的 印 象 :” ,Label3.Caption= “ ”;-6分(2)在窗体中建立 1 个文本框 text1 , text1.text=“ ”; -8分(3)在窗体中建立1 个命令按钮Command1,Command1. Caption=“ 你
8、对肇庆的印象是”;-10分(4)在命令按钮 Command1中,用触发 Click设计代码:Private Sub Command1_Click()Label3 = Text1End Sub-12分2.(23分)编一求两数m、n最大公约数的函数过程f(m,n);主调程序在两个文本框接收输入数据,在图形框显示结果。操作步骤:(1)在窗体中建立 3 个标签 Label1 、Label2 、Label3 , Label1.Caption=“输 入m ” ,Label2.Caption=“n”, Label3.Caption=“mn最在公约数”;-3分(2)在窗体中建立 2 个文本框 text1 、t
9、ext1 ,text1.text=“ ”,text2.text=“ ”;-5分(3)在窗体中建立 1 个命令按钮 Command1,Command1Caption=. “ 显示”;-6分(4)在窗体中建立 1 个图形框 picture1 ;-7分(5)在命令按钮 Command1中,用触发 Click设计代码:Private Sub Command1_Click()Dim mm%, nn%mm = Val(Text1)nn = Val(Text2)Picture1.Print mm; Tab(6); nn; Tab(12); f(mm, nn)End Sub-13分(6)设计求两数 m、n 最
10、大公约数的函数过程f(m,n)Function f%(ByVal m%, ByVal n%)If m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = n: n = r: r = m Mod nLoopf = n学习必备欢迎下载End Function-23分3.(27 分) 设计一个如下图所示的应用程序。当用户单击“ OK”按钮后,在右边的列表框中显示所选择的信息。操作步骤:(1)在窗体中,设计一个命令按钮command1,command1.caption= “OK ” ;( 2)在窗体中,设计一个列表框
11、list1 ;( 3)在窗体中, 设计一个组合框 combo1;。 -3分( 4 ) 在 窗 体 中 , 设 计 一 个 框 架fram1 ,fram1.caption= “ CPU”,框架中有3 个单选按钮option1 、 option2 、 option3 , 且option1.caption=“ PentimIII ”, option2.caption=“ PentimII ”,option3.caption=“Celern”。-5分(5)在窗体中,设计一个框架 fram2 ,fram2.caption=“其它设备” 框架中有 3 个复选框 check1、check2、check3,且
12、 check1.caption= “声卡” , check2.caption= “ Modem ”,check3.caption=“适配器“。 -7分(6)在窗体form 中,用触发load 事件设计代码 ,对组合框添加项目。Sub Form_Load()Combo1.AddItem " 联想 ": Combo1.AddItem " 方正 "Combo1.AddItem "IBM": Combo1.AddItem "Compao" :Combo1.AddItem " 兼容机 "End Sub(7)在“ OK ”命令按钮中,用触发Private Sub Command1_Click()List1.ClearList1.AddItem Combo1.TextIf Option1 ThenList1.AddItem "Pentim III"End IfIf Option2 ThenList1.AddItem "Pentim II"End IfIf Option3 ThenList1.AddItem "Celern"End IfIf
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025湖北荆州市监利市消防救援大队招聘政府专职消防员15人笔试模拟试题及答案解析
- 资料期中考试讲话稿
- 软件销售管理述职报告
- 远洋运输相关知识
- 人教辽宁 九年级 下册 语文 第一单元《 海燕》习题课 课件
- 计算机基础实践与创新课件 第2章 计算机系统的基本组成和基 本工作原理
- 人教陕西 九年级 下册 语文 第三单元《 送东阳马生序》习题课课件
- 高中语文必修5陈情表 同步练习课内四基达标
- 三年级数学北师大版上册第六单元《6.1蚂蚁做操》教学设计教案1
- 加盟 续签合同范本
- 2025年陕西工商职业学院单招职业技能测试题库学生专用
- 新教科版小学1-6年级科学需做实验目录
- DB34∕ 1659-2022住宅工程质量常见问题防治技术规程
- XX市三级公立综合医院绩效考核指标评分细则
- 监理平行检查记录表(最新全套)电子版本
- 押金收据条(通用版)
- 500kV变电站工程主变基础及防火墙施工方案
- 屈原《国殇》教学课件
- 战略地图模版(共2页)
- 供应链整合培训教材
- 电缆工井施工有限空间施工方案
评论
0/150
提交评论