《Visual Basic程序设计》
一、选择题（每题1分，共30分）
1、哪个是合法变量名？
A.ABCabc
B.8xy
C.END
D.X8[B]
2、下列哪个符号不能作为VB中的变量名?
A.x23
B.b1234
C.28wed
3、表达式int(8*sqr(36)*10^(-2)*10+0.5)/10的值为
A.0.48
B.0.048
C.0.5
D.0.05
4、设A="abcdefghijklm"，下面（）的函数值不为"jklm"
A.Mid(A,10,14)
B.Right(A,4)
C.Mid(A,10,4)
D.Left(A,10,4)
5、不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是：
A.A*B=0And A<>B
B.(A=0Or b=0)And A<>B
C.A=0And B<>0Or A<>0And B=0
D.A*B=0And(A=0Or B=0)
6、表达式5^2Mod25\2^2的值是
A.1
B.0
C.6
D.4
7、表达式val(".123E2CD")的值是
A..123
B.12.3
C.0
D..123E2CD
8、表达式Right("Beijing",4)的值是
A.Beij
B.jing
C.eiji
D.ijin
9、表达式Mid("SHANGHAI",6,3)的值是
A.SHANGH
B.SHA
C.ANGH
D.HAI
10、货币型数据需()字节内存容量
A.2
B.4
C.6
D.8
11.表达式2*3^2+2*8/4+3^2的值为
A.64
B.31
C.49
D.22
12.Rnd函数不可能产生（）
A.0
B.1
C.0.1234
D.0.00005
13.25.28Mod6.99的值是()
A.1
B.5
C.4
D.出错
14、(7\3+1)*(18\5-1)的值为()
A.8.67
B.7.8
C.6
D.6.67
15、函数InStr("VB程序设计教程","程序")的值为()
A.1
B.2
C.3
D.4
16、函数Ucase(Mid("visual basic",8,8))的值为()
A.visual
B.basic
C.VISUAL
D.BASIC
17、将任意一个正的两位数N的个位数与十位数对换的表达式为：
A.(N-int(N/10)*10)*10+int(N/10)
B.N-int(N)/10*10+int(N)/10
C.int(N/10)+(N-int(N/10))
D.N-int(N/10)*10+int(N/10)
18、下面的程序运行结果是
Private Sub Form_click()
i=0
do
i=i+1
if i>10then exit do
loop until i<10
print i
End sub
A.0
B.1
C.10
D.11
19、在VB工程中可以作为“启动对象”的程序是___
A、任意窗体和模块B任意窗体
C任意窗体或sub main过程
D Sub main过程或其他任意模块
20、在VB中，要将一个窗体从内存中释放，应使用的语句有
A Show    B.Hide    C.Load    D.Unload
21、在VB中，要是一个窗体不可见，但不从内存中释放，应使用的语句是（）
A Show    B.Hide    C.Load    D.Unload
22、假定窗体上有一个标签，名为label1，为了使该标签透明并且没有边框，则正确的属性设置为（）
A.Label1.BackStyle=0
Label1.BorderStyle=0
B.Label1.BackStyle=1
Label1.BorderStyle=1
C.Label1.BackStyle=true
Label1.BorderStyle=true
D.Label1.BackStyle=false
Label1.BorderStyle=false
23、确定复选框是否选中，应访问的属性是
A.Selected
B.checked
C.style
D.value
24、为了在按Enter键时执行某个命令按钮的事件过程，需要把命令按钮的一个属性设置为True，这个属性是
A.Value
B.Default
C.Cancel
D.Enabled
25、命令按钮能响应的事件是__
A.Dblclick
B.click
C.scroll
D.load
26、在程序代码中清除当前窗体的图形，以下不正确的语句是
A.Picture=""
B.Picture=loadpicture()
C.picture=loadpicture("")
27、不能作为容器使用的对象是
A.窗体
B.框架
visual basic pdfC.图片框
D.图象框
28、Msgbox函数的返回值的类型为__
A.整型
B.字符串
C.变体
D.整数或字符串
29、InputBox函数返回值的类型为__
A.整型
B.字符串
C.变体
D.整数或字符串
30、下列程序
private sub command1_click()
a=inputbox("请输入")
b=inputbox("请输入")
print a+b
end sub
运行时输入3和4输出的结果
A.7
B.34
C.3+4
D.出错
二、填空题（每题1分，共10分）
1、逻辑运算中，参与运算的两个量都是False，结果才会是False的逻辑运算是_[1]___
2、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是__[2]__
3、下列程序是用来计算1+2+3+……+10的程序段，请补充完该程序。
Dim i,s,k As Integer
s=0:k=0
For__[3]__to–1
k=k+1
s=s+k
Next i
Print s
4、设有以下循环：
x=1
Do
x=x+2
Print x
Loop Until__[4]____
程序运行后，要求执行3次循环体，请填空。
5、假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello！”，所使用的语句为___[5]____
6、下面的For语句循环体要执行60次，请填空
for k=___[6]__to-7step–3
7、X是小于100的非负数，对应的布尔表达式是_[7]___
8、VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是_[8]___
9、一个程序最多可以有__[9]_____个窗体
10、设有如下的Visual Basic表达式：
5*x^2-3*x-2*sin(A)/3
它对应的数学表达式是________
三、应用题（每题4分，共40分）
1、为使某窗口的命令按钮“取消[C]”具有如下的功能：按键Alt+C或按键“ESC”都相当于单击该按钮，应该怎样实现？
2、为使应用程序启动时打开的窗口时中有背景图象（取自用户自定义的某个图象文件"D:\user\image.bmp"），并且在程序运行时，被遮挡的该窗口又重画，在开发该窗口时应对哪些属性进行什么样的设置？
3、若某窗口内的命令按钮"平均"具有以下功能：求出文本框Txt1与文本框Txt2中数值内容的平均值，并放入文本框Txt3中。该命令按钮单击事件过程内的程序代码为=str$().请补充空缺。
4、某应用程序的窗口中有文本框txtPwd，用于输入用户的命令。为使用户键入的各个口令字符在屏幕上都显示为"*"，在开发时应对该文本框的哪个属性进行什么样的设置？
5、假设某应用开发工程（默认的工程名为“工程1”）已先后创建两个窗体，其窗体的名分别为process和main，为使窗体main成为运行该工程时的启动窗体，在开发过程中应如何操作？
6、假设某应用程序的运行窗口中有多个控件，当光标停在某个控件上，连续按"Tab"键时，光标将按什么样的顺序在各个控件之间移动？怎样改变光标移动的顺序？
7、为使用户单击某窗口（窗体名为frm1）时，会显示一行信息：“欢迎光临！”应在该窗体的哪个事件过程中编写什么样的程序代码？请写出相应的事件过程名以及该过程内的程序代码。
8、若某窗口内的命令按钮“加倍”具有如下的功能：将文本框txt1中输入的数值加倍后，在文本框txt2中显示出结果，请写出该命令按钮的单击事件过程内的程序代码？
9、请说明如下语句的功能（写出全部特征）：
msgbox"请检查修改输入数据！"，vbOKonly+vbCritical+vbDefaultButton1,"数据错"
10、某窗口（窗体名为frm1）中，有一个文本框txt1和一个命令按钮，只要在文本框中输入一个图象文件名（包括路径），单击该命令按钮后，该图象就会成为此窗口的背景图象。请写出该命令按钮单击事件过程内的程序代码。
四、程序填空题（10分）
设应用程序的主窗口为frmApp，运行时的启动窗口中有两个文本框（其名称分别为txtName 和txtPwd），还有一个命令按钮CmdLogin。这个命令按钮单击事件的过程如下：
Private Sub Cmdlogin_click()
msg$="请重新输入！"
title$="输入数据错"
="张三"="3721"then
unload me
frmapp.show
else
msgbox msg$,vbOKonly+vbCritical,title$
End If
请问，如果该应用程序运行时，在两个文本框中分别输入了“张三”和“3721”，则单击命令按钮后将_(1)____；如果在两个文本框中分别输入了“张三”和“7321”，则单击命令按钮后将_(2)__（要求描述显示的全部特征）
五、程序设计题（10分）
阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码，将应填入_(n)_处的字句写在答题纸的对应栏内。
[应用程序说明]
本应用程序的运行窗口如下图所示：
用户只要在文本框中输入一个自然数（例如16），再用鼠标单击“倒计时”按钮或直接按Enter键，都能使文本框中的数字每隔0.3秒逐次减1（倒计数）。当减到0时，倒计数停止，文本框清空，鼠标定位在文本框中，以便于反复试验上述操作过程。
在开发过程中，需要设置有关的属性如下：
[属性设置]
对象对象名属性名属性值设置
窗体Frm1Caption倒计时实验
标签Label1Caption请填入自然数
文本框Text1Text（空白）
命令按钮Command1Caption倒计时
__(1)__True
定时器Timer1Enabled False
Interval__(2)__
在开发过程中，需要编写的程序代码如下：
[程序代码]
Private Sub Command1_Click()
__(3)__
End Sub
Private Sub Timer1_Timer()
If Val(Text1.Text)=0Then
Text1.Text=""
Timer1.Enabled=False
__(4)___
Else
Text1.Text=__(5)___
End If
End Sub
《Visual Basic》试卷答题卡
班级________姓名_________成绩_________
题目一二三四总分分数
一、选择题
1～5______________6～10_____________11～15_____________
16～20______________21～25____________26～30_____________
二、填空题
１、______________2、______________3、______________
４、______________５、______________６、______________
７、______________８、______________９、______________
１０、______________
三、应用题
四、程序填空题
(1)__________________________
(2)__________________________
五、程序设计题
(1)__________(2)__________(3)__________
(4)__________(5)__________

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。