广药VB期末练习及答案
更新时间:2023-09-30 03:49:01 阅读量: 综合文库 文档下载
- 广药vs曼联推荐度:
- 相关推荐
练习一
一、 单选题
? 一个完整计算机系统应包括_B__(1)____。
(A) 主机、键盘、和显示器 (B)硬件系统和软件系统 (C) 主机和其他外部设备 (D) 系统软件和应用软件 ? 打印机属于计算机部件中的___A(2)___。
(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 ? 下列表示存储容量的数据中,__C__(3)____是最大的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte ? 在计算机内部能够直接执行的程序语言是__C_(4)____。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言 ? 下列叙述正确的是__C_(5)____。
(A)程序设计就是编制程序 (B)程序的测试必须由程序员自己去完成 (C)程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行再测试 ? 以下叙述中错误的是__C_(6)___。
(A)Visual Basic 是事件驱动型可视化编程工具 (B)Visual Basic应用程序不具有明显的开始和结束语句
(C)Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 (D)Visual Basic中控件的某些属性只能在运行时设置 ? 以下不属于VB工作模式的是_A__(7)___模式。
(A) 编译 (B) 设计 (C) 运行 (D) 中断 ? 以下语句的输出结果是_C__(8)___ 。
Print Format $(32548.5,“000,000.00”)
(A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50 ? 若要使某可见控件获得焦点,则可使用___B(9)_____方法来实现。
(A) Refresh (B) SetFocus (C) Value (D) GotFocus ? 在下列说法中,正确的是_C_(10)___。
(A) 通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上 (B) 在列表框中不能进行多项选择
(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D) 复选框的Value属性值为布尔型
? 执行以下程序段,输出的结果为__B_(11)___。
a$=\
For i=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i) z=Right(a,i): z=UCase(X & Y & z) Next i Print z
(A) ABA (B) BBABBA (C) ABBABA (D) AABAAB ? 控件在窗体上的位置是由_B__(12)___属性确定的。
(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width ? 关于Name属性,以下叙述中___A(13)___是正确的。
(A) 窗体的Name属性指定窗体的名称,用于标识一个窗体。 (B) 窗体的Name属性用于设置显示在窗体标题栏的文本。 (C) 可以通过代码在程序运行中改变某个对象的Name属性值。 (D) 对象的Name属性值可以设置为空。 ? 下列名称中_C__(14)___可以作为VB的变量名。
(A) mod (B) m-d (C) tempVal (D) left
? 要求出变量x和y中较大的一个并保存在变量Max中,下面的程序段中__D_(15)___是不正确的。
(A) Max = IIf(x > y, x, y) (B) If x > y Then Max = x Else Max = y (C) Max = x (D) If y > x Then Max = y
If y >= x Then Max = y Max = x
? 执行以下语句后,a的值为_C__(16)___
Dim a As Integer a = 1
Do Until a = 100 a = a + 2 Loop
(A) 102 (B)100 (C)溢出 (D)101
? 对于语句If a = b Then c = d 的语法分析,__B_(17)___是正确的。
(A) a=b 和 c=d都是赋值语句 (B) a=b是关系表达式,c=d是赋值语句 (C) a=b 和 c=d都是关系表达式 (D) a=b是赋值语句,c=d是关系表达式 ? 运行下列程序段,单击两次命令按钮,则第二次单击时窗体中显示的结果是
_A_(18)__。
Private Sub Command1_Click() Dim a As Integer Static b As Integer
a = a + 5: b = b + 5 Print a, b End Sub
(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0 ? 在系统默认的情况下,Dim a(3, 4, 2 To 5) 定义的数组共有__D(19)___个元素。D
(A) 36 (B) 48 (C) 60 (D) 80
? 下面的子过程定义语句中没有语法和逻辑错误的是_C__(20)___。
(A) Sub S1(ByVal n%()) (B) Sub S1(n As Integer) As Integer (C) Function S1(ByVal n As Integer) (D) Function S1%(ByVal S1 As Integer) ? 执行了下面程序后,组合框中数据项的值是__B_(21)___ 。b
Private Sub Form_Click()
For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i End Sub
(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 6
? 设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选
中的列表项内容的是__(22)_D__.
(A)List1.List (B)List1.ListIndex (C)List1.Index (D)List1. Text
? 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编
写如下事件过程:
Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For Next j
If j > Sqr(i) Then Print i Next i End Sub
该事件过程的功能是_C_(23)__
(A) 输出n以内的奇数 (B) 输出n以内的偶数
(C) 输出n以内的素数 (D) 输出n以内能被j整除的数
? 如果要在菜单中添加一个分隔线,则应将其标题属性设置为__D_(24)_____。
(A)= (B)* (C)& (D)-
? 以下关于文件的叙述中正确的是__B(25)__。
(A) 一个记录中所包含的各元素的数据类型都是相同的 (B) 随机文件中每个记录的长度是固定的 (C) Open命令的作用是打开一个已经存在的文件 (D) 使用Input # 语句可以从随时机文件中读取数据
? 以下定义数组或给数组元素赋值的语句中,正确的是__A(26)__。
(A) Dim a As Variant (B) Dim a(10) As Integer a=Array(1,2,3,4,5) a=Array(1,2,3,4,5) (C) Dim a%(10) (D) Dim a(3),b(3) As Integer a(1)=\? 窗体中有一个命令按钮,编写如下程序,程序运行后,输出结果为___(27)D__。
Private Sub test(p,m,n) p=p+1: m=m+1: n=n+1 Print “Sub:”; p; m; n End Sub
Private Sub Command1_Click() a1=1: b1=2: c1=3 Call test(a1,b1+3,(c1)) Print “Main:”; a1; b1; c1 End Sub
(A) Sub: 2 6 4 (B) Sub: 2 6 4 (C) Sub: 2 6 4 (D) Sub: 2 6 4
Main: 2 6 4 Main: 1 6 4 Main: 1 2 3 Main: 2 2 3
? 以下语句用于打开一个顺序文件Open\但是该语句的一
个重要错误是没有__B_(28)_____。
(A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件名 (D) 指定文件类型 ? 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别
为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500。编写如下程序:
Private Sub Timer1_Timer() Private Sub Form_Load() Timer1.Enabled=False
If Label1.Left Label1.Left=0 End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub 程序运行后,单击“开始”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是__A_(29)___ (A) 标签的移动方向为自右向左 (B)单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动 (C) 当标签全部移出窗体后,将从窗体的另一端出现并重新移动 (D)标签按指定的时间时隔移动 ? 设有如下程序,通过For循环计算一个表达式的值,这个表达式是__C_(30)____: Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0: n = 0 For i = 1 To 5 x = n / i: n = n + 1: sum = sum + x Next End Sub (A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4 (C)1/2+2/3+3/4+4/5 (D)1+1/2+1/3+1/4+1/5 二、填空题 ? Visual Basic中有三种类型的模块文件,即类模块、标准模块和__窗体_[1]___模块。 ? 将数学式y3?3写成VB表达式,应该是__sqc(y^3+3/|a*b|)_[2]____。 |ab|? 赋值语句:a=123 + MID(\执行后,a变量中的值__[3]_157___ 。 ? Visual Basic提供的对数据文件的三种访问方式为顺序访问方式、_随机__[4]____ 和二进制访问方式。 ? 执行下列语句序列,显示的结果是__0_[5]___。 a = 2: b = 3: c = 4: d = 5 Print 3 > 2 * b Or a = c And b <> c Or c > d ? 运行下列程序,单击命令按钮,则Text1中显示_5__[6]___,窗体中显示__4_[7]___。 Private Sub Command1_Click() Dim i As Integer, j As Integer, a(5, 4) As Integer For i = 2 To 3 For j = 2 To 4 a(i, j) = i + j Next j Next i Text1.Text = a(3, 2) Print a(3, 1) End Sub ? 如下图,窗体上有两个命令按扭C1, C2及一个文本框Text1,当按下C1时,将C2 的标题与Text1中的内容交换。 C1 Private Sub C1_Click() Dim a As String Form1.Caption = \交换后\a = _ Text1.Text __[8]____ Text1.Text = _ C2.Caption __[9]____ C2.Caption = a End Sub ? 请完善以下判断完数的程序。一个数如果恰好等于它的因 子之和,这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。例如6是一个完数,因为6=1+2+3。 Private Sub CmdJudge_Click() Dim a() m = Val(Text1.Text) ReDim a(1) a(1) = 1 k = ___[10]_1_ j = 1 If ___[13]_k=m___ Then Picture1.Print m & \是完数\ Picture1.Print m; \ For i = 1 To UBound(a) - 1 Picture1.Print a(i); \ Next i Picture1.Print _a(i)__[14]___ C2 For i = 2 To m - 1 If m Mod i = 0 Then k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim ___[11]preserve___ a(j) a(j) = ___[12]_i___ End If Next I(转右) ? 编写程序。在窗体上显示如下图所示的“九九加法表”。 _option__[15]___ Explicit Private Sub Form_Click() Dim i%, j% Print \ For i = 1 To _9__[16]____ Print i; For j = 1 To _i__[17]____ If i + j < 10 _then__[18]__ Print \ Print _[19]_i+j_; Next j ___[20]_print___ Next i End Sub ? 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序, 通过调用过程 Swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,??,a(5)与a(6)的值互换。请填空 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call Swap(__a_[21]___) For i = 1 To 10 Print a(i); Next ___[23]__n=n-1_ Next End Sub End Sub ? 设当前文件夹已有文件t1.txt和t2.txt,其中各有若干文字。现要将t2.txt的内 容合并到t1.txt 中。例如t1.txt原来内容为\原来内容为\,合并后t1.txt的内容将成为“ABCD1234” Private Sub Command1_Click() Open \ Open \ Do While Not EOF(2) Line Input #2, s _write #1,s___[25]____ Loop Close End Sub 三、编程题 1. 编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。 Function Gcd(Byval m As Integer, Byval n As Integer) As Integer Dim r As Integer Do r = m Mod n m = n n = r Loop Until r = 0 Gcd = m End Function r = m Mod n Do Until r = 0 m = n n = r r = m Mod n Loop Gcd = n r = m Mod n If r = 0 Then Gcd = n Else Gcd = Gcd(n, m Mod n) Loop 2.在文本框Text1中输入一串字符,用标签Label1显示其中出现频率最高的字母(不区分大小写)及其出现次数。例如:输入“This is a beautiful world.”则输出“使用频率最高的是i,共出现3次。” Option Base 1 Private Sub Command1_Click() Dim A(26) As Integer Dim max As Integer s = Text1.Text L = Len(s) For i = 1 To L ch = UCase(Mid(s, i, 1)) If ch >= \ Idx = Asc(ch) - Asc(\ A(Idx) = A(Idx) + 1 End If Next i max = A(1) For i = 1 To 26 If A(i) > max Then max = A(i): x = i Next i Label1.Caption =\使用频率最高的是\,共出现\次。\ End Sub 参考答案: 一、 选择题 1 B 11 B 21 B 2 A 12 B 22 D 3 C 13 A 23 C 4 C 14 C 24 D 5 C 15 D 25 B 6 C 16 C 26 A 7 A 17 B 27 D 8 C 18 A 28 B 9 B 19 D 29 A 10 C 20 C 30 C 二、 三、 四、 五、 六、 填空题 1、窗体 2、Sqr(y^3+3/abs(a*b)) 3、157 4、随机访问方式 5、False 或 0 6、5 7、0 8、Text1.Text 9、C2.Caption 10、1或a(1) 11、Preserve 12、i 13、k=m 14、a(i) 或 a(UBound(a)) 15、Option 16、9 17、I 18、then 19、i + j 20、Print 21、a() 或 a 22、Ubound(b) 或 10 23、 n = n - 1 或 n = 10 – I 24、For Append 25、Print #1,s 或 Write #1, s 七、 编程题 1、 红部分代码可以换成蓝色或者黑色的代码。
正在阅读:
广药VB期末练习及答案09-30
美国留学数字媒体专业详解03-29
第十五章 冷、热疗法05-08
高速公路龙门架监控杆施工方案03-29
海南黄花梨与越南黄花梨对比(图)05-05
0560《公共经济学》作业04-06
输血03-14
第三章 2 企业道德推理(企业应用)06-05
广播电视大学形成性考核-建筑工程项目管理作业答案 - 图文12-07
公司费用报销管理制度(财务部提供)01-20
- 人教新课标必修4 Unit2 Working the land名师导航
- 毕业生“校漂族”大行其道 - 0
- 江苏各市中考作文题出炉 - 0
- 暑期精品班 - 三角形 - 图文
- 情人节送什么礼物好??超强礼物已抵达
- 工程项目管理制度1
- 第四次业务学习 2016
- 会计要素与会计科目
- 欠发达地区小企业会计准则运用问题研究
- 一级锅炉水G4题库
- BBD双进双出筒式磨煤机安装使用说明书 SM-1
- 初一数学有理数教案
- 渝北区房地产评估市场调研报告
- iWebMall 数据字典
- 2018年小学入学教育工作计划
- 计量专业实务与案例分析 - 模拟题三 - 2013年版
- 启示录讲义
- 路基灰土改良(方案)
- 人行反洗钱岗位准入培训测试题集
- 2015电大《学前儿童发展心理学》期末试题及答案
- 期末
- 练习
- 答案
- 建筑工程事故分析与处理复习题
- 测试复习题参考答案 北京理工大学研究生
- 半导体三极管β值数字显示测试电路
- 2000级化工系化工原理试题-四川大学
- 部门员工双向选择竞聘上岗实施办法
- 《牛虻》读后感2000字
- 渣场施工方案
- 高等数学综合练习题集八
- R点和H点的区别
- CCNA第二学期《Final Examination》期末测试版本4.0
- 论监理在项目中的风险管理
- 高职专业人才培养方案调研报告格式
- 2017-2023年中国旋耕机行业市场发展现状及投资前景预测报告(目录)
- 微生物学考研笔记
- 《网络安全与管理》课程设计指导书
- 浙江省社区卫生服务中心名录2018版984家
- 大学物理实验习题和答案解析汇编
- 道德经教案
- 会计学指导书(含答案)
- 民法学-考前辅导2014.06