没有合适的资源?快使用搜索试试~ 我知道了~
四川省第23次等级考试题带答案借鉴.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 129 浏览量
2021-12-11
22:32:07
上传
评论
收藏 223KB PDF 举报
温馨提示
试读
11页
四川省第23次等级考试题带答案借鉴.pdf
资源推荐
资源详情
资源评论
第二部分
Visual Basic语言程序设计
(共 85 分 )
一、单项选择题 (每小题 1 分,共 10 分)
1.在下列字符串中,不能用作 VB 变量名的是 ( A )。
16 (A)8_num (B)instr6 (C)xy_int (D)f8
2.x 是一个正实数,如果要四舍五入并保留两位小数,则正确的表达式为 ( B )。
17 (A) 0.01*Int(x+0.005) (B) 0.01*Int(100*x+0. 5)
(C) 0.01*Int(100*x+0.05) (D) 0.01*Int(x+0.05)
3.正确表达命题“ x 和 y 都大于 z”的表达式是( C )
18 (A)x > z (B) y > z
(C) x > z And y > z (D) x > z Or y > z
4.若字符串 stra$和 strb$的取值为
stra$="I love my mother"
strb$=Mid(stra,7,3)+Right(stra,6)
则 InStr(3,strb, "m") 的函数值为 ( A )。
19(A)4 (B)2 (C)0 (D)1
5.如果要暂时关闭某个定时器,则必须通过设置其 (C) 属性为 False 来实现。
20(A)Timer (B) InterVal
(C)Enabled (D)Visible
6.在下列控件中,不接受焦点的是 ( A )
21(A)Lable (B)Command
(C)Text (D)Listbox 。
7.在 VB 中,要将一个窗体从内存中释放,应使用的语句是 ( D )。
22(A)Show (B)Hide (C)Load (D)Unload
8.建立弹出式菜单的方法是 ( A )。
23(A)PopupMenu (B)ShowMenu
(C)LoadMenu (D)A 、B、C 都可以
VB 程序设计试卷 共 12 页 第 2 页
9.以下关于 Click 事件描述中,错误的说法是 ( B )
24(A) 此事件是在一个对象上按下然后释放一个鼠标按钮时发生
(B)如果在 Click 事件中有代码,则 DlbClick 事件将永远不会被触发
(C)此事件也会发生在一个控件的值改变时
(D)对 Form 对象来说,该事件是在单击一个空白区或无效控件时发生
10.下面子过程语句合法的是 ( A )。
25(A)Function Fun% (Fun%) (B)Sub Fun(m%) As Integer
(C) Function Fun(By V al m%) (D) Sub Fun(Fun)
二 . 阅读分析程序 (每个选择 3 分 ,共 45 分)
1. 程序如下
Private Sub Form_Click()
Dim x As Integer, sx As Integer, n As Integer
Randomize Timer
x = Int (Rnd * 5 ) + 11
For i = 2 To x
n = Int(Sqr(i))
For j =2 To n
If i Mod j = 0 Then Exit For
Next j
If j > n Then sx = sx + i
Next i
Print sx
End Sub
(1)程序运行时,该程序中整数 x 的值的范围是 ( B )。
26(A)11~16 之间 (B)11~15 之间
(C)5~16 之间 (D)5~15 之间
(2) 变量 sx 中存放的数是( A )
27(A)2~x 之间的所有素数之和 (B) 2~x 之间的所有奇数之和
(C) 2~x 之间的所有偶数之和 (D) 2~x 之间的所有数值之和
(3) 假设 x 的值为 14,则程序的运行结果是 ( A )。
28(A)41 (B)48 (C)56 (D)104
VB 程序设计试卷 共 12 页 第 3 页
2.程序如下
Private Sub Command1_Click()
Dim n As Integer
Dim r As Long
n = Val(InputBox(" 请输入一个数 "))
r = fun(n)
Picture1.Print r,n
End Sub
Function fun(ByV al num As Integer) As Long
Dim k As Integer
k = 1
num = Abs(num)
Do While num
k = k * (num Mod 10)
num = num\10
Loop
fun = k
End Function
(1)当程序运行时,如输入 74,则输出结果为( A )。
29(A)28 74 (B)28 0
(C)47 74 (D)47 0
(2)如果将程序中的语句“ Function fun(ByV al num As Integer) As Long”改为“ Function
fun(num As Integer) As Long ”后,再输入 74,则输出结果为( B )
30(A)28 74 (B)28 0
(C)47 74 (D)47 0
(3)该程序在窗体上至少设置了几个控件?( B )
31(A) 一个 (B)二个
(C)三个 (D) 四个
3.程序如下
Option Base 1
Private Sub Command1_Click()
Dim n As Integer
VB 程序设计试卷 共 12 页 第 4 页
剩余10页未读,继续阅读
资源评论
dtd13961139571
- 粉丝: 1
- 资源: 6万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功