本卷共有3道大题:
一、单项选择题（40道小题，共40分）
1、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分）
A、Load B、Click
C、DblClick D、MouseDown
2、每个对象的事件名称______。（1分）
A、都要由用户定义 B、有的由用户定义，有的由系统定义
C、都是由系统预先定义 D、是不固定的
3、以下不合法的常量是______。（1分）
A、10^2 B、100
C、100.0 D、10E+01
4、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是______。（1分）
A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键 B、选择图片框，然后按Del键
C、执行语句 Picture1.Picture = LoadPicture("") D、执行语句 Picture1.Picture = ""
5、Visual Basic的编程机制是______。（1分）
A、面向过程 B、面向对象
C、事件驱动 D、可视化
6、能产生[10，32]之间随机整数的函数表达式为______。（1分）
A、Int(Rnd*22)+10 B、Int(Rnd*23)+10
C、Int(Rnd*22)+11 D、Int(Rnd*23)+11
7、下列各组中，两个函数功能完全相反的是______。（1分）
A、Str(x)和Val(x) B、Asc(x)和Chr(x)
C、LTrim(x)和RTrim(x) D、Timer(x)和Time(x)
8、Print Format(1234.234, "###.>"); Format(1234.234, ">###.##")的显示结果是______。（1分）
A、1234.2341234.23 B、123.23400 1234.234
C、123.23400 1234.23 D、1234.2341234.234
9、要把一个Image控件对象设置成隐藏，应设置的属性是______。（1分）
A、Visible B、Enabled
C、Default D、Cancel
10、在下列语句中，正确的是______。（1分）
A、Text1.Text+Text2.Text=Text3.Text B、Command1.Name="cmdok"
C、Label1.Caption=4567 D、x=InputBox(please input)
11、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是______。（1分）
A、文本框中没有内容 B、文本框的MultiLine属性为False
C、文本框的MaxLength属性为0 D、文本框的Locked属性是True
12、下面四个语句中，正确的赋值语句是______。（1分）
A、a = a + c B、a + c = a
C、c + a = a D、a － c = a
13、abc％，abc!，abc$，abc#分别声明abc是______。（1分）
A、整型、单精度、字符串、双精度变量 B、整型、整型、字符串、双精度变量
C、单精度、整型、字符串、双精度变量 D、整型、双精度、字符串、双精度变量
14、有一个命令：Text1= "欢迎您！"，表达方式中省略了对象的______。（1分）
A、方法 B、属性名
C、对象名 D、标题
15、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是______。（1分）
A、Enabled B、Apperance
C、AutoRedraw D、Moveabl
e
16、启动Visual Basic后，VB为用户建立的第一个窗体是______。（1分）
A、Form B、Form1
C、窗体1 D、窗体
17、若要选择Text对象的Text1_KeyPress事件，可以______。（1分）
A、在属性窗口中选择 B、在工程资源管理器窗口中选择
C、在代码设计窗口中利用对象列表框、过程列表框选择 D、在窗体设计窗口中双击Text1对象
18、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。（1分）
A、1个“$” B、4个“$”
C、不显示内容 D、“*”
19、能够通过标准工具栏打开的窗口是______。（1分）
A、代码窗口 B、设计器窗口
C、属性窗口 D、立即窗口
20、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是______。（1分）
A、2 B、26
C、27 D、38
21、执行x = -6 ^ 2: Print Sgn(x) + Abs(x) + Int(x)的结果是______。（1分）
A、-36 B、1
C、-1 D、-32
22、语句X = X + 1的正确含义是______。（1分）
A、变量X的值与X + 1的值相等 B、将变量X的值存到X + 1中去
C、将变量X的值加1后赋给变量X D、变量X的值为1
23、表达式Str(Len("123")) + Str(77.7) 的值是______。（1分）
A、377.7 B、3 77.7
C、80.7 D、12377.7
24、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是______。（1分）
A、6 B、8
C、10 D、14
25、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是______。（1分）
A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m
C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m
26、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是______。（1分）
A、2 B、3
C、5 D、23
27、下列不合法的常量形式是______。（1分）
A、"1O0" B、100.0
C、1OE+0.5 D、Const G = 23 + 12
28、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是______。（1分）
A、abcabc B、ABCABC
C、65 D、97
29、表达式 25.28 Mod 6.99 的值是______。（1分）
A、1 B、4
C、5 D、出错
30、在下列逻辑表达式中，逻辑值为"真"的是______。（1分）
A、Not (1 > 2) B、Not (3 + 4 < 4 + 6)
C、1 > 2 Or 2 > 3 D、2 > 1 And 3 < 2
31、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是______。（1分）
A、232 232032 B、232 232
C、232.32 232.32 D、显示出错信息
32、执行程序 For n = 1 To 3: Cls: Print "n="; n;: Next n 后, 输出结果是______。（1分）
A、123 B、3
C、n= 3 D、n= 1 n= 2 n= 3
33、以下声明语句中，错误的是______。（1分）
A、Const varl=1
23 B、Const var2="ABC"
C、Public const="计算机等级考试" D、Static var3 as Integer
34、执行语句age = InputBox("请输入数值", "年龄输入框", "38")，如果从键盘上输入数值20并按回车键，则下列叙述中，不正确的叙述是______。（1分）
A、变量Age的值是数值20 B、对话框标题栏中显示的是"年龄输入框"
C、对话框的默认值是38 D、对话框的提示文字为"请输入数值"
35、表达式"Turbo" + "C" > "True" + "Basic"的值是______。（1分）
A、True B、False
C、Null D、出错信息
36、执行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，变量c$的值为______。（1分）
A、Visual BASIC Programing B、Quick Basic programing
C、QUICK Basic Programing D、Quick BASIC Programing
37、Print DateDiff("m", #1/28/2004#, #1/31/2004#)的输出结果是______。（1分）
A、O B、1
C、-1 D、2
38、下列符号中，属于Visual Basic合法变量名的是______。（1分）
A、x23 B、8xy
C、END D、X8[B]
39、语句T = MsgBox("程序执行了非法操作", vbAbortRetryIgnore, "提示信息")的执行后，可以在对话框中显示______个按钮。（1分）
A、1 B、2
C、3 D、4
40、InStr("Visual Basic程序设计简明教程中关于可视化界面的设计", "设计")的函数值为______。（1分）
A、15 B、17
C、30 D、47
二、填空题（5道小题，共20分）
1、* 使用双循环实现正三角形输出
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
* 程序代码如下：
Private Sub Command1_Cick()
For i = 1 To 10
Print Tab(25 - );
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
（4分）
--------------------------------------------------------------------------------
2、* 求S=1！+2！+…10!
* 程序段如下：
s =
t = 1
For i = 1 To 10
t= t *
s = s + t
Next i
Print s
（4分）
--------------------------------------------------------------------------------
3、* 计算S=1!+2!+…10!
s = 0
For i = 1 To 10
= 1
For j = 1 To i
t = t * j
Next j
s = s +
Next i
Print s
（4分）
--------------------------------------------------------------------------------
4、* 求S=1！+2！+…10!
* 程序段如下：
s =
for i=1 to 10
t = 1
for j = 1 To i
t= t *
next j
s = s + t
Next i
Print s
（4分）
--------------------------------------------------------------------------------
textbox控件边框设置
5、* 在窗体上画一个名称为Command1的命令按钮并编写下列事件过程，程序运行后，则窗体上显示的是10。
Private Sub Command1_Click()
x = Int(Rnd * (20 - 1 + 1) + 1)
Select Case x
Case 1 20
y = 10
Case 11, 13, 15, 17
y = 30
Case Is > 10
y = 50
End
Print y
End Sub
（4分）
--------------------------------------------------------------------------------
三、编程题（3道小题，共40分）
1、* 编写程序：求100-110之间各整数的平方根
（10分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
--------------------------------------------------------------------------------
2、* 编写程序：在文本框中输入弧度值，将弧度换算为角度值（度、分、秒）的形式并输出，要求秒数保留三位小数。
（15分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
--------------------------------------------------------------------------------
3、* 编写程序：设计一个询问当前日期、时间和星期几的应用程序。参考图 t3-1.jpg 。
（【下载文件“t3-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。
（15分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
Private Sub Command1_Click()
Text1.Text = Date
End Sub
Private Sub Command2_Click()
Text2 = Time
End Sub
Private Sub Label1_Click()
Print Format(mDate, ddddd)
End Sub
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论